valeur cellule en fonction de la couleur

[a310V606]

Bonsoir,
je fais à nouveau appel au forum car je suis dans une impasse. je souhaite que si la cellule B4 est rouge alors la cellule B5 a pour valeur 1.
Ci joint un petit fichier.
Cordialement
Fred

 

[Dull]

Re : valeur cellule en fonction de la couleur

Salut a310v606, le Forum

peut-être comme cela

Sur la plage B1:B10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
For Each x In Range("B1:B10")
If x.Interior.ColorIndex = 3 Then x.Offset(0, 1) = 1 Else x.Offset(0, 1) = ""
Next x
End Sub

Pour toutes les cellules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 3 Then Target .Offset(0, 1) = 1 Else Target .Offset(0, 1) = ""
End Sub

et seulement sur la cellule B4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, [B4]) Is Nothing Then
If Target.Interior.ColorIndex = 3 Then Target.Offset(0, 1) = 1 Else Target.Offset(0, 1) = ""
End If
End Sub

Bonne Journée