XL 2016 si cellule de couleur alors écrire X

[sevsev38]

Bonjour

je cherche un code VBA pour traité un travail long fastidieux et avec risque de loupé ...
J'ai un fichier Excel "Vide" avec des cellule de couleur que je doit remplir avec certaines données si la cellule est d'une certaine couleur. (mon tableau a env. 500lignes et 325colonnes … cela fait bcp de case a sélectionner manuellement ... )
je voudrais que si la cellule est grise (RVB 218 ; 218 ; 218) alors écrire un X dans la cellule.
en PJ un échantillon pour servir d'exemple.

Merci pour votre aide.

 

[sylvanu]

Bonjour Sersev, et bienvenu sur XLD,
Tout d'abord, dans votre fichier, votre gris vaut 127,127,127 et non 218,218,218.
En PJ un essai avec :

Sub MettreX()
Dim L%, C%, Gris
Gris = RGB(127, 127, 127)
For L = 1 To [A1000].End(xlUp).Row
    For C = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        If Cells(L, C).Interior.Color = Gris Then Cells(L, C) = "X"
    Next C
Next L
End Sub

 

[sevsev38]

cela fonctionne vous me sauvée !! merci beaucoup