Prise en compte de la couleur de police

[BLACKHAYES]

Bonjour le forum,

Petite question :

j'ai le code ci-dessous qui fonctionne très bien sauf une chose, je souhaiterais que la couleur de police dans la cellule soit prise en compte, car actuellement il n'y a que le fond de la cellule qui soit prise en compte avec lecode si dessous, et quand le fond esrt bleu marine on ne voit plus la police qu est noir et j'aimerais definir une couleur de police en fonction de la couleur de fond, en l'occurence pour le bleu marine la police devrait etre jaune.
Suis-je clair !!???
je joint un fichier d'exemple pour les couleur

Code

Private Sub Worksheet_Change(ByVal Target As Range)

Dim temoin As Boolean
Dim Ref As Variant
If Not Intersect(Target, Range("D11:BD23,D30:BD42,D49:BD61,D68:BD80")) Is Nothing And Target.Count = 1 And Not temoin Then
temoin = True
Target.Interior.ColorIndex = xlNone
For Each Ref In Sheets("Planning Horaire(s)").Range("DI202I217")
If UCase(Target.Value) = UCase(Ref.Value) Then
Target.Interior.ColorIndex = Ref.Interior.ColorIndex
End If
Next Ref
temoin = False
End If

End Sub

ce code à été realisé par "Victor21"

 

[CHALET53]

Re : Prise en compte de la couleur de police

Bonjour,

peut-être en rajoutant :

Target.Interior.ColorIndex = Ref.Interior.ColorIndex
Target.Font.Color = Ref.Font.Color

a+