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
Configuration: Windows 2003
Internet Explorer 6.0
Antivirus en ligne
