Bonsoir a tous
Je rencontre un petit probleme dans ma liste déroulante colorée j'ai ma liste couleur en U8:U30 et j'utilise cette macro le seul probleme est que ma police ne s'affiche qu'en noir dans ma liste déroulante donc dans la cellule alors que dans ma liste couleur j'ai des intitulée en blancs pour qu'ils resortent mieux comment faire pour que la couleur de la police suive avec la couleur cellule.
Merci du coup de main.
Cordialement.
JPS
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub
Je rencontre un petit probleme dans ma liste déroulante colorée j'ai ma liste couleur en U8:U30 et j'utilise cette macro le seul probleme est que ma police ne s'affiche qu'en noir dans ma liste déroulante donc dans la cellule alors que dans ma liste couleur j'ai des intitulée en blancs pour qu'ils resortent mieux comment faire pour que la couleur de la police suive avec la couleur cellule.
Merci du coup de main.
Cordialement.
JPS
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([planning], Target) Is Nothing Then
On Error Resume Next
Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
End If
End Sub