XL 2016 si cellule de couleur alors écrire X

sevsev38 · 5 Avril 2024

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 · 5 Avril 2024

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 :

VB:

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

sylvanu · 5 Avril 2024

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 :

VB:

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 · 5 Avril 2024

cela fonctionne vous me sauvée !! merci beaucoup

XL 2016 si cellule de couleur alors écrire X

sevsev38

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

sevsev38

XLDnaute Nouveau

Discussions similaires