trier combobox

lynyrd · 18 Août 2011

Bonjour le forum
Je souhaiterais trier alphabètiquement la combobox sans qu'il y ait d'incidence sur les autres cellules (j'ai une 3ème feuille dont les cellules sont liées avec la feuille2).
j'ai essayé d'adapter le code de Mr boisgontier mais ca ne fonctionne pas.

Private Sub UserForm_Initialize()
Dim temp()
Set f = Sheets("Feuil2")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
Next c
temp = MonDico.items
Call tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
End Sub

Sub tri(a(), gauc, droi) ' Quick sort
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

Quelqu'un aurait t'il une petite idée ?
Merci.

pierrejean · 18 Août 2011

Re : trier combobox

Bonjour lynyrd

Curieux !!
Ca m'a pourtant l'air de fonctionner
Je prefere cependant

Code:

If c.Value <> "" Then MonDico(c.Value) = c.Value

a

Code:

If c.Value <> "" Then MonDico.Item(c.Value) = c.Value

forsanta · 18 Août 2011

Re : trier combobox

Code:

Dim x, i, j, temp

With ComboBox
    
    ' trie alphabetiques de noms
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                temp = .List(j)
                .List(j) = .List(i)
                .List(i) = temp
            End If
        Next j
    Next i
    
    ' suppression des doublons
    For i = 0 To .ListCount - 1
        For j = .ListCount - 1 To i + 1 Step -1
            If UCase(.List(i)) = UCase(.List(j)) Then .RemoveItem (j)
        Next j
    Next i
   
If .ListCount > 0 Then .ListIndex = 0
End With

BOISGONTIER · 18 Août 2011

Re : trier combobox

Bonjour,

Tri à bulle hyper-lent à éviter!

Code:

Dim x, i, j, temp
With ComboBox    
    ' trie alphabetiques de noms
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                temp = .List(j)
                .List(j) = .List(i)
                .List(i) = temp
            End If
        Next j
    Next i

Tri quick sort

JB

forsanta · 18 Août 2011

Re : trier combobox

ha si tu a un trie plus rapide je prend !!!!

pierrejean · 18 Août 2011

Re : trier combobox

Re

voir ici

Tri rapide - Wikipédia

forsanta · 18 Août 2011

Re : trier combobox

autant pour moi j'avais pas vue le lien dans ton post précédent !!

pierrejean · 18 Août 2011

Re : trier combobox

Re

Pas etonnant , il n'y etait pas !
Notre ami JB omet seulement de citer le nom du createur de ce tri

forsanta · 18 Août 2011

Re : trier combobox

merci JB et pierrejean sa va me permettre d’accélérer certaine partis de mon projet !!

BOISGONTIER · 18 Août 2011

Re : trier combobox

>Notre ami JB omet seulement de citer le nom du créateur de ce tri
C'est de notoriété publique: Google -> quicksort 1 630 000 résultats

JB

lynyrd · 18 Août 2011

Re : trier combobox

Re Bonsoir
Dans lexemple de pierrejean j'ai un message d'ereur :
erreur d'execution
'-2147024809 (80070057)'
impossible de lire la propriété list argument non valide

et la ligne"Controls("TextBox" & i) = Sheets("feuil2").Cells(.List(.ListIndex, 1), i)" est surlignée en jaune.

trier combobox

lynyrd

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

forsanta

XLDnaute Nouveau

BOISGONTIER

XLDnaute Barbatruc

forsanta

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

forsanta

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

forsanta

XLDnaute Nouveau

BOISGONTIER

XLDnaute Barbatruc

lynyrd

XLDnaute Impliqué

Discussions similaires

trier combobox

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency