Sur une idée de SilkyRoad, au chapitre "Comment trier le contenu d'un ComboBox par ordre alphabétique ?",
le code suivant réalise dans un tableau() le tri alphabétique d'une plage de données.
Pour l'utiliser :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub TriAlpha() Dim i As Integer, j As Integer, Tablo As Variant Dim strTemp As String, tablo2 Tablo = Range("A2:A" & Range("A65535").End(xlUp).Row).Value ReDim tablo2(UBound(Tablo)) For i = 1 To UBound(Tablo) tablo2(i) = Tablo(i, 1) Next i For i = 1 To UBound(tablo2) For j = 1 To UBound(tablo2) If tablo2(i) < tablo2(j) Then strTemp = tablo2(i) tablo2(i) = tablo2(j) tablo2(j) = strTemp End If Next j Next i End Sub
On ne sait jamais, ça peut servir...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ComboBox1.List() = tablo2 'dans un userform Worksheets("Feuil1").ComboBox1.List() = tablo2 'dans une feuille de calculs
Partager