Tester la couleur de fond d'une cellule

V

vinc26

Guest

• 13 Janvier 2005

• #2

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

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #3

Merci de ta réactivité!!!

et surtout de ta réponse claire et efficace

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #4

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

 

Vote positif 0 Vote négatif

V

vinc26

Guest

• 13 Janvier 2005

• #5

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

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #6

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

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #7

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


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

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #8

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é"...

 

Vote positif 0 Vote négatif

V

vinc26

Guest

• 13 Janvier 2005

• #9

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

 

Vote positif 0 Vote négatif

J

Jx7

Guest

• 13 Janvier 2005

• #10

Merci Vince.

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

 

Vote positif 0 Vote négatif