Ordonner des combobox déja remplie
Résolu
jubatail
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
jubatail Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
jubatail Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Ordonner des combobox déja remplie
- Comment ordonner une liste sur excel - Guide
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? - Forum Graphisme
- Combobox vba liste déroulante dynamique ✓ - Forum Excel
- Pixlr - Forum Graphisme
- Formulaire remplie - Guide
1 réponse
Bonjour,
code a mettre apres ordonner combo
'------------------------------------------------------
sub a ajouter
code a mettre apres ordonner combo
Dim t As Variant
t = Combo.List
Call TrierPlage(t)
Combo.List = t
'------------------------------------------------------
sub a ajouter
'
' Tri de Shell - Shell Sort adapté pour tri plage de cellules
'
Sub TrierPlage(plage As Variant, Optional ByVal loBound As Long = -1, Optional ByVal upBound As Long = -1)
Dim i As Long, j As Long, h As Long, v As Variant, t() As Variant
'mise en tableau de la plage de cellules
t = Application.Transpose(plage)
'debut de tableau
If loBound = -1 Then
loBound = LBound(t())
End If
'fin de tableau
If upBound = -1 Then
upBound = UBound(t())
End If
h = loBound
Do
h = 3 * h + 1
Loop Until h > upBound
Do
h = h / 3
For i = h + 1 To upBound
v = t(i): j = i
Do While t(j - h) > v
t(j) = t(j - h): j = j - h
If j <= h Then
Exit Do
End If
Loop
t(j) = v
Next i
Loop Until h = loBound
plage = Application.Transpose(t())
End Sub
Voici le code que j'ai utilisé mais le souci cest que j'ai du le copier coller 20 fois car j'ai 20 combobox !!!
For i = 0 To Me.ComboBox_CAT_1.ListCount - 1 For j = 0 To Me.ComboBox_CAT_1.ListCount - 1 If Val(ComboBox_CAT_1.List(i)) < Val(ComboBox_CAT_1.List(j)) Then strtemp = ComboBox_CAT_1.List(CInt(i)) ComboBox_CAT_1.List(i) = ComboBox_CAT_1.List(j) ComboBox_CAT_1.List(j) = strtemp End If Next j Next iEn effet il est plus court et le votre je comprends pas trop désolé ...
Peut être une iddée pour le réaliser directement dans toutes les comboboxs ?
copier coller 20 fois
Une seule fois suffit, remplacez ComboBox_CAT_1 par combo et mettez le code juste apres
'ordonner combobox
For j = 0 To combo.ListCount - 1 If Val(combo.List(i)) < Val(combo.List(j)) Then strtemp = combo.List(CInt(i)) combo.List(i) =combo.List(j) combo.List(j) = strtemp End If Next jle code que je vous ai mis est simple
Dim t As Variant t = Combo.List 'trsf de la liste combobox dans un tableau Call TrierPlage(t) 'appel de la sub de tri avec le tableau en parametre Combo.List = t 'trsf du tableau trie dans la combobox Sub TrierPlage() tri Shell rapide , vous trouverez les explications ici [https://fr.wikipedia.org/wiki/Tri_de_Shell]