Discussion :

[Arsene12]

Bonjour,

je voudrais exécuter une action si la cellule D2 est jaune par exemple. Je crois qu'il faut utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Interior.ColorIndex

mais j'ai pas trouvé d'exemple. Pourriez-vous me dire comment faire, svp?
Merci d'avance
Arsene

[joe.levrai]

Bonjour,

tout dépend du jaune choisi bien sûr !

pour trouver le bon, active l'enregistreur de macro et colorie une cellule avec la couleur voulue, tu auras plutôt le .Color que le .ColorIndex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("D2").Interior.ColorIndex = vbYellow Then
' ou alors
If Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("D2").Interior.Color = 65535 Then

[Arsene12]

Bonjour,

tout dépend du jaune choisi bien sûr !

pour trouver le bon, active l'enregistreur de macro et colorie une cellule avec la couleur voulue, tu auras plutôt le .Color que le .ColorIndex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("D2").Interior.ColorIndex = vbYellow Then
' ou alors
If Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("D2").Interior.Color = 65535 Then

Merci. J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If Worksheets("MaFeuille").Range("D2").Interior.ColorIndex = vbYellow Then
 
        MsgBox ("Yellow")
 
    End If

J'ai pas eu de bug mais la MsgBox n'a rien répondu. J'utilise le jaune standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Worksheets("MaFeuille").Range("D2").Interior.Color = 65535 Then
 
If Worksheets("MaFeuille").Range("D2").Interior.Color = "65535" Then

ne donne aucun résultat aussi.

[joe.levrai]

tout dépend du jaune choisi bien sûr !

pour trouver le bon, active l'enregistreur de macro et colorie une cellule avec la couleur voulue, tu auras plutôt le .Color que le .ColorIndex

[Menhir]

Si c'est du jaune "pur" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("D2").Interior.Color = RGB(255, 255, 0)

ou bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("D2").Interior.Color = vbYellow

Si ce n'est pas du jaune pur, il va falloir jouer sur les codes RGB.

[code]If Workbooks("NomDuClasseur").Worksheets("NomDeLaFeuille").Range("D2").Interior.ColorIndex = vbYellow Then

Attention : vbYellow n'est pas un numéro d'index de couleur mais le code RGB de la couleur.
Il fonctionne avec Color mais pas avec ColorIndex.

[joe.levrai]

Oui t'as raison

[Arsene12]

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox (Range("D2").Interior.Color)

J'ai obtenu le numéro de la couleur : 16777215

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If Range("D2").Interior.Color = 16777215 Then
 
        MsgBox ("Yellow")
 
    End If

La MsgBox a affiché Yellow.


J'ai testé avec la cellule H2 qui est colorée en orange et j'ai obtenu la même réponse.

Si je remplace Color par ColorIndex, j'obtiens -4142 quelque soit la couleur de la cellule.

[Menhir]

J'ai fait : If Range("D2").Interior.Color = 16777215 Then

En utilisant une fonction RGB() comme indiqué dans mon poste, ça aurait été plus propre.

Pour info, 16777215 c'est blanc. C'est l'équivalent de RGB(255,255,255).
Jaune c'est 65535.

J'ai testé avec la cellule H2 qui est colorée en orange et j'ai obtenu la même réponse.
Si je remplace Color par ColorIndex, j'obtien -4142 quelque soit la couleur de la cellule.

Tes couleurs ne seraient-elles pas issues d'une mise en forme conditionnelle ?
(je pose la question en étant quasiment sûr de la réponse étant donné le "jaune - blanc" évoqué ci-dessus).