Ajouter valeur dans une cellule si une autre est de couleur

Bonjour à la communauté, je bloque sur quelque chose de pas très difficile.

Je cherche à donner une valeur à une cellule en fonction de la couleur d'une autre.

Donc voilà où j'en suis.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' mise en couleur d'une cellule
'

If Range("B2").Interior.ColorIndex = 4 Then
Range("C2").Value = "1"
End If
End Sub

J'ai ajouté ce code dans la feuille mais aucune réaction.

Merci pour votre aide.

JdVirus,

si [B2] est bien verte, soit ce n'est pas le bon vert soit, vu ton pseudo, tu as foutu le bouzin dans tes couleurs!

Vérifie bien le ColorIndex de [B2]!

A+

J'ai essayer toutes les couleurs ...

J'ai tenter de voir ce que ça donne lorsque j'enregistre une macro en auto et la couleur qu'il me faut sans passer par une couleur index est :

.Color = 65280

Salut JdVirus,

vérifie par toi-même...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Interior.ColorIndex = 4 Then
    MsgBox "Bonne couleur : ColorIndex = " & Target.Interior.ColorIndex
Else
    MsgBox "Non : ColorIndex = " & Target.Interior.ColorIndex
End If
'
End Sub

A+

J'ai vérifier et c'est bien l'index 4. Pourtant je n'ai rien, pas de réaction.

Je prépare un fichier test et je post ça.

edit : le fichier est là

Le fichier joint est en bas ; si ça ne passe pas non plus :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' mise en couleur d'une cellule
'
  If [B2].Interior.ColorIndex = 4 Then [C2] = "1"
End Sub

Merci, je progresse, je progresse !

Dernière petite chose,

comment puis je procéder si je veux que

chaque ligne soit impacté ;

Une petite correction ?

 If [B2:B200].Interior.ColorIndex = 4 Then [C2:C200] = "1"

Nouveau fichier :

Merci beaucoup !