Création automatique d'une liste de mots clef

Bonsoir Forum

Est-il possible de créer une liste déroulante à partir de mots clefs de la colonne D.

Merci

Adrien

Bonsoir,

Fais-nous un exemple de liste obtenue

Claude

Bonsoir Claude

Le fichier complété

Merci

Amicalement

Adrien

Bonjour,

Tu rajoutes un ComboBox issu de la boîte à outils "Contrôles", et dans le code de la feuille, tu mets ceci :

Private Sub ComboBox1_Change()
Range("A1").AutoFilter Field:=4, Criteria1:="=*" & Me.ComboBox1 & "*"
End Sub

Private Sub ComboBox1_DropButtonClick()
Dim Cel As Range
Dim Tmp
Dim Mots_Cles As Object
Dim I As Byte
Set Mots_Cles = CreateObject("Scripting.Dictionary")
For Each Cel In Range("D2", [D65000].End(xlUp))
    Tmp = Split(Cel.Value, ",")
    For I = LBound(Tmp) To UBound(Tmp)
        If Tmp(I) <> "" Then Mots_Cles(Trim(Tmp(I))) = Trim(Tmp(I))
    Next I
Next Cel
Me.ComboBox1.List = Mots_Cles.Items
End Sub

Bonne soirée

Bonsoir,

Voir fonctions perso en pj.

JB

Edit 1 de Nad : la réponse ne correspond pas à la demande - Il faut la liste des mots séparés par une virgule et non pas chaque mots (cf code de cousinhub qui fait cela parfaitement)

Edit 2 : jb ayant posté un nouveau fichier corrigeant l'erreur, mon Edit 1 n'a plus lieu d'être

Bonsoir Forum

Mille excuses pour le retard.

Merci cousinhub et gibet78 pour vos solutions. Merci également de la part de mon épouse car en fait le petit programme lui est destiné.

Amicalement

Adrien