assembler les contenus des index listbox

salut tous le monde,
j'ai une listbox avec index variable c'est que par fois il ya 5 ou 9 ou meme 100 ce que je veux faire c'est de voire si tous les listbox contient le meme nombre de ligne si oui mettre dans une list2 toute les 1er ligne des list1 dans la 1er ligne list 2 et ainsi de suite pour toute les autre ligne separer par ,

merci d'avance

Bon, pour savoir combien il y a de lignes dans un listbox, on utilise

Code:

---

NbLignes = List1.ListCount

---

Pour le reste, je n'ai rien compris.

Voici mon interprétation de la question :

Citation:

---

Envoyé par bailamos

j'ai une listbox avec index variable c'est que par fois il ya 5 ou 9 ou meme 100

---

Un groupe de ListBox (monListBox(Index)) dont le nombre est variable.

Citation:

---

Envoyé par bailamos

ce que je veux faire c'est de voire si tous les listbox contient le meme nombre de ligne

---

Vérifier si les ListBox de ce groupe contiennent le même nombre d'items.

Citation:

---

Envoyé par bailamos

si oui mettre dans une list2 toute les 1er ligne des list1 dans la 1er ligne list 2 et ainsi de suite pour toute les autre ligne separer par ,

---

Si oui, tu voudrais mettre dans une autre ListBox tous les items 1 du groupe, séparés par des virgules, dans l'item 1 de cet autre ListBox, puis passer à l'item 2, et ainsi de suite.

Ma première question :
Une grille, comme un FlexGrid ou un ListView, ne serait-elle pas plus appropriée pour ce genre d'affichage ?

Pour résoudre, tu peux utiliser deux boucles For... Next imbriquées. La première (celle de l'extérieur) boucle sur le nombre d'item du ListBox courant, la seconde (celle de l'intérieur) boucle sur l'Index du groupe de ListBox.

Le problème qui survient est effectivement le cas où les ListBox n'auraient pas le même nombre d'items...

Ma seconde question :
Tu en es où avec le code ? Tu bloques où, exactement ?

P.S. Il est rare que je prenne la peine de traduire une question en langage clair. Prière de s'exprimer clairement à l'avenir.

1)comment savoire si toute les listebox contient le meme nombre de ligne

pour assombler les ligne voilla comment je fait

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() For y = 0 To l(0).ListCount - 1 a = "" For x = 0 To l.Count - 1 a = a & l(x).List(y) Next x List1.AddItem a Next y End Sub

---

Citation:

---

1)comment savoire si toute les listebox contient le meme nombre de ligne

---

Citation:

---

Envoyé par Delbeke

Bon, pour savoir combien il y a de lignes dans un listbox, on utilise

Code:

---

NbLignes = List1.ListCount

---

---

Cela ne te permet pas de savoir combien d'articles contient chacune de tes listboxes ? 8O

1)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim T As Long Dim MemeNbrLigne As Boolean Dim NbrLigne As Integer   NbrLigne = List1(0).ListCount MemeNbrLigne = True For T = 1 To List1.Count - 1 If List1(T).ListCount <> NbrLigne Then MemeNbrLigne = False: Exit For End If Next T MsgBox MemeNbrLigne

---

Pour le reste 8O ? je ne vois pas trés bien ou tu veux en venir, mais c'est possible comme cela.
Sur un Form, 4 ListBoxs, L(0), L(1), L(2) et List1

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 32 33 34 35 36 37 38

Option Explicit   Private Sub Form_Load() Dim T As Integer, X As Integer, Y As Integer Dim a As String '******* juste pour avoir des choses dans les ListBoxs indexés ****** For X = 0 To L.Count - 1 For Y = 0 To 3 L(X).AddItem X + Y Next Y Next X L(1).AddItem "DEF" L(2).AddItem "GHI" L(2).AddItem "JKL" '******************************************************************* 'peut être que c'est sa que tu veux ??? 'assemble dans List1 chaque ligne de L(0) L(1) et L(2) de même ListIndex T = 1 List1.Clear Do DoEvents a = "" For X = 0 To L.Count - 1 If L(X).ListCount >= T Then a = a & L(X).List(T - 1) & ", " End If Next X DoEvents If a = "" Then Exit Do Else a = Left(a, Len(a) - 2) 'pour enlever la derniere virgule et espace List1.AddItem a End If T = T + 1 Loop   End Sub

---