Colorier la ligne entière boucle

Résolu/Fermé
davidbecks - 25 mars 2009 à 18:46
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 25 mars 2009 à 19:00
Bonjour,

Je souhaiterais savoir SVP comment, avec l'instruction suivante...

Sub Worksheet_Change(ByVal Target As Range)
If Range("A32") <> "A" Then
Rows(Target.row).Interior.ColorIndex = 6
End If
End Sub

...je peux sélectionner et coloriser la ligne entière dans le code suivant (qui ne colorise que la cellule).Merci!

Sub auto_open()
Dim plage As Range
Dim cl
Dim Target As Range
Set plage = Range("A1:A30")
For Each cl In plage
If cl.Value = "A" Then
cl.Interior.ColorIndex = 6
End If
Next cl
A voir également:

1 réponse

wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
25 mars 2009 à 19:00
Bonjour

pourquoi changer de methode

cl.entirerow.Interior.ColorIndex = 6
ou
rows(cl.row).interior.colorindex = 6
0