Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 de la première feuille de calcul qui contiennent la valeur 2, puis grise ces cellules.
With Worksheets(1).Range("a1:a500") Set c = .Find(2, lookin:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.Interior.Pattern = xlPatternGray50 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionEn effet je n'ai pas lu l'exemple que tu énumère,
pourrai tu m'en indiquer le chemin.
Je te rappelle que je suis débutant.