Affichage en doublons dans le sous menus

[jlp035]

Bonjour,
Dans un menu déroulant j'ai un affichage en doublons de données dans le sous menu.
Que faut 'il modifié pour l'éviter en ayant également un classement alphabétique.
Le bout de programme en pièce jointe.

Merci pour votre aide.

Jean-Luc

 

[Staple1600]

Re : Affichage en doublons dans le sous menus

Bonsoir à tous

jlp035
Voir ceci dans la FAQ du forum

 

[jlp035]

Re : Affichage en doublons dans le sous menus

Bonsoir Staple1600,
Je te remercie pour ta prompt réponse, cependant avant de poster j'étais déjà passé sur le forum et je n'ai pas trouver de programme que je puisse adapter compte tenu de mon faible niveau en vba.
si tu a le temps peux tu regarder mon bout de programme.
Merci
Jean-Luc

 

[Paf]

Re : Affichage en doublons dans le sous menus

Bonjour à tous

Une solution possible:
Dans Private Sub majChoixX() de la userform, remplacer le code entre If L > 1 Then et End If par:

            ' tri données uniques
            Dim MonDico
            Set MonDico = CreateObject("Scripting.Dictionary")
            For Each Cel In .Range(.Cells(2, C), .Cells(L, C))
                If Cel.Value <> "" Then MonDico(Cel.Value) = ""
            Next Cel
            Me.ChoixX.List = MonDico.Keys
            ' fin tri

L'usage de Scripting.Dictionary nécessite d'ajouter par l'éditeur VBE la référence : Microsoft Scripting Runtime.

Bonne suite

 

[jlp035]

Re : Affichage en doublons dans le sous menus ( RESOLU )

Bonjour PAF,
Je te remercie pour ta réponse qui fonctionne parfaitement.
Je vais donc passé au problème suivant.

Amicalement
Jean-Luc