Tri alphabétique ComboBox

[Pom]

Bonjour le forum,

Je souhaiterai trier par ordre alphabétique une Combobox. Cela est-il possible ?

Voici le code qui alimente la ComboBox (code tiré et adapté d'un exemple téléchargé sur le forum et dont je ne retrouve plus l'auteur mille excuses !!)

Private Sub UserForm_Activate()

Set zone = Feuil1.Range('F6:F' & Feuil1.Range('F65536').End(xlUp).Row)

For Each cel In zone
If Categorie.ListCount > 1 Then
For x = 1 To Categorie.ListCount - 1
If cel.Value = Categorie.List(x) Then
GoTo suite
End If
Next x
End If
Categorie.AddItem cel
suite:
Next cel

End Sub

Merci

 

[titin]

bonsoir Pom

ce lien:
Lien supprimé

une démo super de thierry

 

[Pom]

Bonsoir titin,

Merci pour le lien, j'avais déjà vu cette démo, mais là ca dépace mes comptéténces.
c'est vrai que c'est excellent mais difficile à adapter pour un amateur comme moi.

Merci, et bonne soirée.

 

[Pom]

Bonsoir titin,

Merci pour le lien, j'avais déjà vu cette démo, mais là ca dépace mes comptéténces.
c'est vrai que c'est excellent mais difficile à adapter pour un amateur comme moi.

Merci, et bonne soirée.

 

[Dull]

Salut Pom, titin, le Forum

Sur un code 'emprunté' à Hervé

dans ton code remplace Combobox1 par Catégorie
j'éspère avoir pu t'aider

@+ :woohoo: [file name=Pom.zip size=9645]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Pom.zip[/file]

 

[Pom]

Salut Dull, le forum

Je viens de télécharger le fichier sur ma clé USB,( petite pause au boulot )... Ca corresponds bien à ce que je veux.

Merci de ton aide et bonne journée.