Utilisation de l’objet «System.Collections.ArrayList"

Bonjour,
Je viens de découvrir un outil très puissant que pour gérer des listes de chaînes de texte (String) l'objet « System.Collections.ArrayList ». Il possède des méthodes qui permettent de faire des tris en ordre alphabétique ou alphabétique inverse d’une façon simple.

Je l’utilise avec un tableau structuré de 2 colonnes dans la première le NOM dans la seconde le PRÉNOM, pour alimenter un contrôle ListBox mais à l’initialisation de l’UserForm celui-ci n’est pas trier par ordre alphabétique.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() Dim Liste As Object Dim xItem Dim rg As Range 'Alimenter la liste Set Liste = CreateObject("System.Collections.ArrayList") Set rg = Range("Tableau2") For Each c In rg Liste.Add c.Text 'il faut utiliser .Text sinon impossible de trier car on envoie un "range" Next c '=== liste des items triés en ordre alphabétique=== Liste.Sort For Each xItem In Liste ListBox1.List = rg.Value Next End Sub

---

Pouvez-vous m’expliquer pourquoi.

Merci d’avance pour votre aide.

hello,

Citation:

---

Envoyé par modus57

Je l’utilise avec un tableau structuré de 2 colonnes dans la première le NOM dans la seconde le PRÉNOM, pour alimenter un contrôle ListBox mais à l’initialisation de l’UserForm celui-ci n’est pas trier par ordre alphabétique.
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub UserForm_Initialize() Dim Liste As Object Dim xItem Dim rg As Range 'Alimenter la liste Set Liste = CreateObject("System.Collections.ArrayList") Set rg = Range("Tableau2") For Each c In rg Liste.Add c.Text 'il faut utiliser .Text sinon impossible de trier car on envoie un "range" Next c '=== liste des items triés en ordre alphabétique=== Liste.Sort For Each xItem In Liste ListBox1.List = rg.Value Next End Sub

---

Pouvez-vous m’expliquer pourquoi.

---

tu dois pas être trop bien réveillé Modus57 8O car regarde bien ta boucle :

Code:

---

1 2 3

For Each xItem In Liste ListBox1.List = rg.Value Next

---

tu ne te sers pas de xItem pour remplir ta ListBox. En fait ce ce que tu fais c'est que tu remplis ta ListBox avec le contenu du tableau plusieurs fois.
Ami calmant, J.P

Bonjour,

Citation:

---

Je l’utilise avec un tableau structuré de 2 colonnes dans la première le NOM dans la seconde le PRÉNOM, pour alimenter un contrôle ListBox mais à l’initialisation de l’UserForm celui-ci n’est pas trier par ordre alphabétique.

---

donc tu charges invariablement les Nom et les Prénom les un en dessous des autre? c'es bien ce que tu veux faire?

et de surcroit ArrayList n'interdit pas le doublons sans vérification de l'existant!
https://www.gcexcel.com/createobject...ons-arraylist/

Code:

---

1 2 3 4 5 6

Set Liste = CreateObject("System.Collections.ArrayList") Set rg = Range("Tableau2") For Each c In rg Liste.Add c.Text 'il faut utiliser .Text sinon impossible de trier car on envoie un "range" Next c Liste.Sort

---

Pièce jointe 628791 Pièce jointe 628792

Bonjour Thumb down, jurassic pork,

Comme je l'ai dis je ne connaissais pas l'objet "System.Collections.ArrayList".

Par curiosité je pensais l'utiliser dans une ListBox pour sa simplicité de tri par ordre alphabétique après suppression des doublons dans le tableau.

J'ai été sur le lien et cite l'avis de BOISGONTIER :

Citation:

---

C’est un objet de System.Collections.ArrayList. Il n’est pas disponible sur toutes les versions.
Il peut être remplacé par Dictionary (plus rapide)

---

Si ça charges les Nom et les Prénom les un en dessous des autre, aucun intérêt de remplir une ListBox de cette manière à l'initialisation d'un UserForm.

Le contrôle ListView ( dans Microsoft Windows Common Controls 6.0) permet de faire du tri dans les colonnes de ses éléments :

Pièce jointe 628800

