Bonjour,
J'ai cherché sur le forum, mais je n'ai pas trouvé......
Je souhaiterais que les cellules A,B,C,D de chaque ligne soit colorées lorsque la cellule 8 (H) est renseignée, mais uniquement si elles ne sont pas vides.
Private Sub Worksheet_Change(ByVal Target As Range)
Lig = Target.Row
' Si la saisie est faite sur les cellules la colonne 8 (H)
If Target.Column = 8 Then
If Target.Value <> "" Then
Range(Cells(Lig, 1), Cells(Lig, 4)).Interior.ColorIndex = 33
End If
End If
End Sub
Merci de votre aide.
J'ai cherché sur le forum, mais je n'ai pas trouvé......
Je souhaiterais que les cellules A,B,C,D de chaque ligne soit colorées lorsque la cellule 8 (H) est renseignée, mais uniquement si elles ne sont pas vides.
Private Sub Worksheet_Change(ByVal Target As Range)
Lig = Target.Row
' Si la saisie est faite sur les cellules la colonne 8 (H)
If Target.Column = 8 Then
If Target.Value <> "" Then
Range(Cells(Lig, 1), Cells(Lig, 4)).Interior.ColorIndex = 33
End If
End If
End Sub
Merci de votre aide.