Discussion :

[anisse9]

Bonjour, voici mon besoin :

J'aimerais que lorsque que j'écris WS ou ES dans la plage A1:A6, la cellule ( qui est décalée de 3 colonnes ex A1-> D1) s'approprie une couleur selon le contenu de ce que j'écris WS ou ES .
Pour info cela marche lorsque je fais l'exemple avec A1 et non la plage
voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
Select Case Range("A1:A6").Value
  Case "WS"
  Range(Range("A1"), Range("A6")).Offset(0, 3).Interior.ColorIndex = 18
 
  Case "ES"
  Range(Range("A1"), Range("A6")).Offset(0, 3).Interior.ColorIndex = 15
 
 End Select
 
End Sub

[mercatog]

Bienvenu au forum
Mieux si tu utilise l'évènement Change de ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("A1:A6")) Is Nothing Then
    Select Case Target.Value
        Case "WS": Range(Target, Target.Offset(0, 3)).Interior.ColorIndex = 18
        Case "ES": Range(Target, Target.Offset(0, 3)).Interior.ColorIndex = 15
        Case Else: Range(Target, Target.Offset(0, 3)).Interior.ColorIndex = xlNone
    End Select
End If
End Sub