Tri dans une ComboBox

Version imprimable

Bonjour au Forum ,

Mon problème du jour se situe dans le tri d'une ComboBox
en fait , je souhaite trier dans l'ordre croissant ma liste de presentation
or mon combobox possède 2 colonnes , l'une pour les données et l'autre
pour le N° de ligne
Lorsque je selectionne ma donnée , çà se plante dlans la liste Index et j'avoue ne pas savoir quoi faire pour m'en sortir

voici le code utilisé
1 ) d'abord l'init de la combobox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Dim temp '----- definition de ComboBox1 à 2 colonnes With Me.ComboBox1 .ColumnCount = 2 .ColumnWidths = .Width - 2 & ";0" End With '-- Remplissage de la ComboBox1 sans doublons Set T = CreateObject("Scripting.Dictionary") With Sheets("B") For Each c In .Range("M2", .Cells(Rows.Count, 13).End(xlUp)) With Me.ComboBox1 If c.Offset(0, 0) <> Empty Then .AddItem c.Offset(0, 0) .List(.ListCount - 1, 1) = c.Row T.Item(c.Value) = c.Value End If End With Next c End With temp = T.items Tri temp, LBound(temp), UBound(temp) ' tri dans l'ordre croissant des données Me.ComboBox1.List = temp
2) puis lors de la selection , l'objet du plantage

"Impossible de lire la propriété List : Argument non valide "
Code:

1 2 3 Private Sub ComboBox1_Change() If Me.ComboBox1.ListIndex > -1 Then LigBase = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
Pourtant à l'affichage ma liste est triée , mais je pense que ma colonne 2 n'est pas réactualisée correctement d'où peut-être le pb ...:calim2::calim2:

Votre aide me serait d'un grand secours

Mille mercis par avance
A+

06/11/2010, 20h14
patricktoulon

heuh!!!

bonjour

deja la il y a un truc que je ne comprend pas tres bien

"If c.Offset(0, 0) <> Empty Then" 0 et 0 sinifie que tu parle de la celule elle meme donc a quoi sert le offset

au plaisir
06/11/2010, 23h21
cobra38

RE

Merci pour ta reponse patricktoulon

L'offset me sert à eliminer les cellules vides pour avoir une liste
homogène , c'est cette même liste que je souhaite triéer dans le sens croissant
mais bien sûr avec les n° de lignes appairées ( 2ieme colonne ) et c'est là que je ne sais plus faire:cry::cry:

en fait j'ai un combobox avec 2 colonnes
la première comporte mes données à choisir
la seconde les N° de lignes des données

si je trie la première , la seconde doit suivre mais là çà se plante...

j'espère avoir été un tout petit peu plus clair

Cordialement ;)
A+

Bonjour,
Si tu as des doublons dans la source données de ta combo, la 2ème colonne de combobox1 sera remplie par la ligne de la dernière donnée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub UserForm_Initialize()
Dim Collect As New Collection
Dim c As Range
Dim Temp() As String
Dim i As Integer
 
'----- definition de ComboBox1 à 2 colonnes
With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = .Width - 2 & ";0"
End With
 
With Sheets("B")
    For Each c In .Range("M2", .Cells(Rows.Count, 13).End(xlUp))
        On Error Resume Next
        Collect.Add c.Value, c.Value
        On Error GoTo 0
    Next c
    For i = 1 To Collect.Count
        ReDim Preserve Temp(1 To 2, 1 To i)
        Temp(1, i) = Collect.Item(i)
    Next i
 
Tri Temp(), 1, UBound(Temp, 2)
 
For i = 1 To UBound(Temp, 2)
    Set c = .Range("M2", .Cells(Rows.Count, 13).End(xlUp)).Find(Temp(1, i), lookat:=xlWhole, SearchDirection:=xlPrevious)
    Temp(2, i) = c.Row
    Set c = Nothing
Next i
End With
Me.ComboBox1.List = Application.Transpose(Temp())
 
End Sub
 
'QuickSort
Public Sub Tri(Tablo() As String, ByVal Deb As Long, ByVal Fin As Long)
Dim Moy As String, Mx As String, Mn As String
Dim i As Long
 