@modus57 que veux tu faire exactement ?

Charger une listeBox avec les noms et prénoms dans des colonnes respective trié par ordre alphabétique et sans doublons ?

Explicite ta demande !

Pour info c'est ton code qui charge bizarrement la arryliste!

Code:

---

1 2 3

For Each c In rg Liste.Add c.Text 'il faut utiliser .Text sinon impossible de trier car on envoie un "range" Next c

---

Bonjour, :D

J’ai oublié de préciser que j’ai installé Excel 64 bits et ListView ne fonctionne pas sur 64 bits, pour utiliser celui-ci il faut que je désinstalle Office 64 bits et que je réinstalle en 32 bits.

Je répète que par simple curiosité j’espérai alimenter un contrôle ListBox avec les données triées et sans doublons d’un tableau structuré de 2 colonnes dans la première le NOM dans la seconde le PRÉNOM en utilisant l’objet CreateObject("System.Collections.ArrayList").

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub UserForm_Initialize() With Me.ListBox1 .List = NomPnom .ColumnCount = 2 .BoundColumn = 2 End With End Sub   Function NomPnom() As String() Dim Liste As Object, I As Integer, T As String Set Liste = CreateObject("System.Collections.ArrayList") With [Tableau2] For I = 1 To .Rows.Count T = .Cells(I, "A") & ";" & .Cells(I, "B") If Liste.IndexOf(T, 0) = -1 Then Liste.Add T Next End With Liste.Sort Dim Tb() As String ReDim Tb(Liste.Count - 1, 1) For I = 0 To Liste.Count - 1 Tb(I, 0) = Split(Liste(I), ";")(0) Tb(I, 1) = Split(Liste(I), ";")(1) Next NomPnom = Tb End Function

---

Bonjour Thumb down,

Waouh 🤩 super simple et efficace pour populer une ListBox ou un ComboBox.

Merci beaucoup pour cette participation, certains savent forger nativement et d’autres forger pour devenir forgerons

Bonjour Thumb down, :D

Si j'ajoute une troisième colonne "Âge" au tableau structuré, je n'arrive pas avec la fonction "Split" à alimenter la ListBox ? :calim2: :weird:

Citation:

---

Envoyé par modus57

Bonjour Thumb down, :D

Si j'ajoute une troisième colonne "Âge" au tableau structuré, je n'arrive pas avec la fonction "Split" à alimenter la ListBox ? :calim2: :weird:

---

Bonjour,
pas de problème voila la correction!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub UserForm_Initialize() With Me.ListBox1 .List = NomPnom .ColumnCount = UBound(.List, 2) + 1 .BoundColumn = UBound(.List, 2) + 1 End With     End Sub Function NomPnom() As String() Dim Liste As Object, I As Integer, C As Integer, T As String Set Liste = CreateObject("System.Collections.ArrayList") With [tableau2] For I = 1 To .Rows.Count For C = 1 To .Columns.Count T = T & .Cells(I, C) & ";" Next If Liste.IndexOf(T, 0) = -1 Then Liste.Add T T="" Next End With Liste.Sort Dim Tb() As String ReDim Tb(Liste.Count - 1, [tableau2].Columns.Count - 1) For I = 0 To Liste.Count - 1 For C = 0 To UBound(Tb, 2) Tb(I, C) = Split(Liste(I), ";")(C) Next Next NomPnom = Tb End Function

---

tu pourras même ajouter des colonne!

Merci pour ta réponse et ta réactivité. :ccool:

Je viens de tester, cela renvois la première ligne du tableau autant de fois que le nombre de ligne contenu dans celui-ci. :aie:

Citation:

---

Envoyé par modus57

Merci pour ta réponse et ta réactivité. :ccool:

Je viens de tester, cela renvois la première ligne du tableau autant de fois que le nombre de ligne contenu dans celui-ci. :aie:

---

reprends le code, car je lavais modifie!

je n'effaçais pas la valeur de T!

Code:

---

1 2	If Liste.IndexOf(T, 0) = -1Then Liste.Add T T=""

---

OK ça fonctionne maintenant nickel chrome. :bravo:

Merci encore pour ta participation.