Trie

[analyseaux]

Bonjour

Est il possible pour qu'une liste déroulante se trie au fur et à mesure de façon automatique.
MERCI D'AVANCE

 

[sousou]

Re : Trie

Bonjour analyseaux.
Ici une procédue que j'utilise pour trier des listebox
le paramètre est une listbox

Cordialement

'procédure de trie d'une listebox


Sub trie(liste)
n = liste.ListCount
ReDim matable(n)

For i = 0 To n - 1
'Si les valeur sont numériques
If IsNumeric(liste.List(i)) = True Then
k1 = Val(liste.List(i))
'__________Si alpha_______
Else
k1 = LCase(liste.List(i))
End If
If k1 > maxi Then
matable(i) = k1
maxi = k1
Else
k = 0
While k1 > matable(k)
k = k + 1
Wend
'décallage
For z = i To k Step -1
matable(z + 1) = matable(z)
Next
matable(k) = k1
Application.StatusBar = i
End If
Next
liste.List() = matable

End Sub

 

[analyseaux]

Re : Trie

la mienne est une liste déroulante ordinaire

 

[sousou]

Re : Trie

Ok
Mais la mienne aussi

 

[analyseaux]

Re : Trie

voulez vous bien me transmettre un exemple si ce n'est pas trop vous demander.

 

[sousou]

Re : Trie

RE
Je pense que le plus simple est que nous transmette un modèle de ce que tu souhaite, afin de savoir comment tu utilise ta listbox, sur une feuiile, sur un user form au autre, et comment elle est initialisée et ou modifiée.