Re : Coloriser cellule de la colonne de tête par rapport à une liste de référence pui
Bonsoir,
Voilà, pb résolu, il reste un petit bug sur le traitement de l'annulation seulement lors d'une cellule modifiée dans la zone H18
A1200 mais rien de bien grave, l'essentiel est là.
Voici donc le code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D9
1200")) Is Nothing And Target.Count = 1 Then
On Error GoTo fin 'si on inscrit un nom qui n'est pas dans la liste on passe à l'instruction fin (en fin de macro)
Range("D" & Target.Row & ",H" & Target.Row & "
A" & Target.Row).Interior.Color = [ListeClients].Find(Target).Interior.Color
End If
If Not Application.Intersect(Target, Range("H18
A1200")) Is Nothing And Target.Count = 1 Then
Target.Interior.Color = Range("D" & Target.Row).Interior.Color
End If
Exit Sub
fin: Range("D" & Target.Row & ",H" & Target.Row & "
A" & Target.Row).Interior.Color = xlNone 'on enlève la couleur de la cellule
End Sub
A cela il faut ajouter un onglet pour y noter les clients sous forme de liste dans la première colonne.
Et pour finir, ajouter une MFC pour neutraliser les cellules que l'on ne souhaite pas coloriser: valeur de la cellule égale à ="" "Plage souhaitée(H18
A1200 dans la macro)", format: sans format.
Chris401 ajoutera un complément d'info si besoin car il est l'auteur de ce code.
Un super grand merci à lui car il y a passé beaucoup de temps et cela va me rendre un très grand service.
Bonne nuit / journée.
Domi.