J’aimerai faire une recherche dans une feuille chaque mot Tc99m et modifier pour chaque cellule contenant ce mot, la valeur de la 3ème colonne à gche de cette cellule qui contient ce mot, par le chiffre 0.2
Ex. si dans ma colonne I j’ai la ligne 313-318 et 320 avec ce mot, je voudrai que dans la colonne F, ces 3 lignes aient la valeur 0.2
Merci, mais il peut s’agir de la présence de cette valeur de manière aléatoire.
Il doit donc faire une recherche et SI il trouve, alors modifier 2 colonnes à gche la valeur… je mets le fichier d’exemple dans le message suivant. Merci
Sub Test()
Dim Plage As Range
Dim Cel As Range
Dim Lgn As Long
With ActiveSheet 'Feuille active
'A partir de la ligne 2, colonne I jusqu'à la dernère ligne
Set Plage = .Range(.Cells(2, 9), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
'Si dans la plage colonne I on trouve TC99M, alors on remplace dans la colonne F
If Cel.Value = "TC99M" Then Cel.Offset(, -3).Value = 0.2
Next Cel
End Sub
Appuyer sur le bouton “Test” et les valeurs de la colonne “F” seront remplacées par 0,2 si on trouve TC99M en face colonne “I” sinon on laisse les valeurs.