Merci beaucoup, mais avec vos codes, cela colore toute la ligne. L'idée est de colorier des plages de cellules précises, par exemple : C5-D5-G5-H5-O5-P5-S5-T5
bon encore une fois:
pour mettre pour chaque plage une couleur différente utilise ce code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cancel = True
If Target.Column = 1 Then
Range(Cells(Target.Row, 3), Cells(Target.Row, 4)).Interior.Color = vbRed ' C5-D5
Range(Cells(Target.Row, 7), Cells(Target.Row, 8)).Interior.Color = vbYellow '-G5-H5
Range(Cells(Target.Row, 15), Cells(Target.Row, 16)).Interior.Color = vbBlue '-O5-P5
'et ainsi de suite
End If
End Sub
Pour avoir la même couleur pour toutes les plages utilise ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myArray
myArray = Array(3, 7, 15) ' ici il faut indiquer les numéros des colonnes souhaité (3 c'est la colonne C)
Cancel = True
If Target.Column = 1 Then
For i = LBound(myArray) To UBound(myArray)
Range(Cells(Target.Row, myArray(i)), Cells(Target.Row, myArray(i) + 1)).Interior.Color = vbRed ' C5-D5
Next i
End If
End Sub
P.S. il faut bien sûr adapter les plages!