combo box et tri alphabétique

Titoy · 8 Avril 2009

Bonjour Le Forum,

Aujourd'hui je tente de comprendre le fonctionnement d'une combo box dans un userform.

Lorsque je lance ma macro, mon userform se lance correctement, la liste est bien présente, cependant j'essai que la liste soit trier par ordre alphabétique.

bien entendue, il existe déjà plein de topic dessus mais je n'arrive pas à appliquer les méthodes.
exemple

alors entre les différent code qui permettrait de réussir ce petit tour de passe passe,

comment me conseillerez vous de procéder afin de réussir dans mon fichier (ci-joint) ?

Merci d'avance

Bien cordialement

TITOY

BOISGONTIER · 8 Avril 2009

Re : combo box et tri alphabétique

Bonjour,

Listes Triées

JB

Titoy · 8 Avril 2009

Re : combo box et tri alphabétique

Merci BOISGONTIER,

Ton site est très bien fait,sa va m'aider pour la suite,

J'ai utilisé ce code pour mon programme

Code:

Private Sub UserForm_Initialize()
 ' trié
 For i = 1 To Range("nom").Count
    j = 0
    Do While Range("nom")(i) > Me.ComboBox1.List(j) And j < Me.ComboBox1.ListCount - 1
       j = j + 1
    Loop
    Me.ComboBox1.AddItem Range("nom")(i), _
      IIf(Range("nom")(i) > Me.ComboBox1.List(Me.ComboBox1.ListCount - 1), j + 1, j)
 Next i
End Sub

Cependant j'ai un soucis avec les cellules vides

JE me retrouve avec un gros blanc dans ma liste avant de pouvoir accéder au Nom

COmment je peux faire ?

MErci d'avance

BOISGONTIER · 8 Avril 2009

Re : combo box et tri alphabétique

Voir PJ

JB

Titoy · 8 Avril 2009

Re : combo box et tri alphabétique

Je me suis mal exprimé JP,

Désolé,

en faite le code, sa j'ai réussi à l'appliquer, par contre si j'insère des ligne entre les noms pour saisir des information diverses, je me retrouve avec des blancs

BOISGONTIER · 8 Avril 2009

Re : combo box et tri alphabétique

Voir PJ

JB

Titoy · 8 Avril 2009

Re : combo box et tri alphabétique

Merci JP,

SA marche parfaitement sur le programme d'essai,

Reste plus qu' je trouve la manière pour l'appliquer sur mon programme,

Bonne journée

A bientôt

TONY

combo box et tri alphabétique

Titoy

XLDnaute Junior

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Titoy

XLDnaute Junior

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Titoy

XLDnaute Junior

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Titoy

XLDnaute Junior

Discussions similaires