cafiniou13
XLDnaute Nouveau
Bonjour à tous,
Je sais d'avance que certains diront que ma question est un cas d'école, et qu'il y a des réponses dans la FAQ du site ou sur google, mais j'avoue qu'après pas mal de recherches, je n'arrive pas à m'en sortir.
Please, lisez au moins mon cas avant de m'envoyer bouler.
J'ai un UserForm avec une listBox, que j'alimente avec la solution AddItem.
Les données, issues de la feuille de calcul "BD form", sont en fait mes titres de colonnes (soit la zone de B1 à Z1).
J'ai réussi à alimenter ma listebox, mais les données ne sont pas classées par ordre alphabétique.
Voici mon code :
Pourriez vous me donner un coup de main. Tous les exemples que j'ai vu sont basé sur des listes qui sont sur une même colonne.
Au fait, dois-je préciser que je débute ?
Merci d'avance à ceux qui se pencheront sur le sujet.
A+ (enfin j'espère)
Je sais d'avance que certains diront que ma question est un cas d'école, et qu'il y a des réponses dans la FAQ du site ou sur google, mais j'avoue qu'après pas mal de recherches, je n'arrive pas à m'en sortir.
Please, lisez au moins mon cas avant de m'envoyer bouler.
J'ai un UserForm avec une listBox, que j'alimente avec la solution AddItem.
Les données, issues de la feuille de calcul "BD form", sont en fait mes titres de colonnes (soit la zone de B1 à Z1).
J'ai réussi à alimenter ma listebox, mais les données ne sont pas classées par ordre alphabétique.
Voici mon code :
Code:
Private Sub UserForm_Initialize()
Dim BDF As Worksheet
Dim l As Range
Dim t_prem As Range, t_dern As Range
Set BDF = Worksheets("BD form")
Set t_prem = BDF.Range("B1")
Set t_dern = BDF.Range("IV1").End(xlToLeft)
' Récupère les formations pour la liste multichoix
ListBox1.ColumnCount = 2
ListBox1.Clear
For Each l In BDF.Range(t_prem, t_dern)
If l.Value <> "" Then
ListBox1.AddItem l.Column
ListBox1.List(ListBox1.ListCount - 1, 1) = l.Value
End If
Next
End Sub
Pourriez vous me donner un coup de main. Tous les exemples que j'ai vu sont basé sur des listes qui sont sur une même colonne.
Au fait, dois-je préciser que je débute ?
Merci d'avance à ceux qui se pencheront sur le sujet.
A+ (enfin j'espère)
Dernière édition: