Discussion :

[marycaLou]

Bonjour,

J'ai une macro qui ouvre un formulaire. Dans ce formulaire, j'ai une liste déroulante (combobox) dans laquelle j'ajoute des informations provenant d'un fichier TXT ou si l'info recherchée n'est pas dans la liste, l'utilisateur peut cliquer sur un bouton pour rechercher l'infos. Lorsque l'utilisateur à terminer, si la valeur sélectionnée ou ajoutée n'est pas incluse dans le fichier TXT, elle sera ajoutée.

Mon problème est que cette liste n'est pas triée. Comment faire pour la trier lorsqu'elle afiche les données dans le combobox ?

Voici le code pour enregsitrer le fichier TXT:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    ' Ouvre le fichier en lecture pour la liste des chemins historiques.
    Open stPath For Input As #1  'intFic
    '  Vider le combobox du fichier historique
    cboHistorique.Clear
    ' Remplir le combobox du fichier historique
    While Not EOF(1)  '(intFic)
        Input #1, strLigne, intFic
        cboHistorique.AddItem strLigne
        intCpt = intCpt + 1
    Wend
    Close #1 'intFic

et voici pour remplir le ComboBox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
   intFic = 1 ' FreeFile
    intCpt = 1
    ' Ouvre le fichier en lecture pour la liste des chemins historiques.
    Open stPath For Input As #1  'intFic
    '  Vider le combobox du fichier historique
    cboHistorique.Clear
    ' Remplir le combobox du fichier historique
    While Not EOF(1)  '(intFic)
        Input #1, strLigne, intFic
        cboHistorique.AddItem strLigne
        intCpt = intCpt + 1
    Wend
    Close #1 'intFic

Merci.

[Oliv-]

Bonjour,
Pour trier un COMBOBOX c'est la même chose que pour EXCEL, tu trouveras ton bonheur facilement

[marycaLou]

Je veux bien vous croire, mais je ne connais pas la programmation Excel. Je connais très peu Excel.

Donc, je réitère ma question, comment trier le contenu d'un comboBox ?

[Oliv-]

regarde ici

[marycaLou]

Merci.
Mais le lien n'a pas fonctionné.

Par contre, j'ai trouvé l'information grâce aux coordonnées du lien.
Voici le code trouvé.

Comment trier les items qui apparaissent dans une combobox ou une liste ?
Ajoute la fonction listsort à ton projet (dans un module standard) et appelle la par la ligne suivante : Me.ComboBox1.List = ListSort(Me.ComboBox1.List)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' ****************************************
Function ListSort(liSte) '  Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
    For j = i + 1 To Last
        If liSte(i, 0) > liSte(j, 0) Then
            Temp = liSte(j, 0)
            liSte(j, 0) = liSte(i, 0)
            liSte(i, 0) = Temp
        End If
    Next j
Next i
ListSort = liSte
 
End Function