trier un array par ordre alpha

Le
Misange
Re coucou,
à partir d'une liste à sélection multiple je récupère dans un tableau
(array) les valeurs sélectionnées. J'y a joute éventuellement deux ou
trois éléments. Je voudrais trier l'ensemble des élements de ce tableau
par ordre alphabétique sans avoir à copier les données dans un coin de
feuille. que faut-il faire ?
cinq you
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FxM
Le #1279179
Bonjour Misange,

N'étant pas encore au stade des sélections dans les listboxes :o) voici
un exemple fait à partir de cellules.

Sub trie_array()
Dim sc As Integer, arr
Dim a As Integer, b As Integer
If Selection.Count = 1 Then
MsgBox "rien à trier ;o)": Exit Sub
End If
sc = Selection.Count
ReDim arr(0 To sc)
For a = 1 To sc
arr(a) = Selection(a)
Next a
Stop
For a = 1 To sc - 1
For b = a + 1 To sc
If arr(a) > arr(b) Then
arr(0) = arr(a)
arr(a) = arr(b)
arr(b) = arr(0)
arr(0) = ""
End If
Next b
Next a
Stop
End Sub

@+
FxM


Misange wrote:

Re coucou,
à partir d'une liste à sélection multiple je récupère dans un tableau
(array) les valeurs sélectionnées. J'y a joute éventuellement deux ou
trois éléments. Je voudrais trier l'ensemble des élements de ce tableau
par ordre alphabétique sans avoir à copier les données dans un coin de
feuille. que faut-il faire ?
cinq you


Pascal Engelmajer
Le #1279170
salut Misange,
j'ai traité ce sujet dans :
http://www.ilyapa.net/excel/excel02.html

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Misange" #
Re coucou,
à partir d'une liste à sélection multiple je récupère dans un tableau
(array) les valeurs sélectionnées. J'y a joute éventuellement deux ou
trois éléments. Je voudrais trier l'ensemble des élements de ce tableau
par ordre alphabétique sans avoir à copier les données dans un coin de
feuille. que faut-il faire ?
cinq you
--

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Misange
Le #1239969
merci à tous les deux ! ;-)

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


Re coucou,
à partir d'une liste à sélection multiple je récupère dans un tableau
(array) les valeurs sélectionnées. J'y a joute éventuellement deux ou
trois éléments. Je voudrais trier l'ensemble des élements de ce tableau
par ordre alphabétique sans avoir à copier les données dans un coin de
feuille. que faut-il faire ?
cinq you


Publicité
Poster une réponse
Anonyme