siyar a écrit :
Merci jpcheck pour votre reponse;jai essayer bq de truc sachant que je suis nul en vba;par exemple:
Sub recherche_cel()
'recherche_cel Macro
' Macro enregistrée le 24-07-2005 par Siyab
Numcolonne = 2
Numligne = 15
Cells(Numligne, Numcolonne).Select
If ActiveCell.Value <> Range("d1" ).Value Then
Numligne = (Numligne + 1)
Else
Cells(Numligne, Numcolonne).Select
Selection.ColorIndex = 6
End If
End Sub
|
et cela ne te convient pas?
tu peux très bien simplifier ton code (en nombre de lignes) avec cells(i,j).colorindex=6 par ex.
Ensuite, ici tu sembles tester une seule valeur en d1 c ca? alors tu peux faire une boucle
for i=1 to maximum de la colonne
if cells(i,1).value=range("d1" ).value then
cells(i,1).colorindex = 6
End if
next i
rien ne t'empeche de faire des tests imbriqués ensuite