If couleur est rose

bonjour à tous,

je souhaite mettre une condition avec une boucle pour rechercher une couleur si celle ci est trouver inserer quelquechose.

Dim RoSe As Long, vert As Long, bleu As Long

RoSe = RGB(242, 220, 219)
vert = RGB(216, 228, 188)
bleu = RGB(183, 222, 232)

For a = derligne To derligne1

    If Worksheets(Cells(a, 5)).Interior.Color = RGB(242, 220, 219) Then
    Worksheets(Cells(a, 5)) = "270141717"
    a = a + 1
End If
Next

merci d'avance pour votre aide

car je rencontre un code erreur run-time error 9 subscript out of range

Bonjour,

si derligne et derligne1 sont renseignées correctement,

essayer avec

 If Activesheet.Cells(a, 5).Interior.Color = RGB(242, 220, 219) Then
    Activesheet.Cells(a, 5) = "270141717"
 End if   

Bonjour, Salut Isabelle !

Ton code est quelque peu bizarre...

Initialisation de variables, non utilisées ensuite...

Double incrémentation de a...

Test sur la couleur de la feuille entière... !

Et Cells(a, 5) [sur la feuille active] doit contenir soit un nombre représentant un rang de feuille dans le classeur, soit un texte représentant un nom de feuille dans le classeur. Une non correspondance à ce niveau et l'erreur 9 arrive , mais tu en as encore en réserve pour la suite !

Cordialement.

Merci pour ton aide sabv

Merci pour ce retour launase, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!

Salut MFerrand !