Bonjour
exemple donné par J.Boisgontier
Les couleurs sont portées sur la colonne A de la Feuille "Liste"
Noms définis
Couleurs réfère à la formule:
=DECALER(Liste!$A$2;;;NBVAL(Liste!$A:$A))
Planning réfère à la zone ou sont tapés les noms sur "Feuil1"
ici
=$B$2:$F$4
Code de Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Planning], Target) Is Nothing Then
Target.Interior.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
Tu rajoutes des noms avec couleur à la suite de la Feuille "Liste" en colonne A
Dans "Gestionnaire de noms", tu modifies =$B$2:$F$4 par ton nouveau champ de saisie de noms
Cordialement