Action si la selection a la bonne couleur

Bonjour,

je suis à la recherche d'une ligne de code qui effectue une action si ma sélection à la bonne couleur de remplissage du genre :

if Selection.Interior.ColorIndex = 16711680 (bleu) then

mon action

end if

mais mon code ne fonctionne pas...

merci d'avance

Bonjour,

A mettre dans le code vba de la feuille concernée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Interior.ColorIndex = (tacouleur) Then
' ton traitement
End If

End Sub

Par contre il faut que ta couleur de fond soit remplie à la main ou par macro, mais cela ne fonctionne pas avec une mise en forme conditionnelle, car Excel lors d'une MFC ne colorie pas vraiment la cellule, il applique juste un filtre par dessus, mais la cellule garde sa couleur de base pendant les traitements des macros.

Cordialement,

Bonjour,

La couleur de la cellule ne serait pas le résultat d'une MFC ? Si oui, tu dis, j'ai une fonction disponible.

A+

ma couleur de cellule est issu d'une macro, c'est en faisant un enregistrement de macro que j'ai obtenue le code couleur 16711680

il n'en existe pas un plus simple pour le bleu?

je vais essayer ton code zirak

Ca dépend du bleu voulu sinon essais ces valeurs la déjà:

33

23

49

20

47

42

37

24

Cordialement

à pardon je me suis trompé c'est le code de la couleur noir qu'il me faut...

D'après ce que je vois, tu à deux façons de sélectionner une couleur.

La valeur que tu donne est la valeur de Color.

Les valeurs de 1 à 56 sont les valeurs de ColorIndex.

Si tu met..

    if Selection.Interior.Color = 16711680 then
        mon action
    end if

Ça va fonctionner.

A+

Sinon niveau ColorIndex pour le noir c'est le 1

sa fonctionne j'ai mixer toute les .color et .colorindex! a cause du code enregistrer je pense