dindin
XLDnaute Occasionnel
Bonjour
Ce bout de code sert a colorier une ligne de 20 cellule suivant un choix bien defini à partir une liste déroulante.
seulement il y a qq jours ai rajouté 2 cellules avec d'autres couleur . le souci ce que la bonne couleur ne fonctionne plus c'est à dire que excel prend la couleur la plus proche de la couleur choisie . pourquoi je ne sais pas ?
pouvez vous m'aider svp.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([G8:G5000], Target) Is Nothing And Target.Count = 1 Then
Set C = [SERVICES].Find(Target)
If Not C Is Nothing Then
Range(Target.Offset(0, -5), Target.Offset(0, 15)).Interior.ColorIndex = C.Interior.ColorIndex
End If
End If
End Sub
Ce bout de code sert a colorier une ligne de 20 cellule suivant un choix bien defini à partir une liste déroulante.
seulement il y a qq jours ai rajouté 2 cellules avec d'autres couleur . le souci ce que la bonne couleur ne fonctionne plus c'est à dire que excel prend la couleur la plus proche de la couleur choisie . pourquoi je ne sais pas ?
pouvez vous m'aider svp.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([G8:G5000], Target) Is Nothing And Target.Count = 1 Then
Set C = [SERVICES].Find(Target)
If Not C Is Nothing Then
Range(Target.Offset(0, -5), Target.Offset(0, 15)).Interior.ColorIndex = C.Interior.ColorIndex
End If
End If
End Sub