[Déplacé .Net -- VBA] DECALAGE par rapport a une cellule

Question

Bonjour, voici mon besoin : 

J'aimerais que lorsque que j'ecris WS ou ES dans la plage A1:A6, la cellule ( qui est decalé de 3 colonnes ex A1-> D1) s'approprie une couleur selon le contenue de ceux que j'ecris WS ou ES 
pour info cela marche lorsque je fais l'exemple avec A1 et non la plage 
voici mon code : 

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

cs_Jack · Answer

Salut
Oui, ça me parait un peu normal de ne pas pouvoir modifier les attributs de plusieurs cellules en même temps.
C'est, je pense, à toi de faire l'itération des cellules composant le Range :
    Dim maCellule As Object
    For Each maCellule In Range("A1:A6")
        Select Case maCellule.Value 
            Case "WS" 
                maCellule.Offset(0, 3).Interior.ColorIndex = 18 
            Case "ES" 
                maCellule.Offset(0, 3).Interior.ColorIndex = 15 
        End Select
    Next
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

anisse09 · Answer

Merci cela fonctionne !!!

[Déplacé .Net --> VBA] DECALAGE par rapport a une cellule

2 réponses

Votre réponse

Discussions similaires