Liste déroulante avec lettre en couleur

Bonjour,

J'ai un fichier ou sur la feuille 2 j'ai une liste de code en couleurs. Sur la feuille 1 dans les deux colonnes D et F intitulées Types j'ai intégré la liste déroulante.

Je voudrai que le choix fait avec cette liste, que le code s'affiche avec la couleur définie dans la feuille2. Et cela sur les listes présentes en colonne D et F.

Avez-vous une solution ou un aiguillage à me donner pour savoir si déjà cette opération est faisable ?

Merci.

Bonjour

Code de Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Application.Intersect(Target, Range("D12")) Is Nothing Then
  Target.Font.ColorIndex = Choose(Right(Target, 1), 3, 5, 8, 38, 54, 1)
  Target.Font.Bold = True
  End If
  End Sub

Cordialement

Bonjour,

Lorsque je sélectionne un code dans la liste déroulante présente dans la feuille 1 et que je le supprimer de suite après, un message d'erreur apparait [Erreur d'éxécution "13" - Incompatibilité de type ]

et j'ai le code suivant qui est en jaune

arget.Font.ColorIndex = Choose(Right(Target, 1), 3, 5, 8, 38, 54, 1)

Je ne vois pas où se trouve le problème.

Merci pour votre aide.

Bonjour

Une solution

Modifies ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
 If Target = "" Then Exit Sub
  If Not Application.Intersect(Target, Range("D12")) Is Nothing Then
    Target.Font.ColorIndex = Choose(Right(Target, 1), 3, 5, 8, 38, 54, 1)
    Target.Font.Bold = True
  End If
End Sub

Bonjour

Comme tu voulais sur 2 colonnes, tu changeras laligne

If Not Application.Intersect(Target, Range("D12")) Is Nothing Then

par

If Not Application.Intersect(Target, Range("D:D,F:F")) Is Nothing Then

ou en délimitant les champs

If Not Application.Intersect(Target, Range("D2:D20,F2:F20")) Is Nothing Then

Cordialement