If Deb >= Fin Then Exit Sub
i = Int((Fin - Deb + 1) * Rnd + Deb)
Moy = Tablo(1, i)
Tablo(1, i) = Tablo(1, Deb)
Mn = Deb: Mx = Fin
Do
    Do While Tablo(1, Mx) >= Moy
        Mx = Mx - 1
        If Mx <= Mn Then Exit Do
    Loop
    If Mx <= Mn Then
        Tablo(1, Mn) = Moy
        Exit Do
    End If
    Tablo(1, Mn) = Tablo(1, Mx)
    Mn = Mn + 1
    Do While Tablo(1, Mn) < Moy
        Mn = Mn + 1
        If Mn >= Mx Then Exit Do
    Loop
    If Mn >= Mx Then
        Mn = Mx
        Tablo(1, Mx) = Moy
        Exit Do
    End If
    Tablo(1, Mx) = Tablo(1, Mn)
Loop
Tri Tablo(), Deb, Mn - 1
Tri Tablo(), Mn + 1, Fin
End Sub

07/11/2010, 14h58
cobra38

RE

Merci mercatog

je digère d'abord.....
mais pour une meilleure comprehension :calim2:
peux-tu m'expliquer le terme "collect" que tu as employé
j'avoue ne pas connaitre ce terme
et surtout sa finalité

tu dis ..

Citation:

Si tu as des doublons dans la source données de ta combo, la 2ème colonne de combobox1 sera remplie par la ligne de la dernière donnée

Serait-ce la cause du palntage ?

merci en tout cas pour ta proposition
je te recontacte ...après digestion lol

Cordialement
A

J'avais utilisé une collection pour "gérer" les doublons. sinon une autre proposition reprenant le scripting.dictionary

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub UserForm_Initialize()
Dim MonDico As Object
Dim c As Range
Dim Temp() As String, TabVal() As String, TabRw() As Long
Dim i As Integer
 
With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = .Width - 2 & ";0"
End With
With Sheets("B")
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In .Range("M2", .Cells(Rows.Count, 13).End(xlUp))
        If Not MonDico.exists(c.Value) And c.Value <> "" Then
            i = i + 1
            MonDico(c.Value) = c.Value
            ReDim Preserve TabVal(1 To i)
            TabVal(i) = c.Value
            ReDim Preserve TabRw(1 To i)
            TabRw(i) = c.Row
        End If
    Next c
    ReDim Temp(1 To 2, 1 To MonDico.Count)
    For i = 1 To MonDico.Count
        Temp(1, i) = TabVal(i)
        Temp(2, i) = TabRw(i)
    Next i
    Tri Temp(), 1, UBound(Temp, 2)
End With
Me.ComboBox1.List = Application.Transpose(Temp())
 
End Sub
'QuickSort tableau à 2 dimensions
Public Sub Tri(Tablo() As String, ByVal Deb As Long, ByVal Fin As Long)
Dim Moy As String, Mx As String, Mn As String
Dim i As Long, Rw As Long
 
If Deb >= Fin Then Exit Sub
i = Int((Fin - Deb + 1) * Rnd + Deb)
Moy = Tablo(1, i)
Rw = Tablo(2, i)
Tablo(1, i) = Tablo(1, Deb)
Tablo(2, i) = Tablo(2, Deb)
Mn = Deb: Mx = Fin
Do
    Do While Tablo(1, Mx) >= Moy
        Mx = Mx - 1
        If Mx <= Mn Then Exit Do
    Loop
    If Mx <= Mn Then
        Tablo(1, Mn) = Moy
        Tablo(2, Mn) = Rw
        Exit Do
    End If
    Tablo(1, Mn) = Tablo(1, Mx)
    Tablo(2, Mn) = Tablo(2, Mx)
    Mn = Mn + 1
    Do While Tablo(1, Mn) < Moy
        Mn = Mn + 1
        If Mn >= Mx Then Exit Do
    Loop
    If Mn >= Mx Then
        Mn = Mx
        Tablo(1, Mx) = Moy
        Tablo(2, Mx) = Rw
        Exit Do
    End If
    Tablo(1, Mx) = Tablo(1, Mn)
    Tablo(2, Mx) = Tablo(2, Mn)
Loop
Tri Tablo(), Deb, Mn - 1
Tri Tablo(), Mn + 1, Fin
End Sub

03/12/2010, 11h25
cobra38

Bonjour mercatog

Je te pris de m'excuser , je n'ai pas pu te remercier pour tes réponses
suite à une gros pb de FAI

J'ai digéré (lol) et cela me va très bien

je clos donc ici ma demande
merci encore

A+ :ccool: