Bonjour à tous.
Je résume
j'ai un tableau qui est rempli de façon aléatoire.
J'ai créé un combobox afin d'avoir une liste déroulante supprimant les lignes vides.
Jusque là c'est ok.
Mais je souhaite que cette liste soit classée par ordre alphabétique et là, j'ai eu beau tourner le code dans tout les sens ... Je ne suis arrivée à rien.
Voici mon code.
Est ce que quelqu'un aurait une solution ou une piste ?
Je vous remercie
Cordialement
Je résume
j'ai un tableau qui est rempli de façon aléatoire.
J'ai créé un combobox afin d'avoir une liste déroulante supprimant les lignes vides.
Jusque là c'est ok.
Mais je souhaite que cette liste soit classée par ordre alphabétique et là, j'ai eu beau tourner le code dans tout les sens ... Je ne suis arrivée à rien.
Code:
Sub listederoulante()
Dim tablo(1 To 9)
Dim j As Integer
tablo(1) = Range("A4:A28").Value
tablo(2) = Range("A31:A58").Value
tablo(3) = Range("A61:A88").Value
tablo(4) = Range("A91:A118").Value
tablo(5) = Range("A122:A148").Value
tablo(6) = Range("A151:A178").Value
tablo(7) = Range("A181:A208").Value
tablo(8) = Range("A211:A238").Value
tablo(9) = Range("A241:A267").Value
For I = 1 To 9
For a = 1 To UBound(tablo(I))
If tablo(I)(a, 1) <> "" Then ComboBox1.AddItem tablo(I)(a, 1)
Next
Next
End Sub
Est ce que quelqu'un aurait une solution ou une piste ?
Je vous remercie
Cordialement