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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
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
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
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
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" a écrit dans le message de news: #
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
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" <misange@devinez-ou.net> a écrit dans le message de news:
#ePkkcGIEHA.3356@TK2MSFTNGP11.phx.gbl...
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
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" a écrit dans le message de news: #
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
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
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
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
