Tester la couleur de fond d'une cellule

[Jx7]

Bonjour à toutes et à tous,

J'aimerais savoir si il est possible de tester la couleur de fond d'une cellule?

Si oui, par quel formule?

Merci par avance.

 

[vinc26]

oui en faite
if selection.interior.color = 3 then
msgbox("couleur rouge") par exemple
end if

ou sinon


if cells(1,1).interior.color = 3 then
msgbox("couleur rouge") par exemple
end if


ou sinon


if Range("A1").interior.color = 3 then
msgbox("couleur rouge") par exemple
end if

 

[Jx7]

Merci de ta réactivité!!!

et surtout de ta réponse claire et efficace

 

[Jx7]

Par contre ca c'est forcément en VBA. Je peux pas mettre une formule dans une cellule?

 

[vinc26]

au niveau de formule d'excel je ne sais pas mais en vb c'est ca
tu passe par une macro

 

[Jx7]

ah ok. ca se complique... et comment je connais les numéro de chaque couleur?

 

[Jx7]

Bon j'ai trouvé un moyen de la connaitre en demandant l'affichage du code par:


Range("A1").Select
MsgBox (Selection.Interior.Color)

 

[Jx7]

Il m'arrive un truc bizarre. un simple:

Sheets(1).Select
Range("AG4").Select

me provoque un débogage avec le message "La méthode Select de la classe Range a échoué"...

 

[vinc26]

essaye
sheets(1).activate
msgbox (CStr(Range("AG4").interior.color))

 

[Jx7]

Merci Vince.

Comment pourrais je compter le nombre de cellule parmis celles selectionnées dont le fond est de telle couleur?