Mettre des couleurs dans un menu déroulant

bonjour

Est il possible de mettre en couleur, des valeurs dans un menu déroulant

Merci pour votre aide

7classeur2.xlsx (8.89 Ko)

Bonjour,

Un exemple dans le fichier joint.

Cdlt.

21phil107.xlsm (14.98 Ko)

Bonjour Jean Eric,

Comment c'est possible?

Juste par curiosité?

Bonne journée

Christelle

C'est joli !

Cela dit, Phil voulait peut-être avoir les couleurs dans sa liste déroulante avant de cliquer ?

Une autre solution serait aussi une MFC, mais plus complexe à programmer ... la solution paramétrée de fait ici est plus élégante. Bravo !

Re,

Bonjour Teten1,

Le détail de la procédure évènementielle.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
    If Target.Address = "$C$2" Then
        If IsEmpty(Target) Then
            Target.Interior.Color = xlNone
        Else
            With Me.ListObjects(1).Range
                Set Cell = .Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
            End With
            Target.Interior.Color = Cell.Interior.Color
        End If
    End If
End Sub
Rechercher des sujets similaires à "mettre couleurs menu deroulant"