Tri combobox

[olive2.5]

Salut le forum,

Est-il possible de trier par ordre alphabétique les item d'un combobox ?

 

[Hervé]

Bonsoir

Une proposition en pièce jointe

Private Sub UserForm_Initialize()
Dim i As Byte

For i = 1 To 10
ComboBox1.AddItem Range('a' & i)
Next i

For i = 0 To ComboBox1.ListCount
    For j = i + 1 To ComboBox1.ListCount - 1
        If ComboBox1.List(i) > ComboBox1.List(j) Then
            Temp = ComboBox1.List(j)
            ComboBox1.List(j) = ComboBox1.List(i)
            ComboBox1.List(i) = Temp
        End If
    Next j
Next i

End Sub

Salut
[file name=Classeur1_20050425212548.zip size=9850]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050425212548.zip[/file]

 

[Hervé]

re

et voilà j'ai encore oublié de déclarer des variables, pourtant promis je le sais : option explicit

donc, ne pas oublié de déclarer :

dim j as byte
dim temp as string

je dois déclarer mes variables
je dois déclarer mes variables
je dois déclarer mes variables
je dois déclarer mes variables
je dois déclarer mes variables
je dois déclarer mes variables

j'arrete là ma copie des 100 lignes

Salut

 

[olive2.5]

Pas grave pour les variables, ça fonctionne très bien sans !

Merci beaucoup Hervé, @+

 

[Hervé]

re

oui, mais ca fonctionne mieux, avec.

Donc merci de corriger le code



Salut

Hervé

 

[WyLLoU]

Bin justement il me faut trier ma combo,mais je pige pas ce que t'as fait ??? Moi ma combo et rempli de nom,et je veux les classer par ordre alphabètique pour faciliter la recherche dans la combo... ya une technique pour ça???

 

[Hervé]

Re wyllou

Oui, la technique est décrite dans ce post.

pourrais tu fornir une pièce jointe, afin de voir à quoi correspond tes données.

salut

 

[Gipéhel]

Bonjour,
Merci Hervé, je sais trier mes Combo maintenant. JPL.

 

[Hervé]

Bonjour




de rien gipehel

salut