Combobox multi-colonnes affiche en tri decroissant

[marsoin38]

Bonjour,
Après pas mal de recherches, j'arrive a créer une combobox a 3 colonnes.Le problème c'est que l'affichage se fait en partant de la dernière ligne de mon tableau excel.
Hors ce tri n'est pas du tout souhaité.J'ai essayé un bout de code trouvé sur le net, mais le tri ne se fait alors que sur la premiere colonne ...

Si un d'entre vous pouvait m'aider à afficher ces lignes sans modifier l'ordre des données

Merci d'avance

Mon tableau Excel:
[TABLE="width: 189"]
[TR]
[TD]date[/TD]
[TD]champs1[/TD]
[TD]champs2[/TD]
[/TR]
[TR]
[TD="align: right"]23/10/2013[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]11[/TD]
[/TR]
[TR]
[TD="align: right"]23/10/2013[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]12[/TD]
[/TR]
[TR]
[TD="align: right"]23/10/2013[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]13[/TD]
[/TR]
[TR]
[TD="align: right"]23/10/2013[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]14[/TD]
[/TR]
[TR]
[TD="align: right"]24/10/2013[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]15[/TD]
[/TR]
[TR]
[TD="align: right"]24/10/2013[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]16[/TD]
[/TR]
[TR]
[TD="align: right"]25/10/2013[/TD]
[TD="align: right"]7[/TD]
[TD="align: right"]17[/TD]
[/TR]
[TR]
[TD="align: right"]25/10/2013[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]18[/TD]
[/TR]
[TR]
[TD="align: right"]25/10/2013[/TD]
[TD="align: right"]9[/TD]
[TD="align: right"]19[/TD]
[/TR]
[TR]
[TD="align: right"]25/10/2013[/TD]
[TD="align: right"]10[/TD]
[TD="align: right"]20[/TD]
[/TR]
[/TABLE]

Le code:
Public Sub UserForm_Initialize()
Dim Index As Long, date_op As String
nb_ope = Cells(1, 1).End(xlDown).Row
Index = ComboBox1.ListCount
Index = 0
For i = 2 To nb_ope
Call ComboBox1.AddItem(i, Index)
date_op = Cells(i, 1)
champs1_op = Cells(i, 2)
champs2_op = Cells(i, 3)
ComboBox1.List(Index, 0) = date_op
ComboBox1.List(Index, 1) = champs1_op
ComboBox1.List(Index, 2) = champs2_op
Next i
End Sub

 

[Hervé]

Re : Combobox multi-colonnes affiche en tri decroissant

salut🙂

dans ton code tu ne fais pas varier ton index puisque celui ci est initié à 0 dès le début du code, replace le dans la boucle :

For i = 2 To nb_ope
Index = ComboBox1.ListCount

sinon, un autre code pour alimenter une combobox :

With ComboBox1
    .Clear
    .ColumnCount = 3
    .List = Range("a2:c" & Range("a65536").End(xlUp).Row).Value
End With

a plus

 

[marsoin38]

Re : Combobox multi-colonnes affiche en tri decroissant

C'est OK maintenant.

Merci beaucoup Hervé.