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:
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
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:
date | champs1 | champs2 |
23/10/2013 | 1 | 11 |
23/10/2013 | 2 | 12 |
23/10/2013 | 3 | 13 |
23/10/2013 | 4 | 14 |
24/10/2013 | 5 | 15 |
24/10/2013 | 6 | 16 |
25/10/2013 | 7 | 17 |
25/10/2013 | 8 | 18 |
25/10/2013 | 9 | 19 |
25/10/2013 | 10 | 20 |
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