Classement alpha dans une Combo

Bonjour à tous, bonjour Marcel,

J'ai bien mis ton code en place. Dans le MsgBox j'ai bien le nombre de tiers inscrits dans ma feuille, par contre en affichage des noms, j'ai 772 fois le même et c'est le dernier nom qui apparaît à chaque fois.

Merci par avance

Voici le code. Il fonctionne bien sur mon fichier exemple mis en pièce jointe.
Par contre, lorsque je le copie dans mon fichier original, je rencontre un problème.

Lorsque je clique sur le bouton pour ouvrir le Combo, un message d'erreur apparaît. "Dépassement de capacité"

Comment puis-je règler ce soucis ?
Merci par avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub UserForm_Initialize() Dim L As Byte, I As Byte, J As Byte, CIBLE As String   'alimentation des items de la combobox For L = 1 To Sheets("Tiers").Range("B65356").End(xlUp).Row CmbTiers.AddItem Sheets("Tiers").Range("B" & L) Next L   'tri For I = 0 To CmbTiers.ListCount For J = I + 1 To CmbTiers.ListCount - 1 If CmbTiers.List(I) > CmbTiers.List(J) Then CIBLE = CmbTiers.List(J) CmbTiers.List(J) = CmbTiers.List(I) CmbTiers.List(I) = CIBLE End If Next J Next I   End Sub

---

Relis ce qui précède.
Tu déclares à nouveau ta variable en "Byte" et non en "Long".
Pourquoi ?
De plus ta variable I est déclarée avec "Dim" en début de module, ce qui signifie qu'elle s'applique à tout ton module (Pour tout le projet, déclaration en "Public").

Essaie

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub UserForm_Initialize()   Dim L As Long, K As Long, J As Long, Cible As String Dim MonItem As Range   'alimentation des items de la combobox For L = 2 To Sheets("Tiers").Range("B65356").End(xlUp).Row Set MonItem = Sheets("Tiers").Range("B" & L) If Not IsEmpty(MonItem) Then CmbTiers.AddItem MonItem Next L Set MonItem = Nothing   'tri For K = 0 To CmbTiers.ListCount For J = K + 1 To CmbTiers.ListCount - 1 If CmbTiers.List(K) > CmbTiers.List(J) Then Cible = CmbTiers.List(J) CmbTiers.List(J) = CmbTiers.List(K) CmbTiers.List(K) = Cible End If Next J Next K   End Sub

---

J'ai essayé : le code est effectif.

Cordialement.

Marcel.

Juste une dernière chose. Vu le nombre de tiers qu'il y a dans ma feuille, 772, tous ne peuvent être affichés.
Est-il possible d'avoir le tableau en 2 ou 3 colonnes.
Merci par avance

Je n'ai pas encore pratiqué
Mais plusieurs discussions et/ou tutoriels à ce sujet.

http://silkyroad.developpez.com/VBA/ControlesUserForm/

http://www.developpez.net/forums/d80...eurs-colonnes/

http://www.developpez.net/forums/d40...rer-selection/

D'autre part, tu ne m'as pas donné le résultat du dernier code que je t'ai soumis. J'en déduis qu'il fonctionne.

Cordialement.

Marcel.

Oui, oui Marcel il fonctionne très très bien.
Je te présente mes excuses pour cette omission.

Je vais donc aller faire tour sur les sites que tu me proposes.
Merci sincèrement pour toute l'aide que tu m'as apporté.
Je te tiens informé du résultat de mes recherches.
Cordialement

Je suis donc allé sur les sites proposés, mais ils ne répondent pas à ma question.

Lorsque je clique dans ma Combo, une liste apparaît avec un certain nombre de noms, mais pas l'ingralité de ma liste.
Donc, dans le tableau qui s'ouvre à côté de mon Combo, j'aimerai que celui-ci présente 2 ou 3 colonnes afin d'avoir tous les noms de la liste (772).

Si cela n'est pas possible ce n'est pas très important, mais cela apporterai un petit plus.

Merci par avance

Règle la propriété ListRows de ton ComboBox sur 20 par exemple, à ce moment là il affichera 20 lignes avec une barre de défilement verticale permettant de visualiser les autres lignes.
Actuellement Listrows est réglée sur 0, raison pour laquelle ton Combo affiche toutes les lignes et vu que tu en as beaucoup, la longueur du combo dépasse la hauteur de ta feuille.

Bonjour Fring,

C'était tout bête et je n'y ai même pas pensé.
Merci beaucoup

Ps : C'est super enfin ça fonctionne correctement.

Merci à tous ceux qui ont participé à ce poste et plus particulièrement à Marcel
Amicalement