Discussion :

[bailamos]

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

[Delbeke]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLignes = List1.ListCount

Pour le reste, je n'ai rien compris.

[zazaraignée]

Voici mon interprétation de la question :

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.

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.

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.

[bailamos]

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

pour assombler les ligne voilla comment je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLignes = List1.ListCount

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

[ProgElecT]

1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ? 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 :

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
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