Discussion :

[quentingsc]

Bonjour a touse.
Voila j'ai un petit problème je vous explique.

J'ai deux liste box .
Un qui contient une catégorie et l'autres listbox qui affiche le contenue de cette catégorie quand on clique dessus.

Le but du jeu serait pour moi de faire une recherche recursive de tout les élément de la list qui affiche le contenue.

J'arrive bien a faire défilié tout les catégorie ce cette manière

Code :

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

1
2
3
4
5
6
 For I = 0 To List7.ListCount
 
 List7.ListIndex = I
 toto = List7.List(I)
 
next I

Mais je n'arrive pas a comparer les élément un par un de l'autre listbox.
Je fait plantage de prog a chaque fois.

Si quelqu'un peut m'aider.

Merci d'avance

[Najdar]

Bonjour quentingsc,

Montre-nous le code qui plante.
Donne-nous le message d'erreur.

Là nous pourrons, peut-être, d'aider

[quentingsc]

voila mon code

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
 
reche = Text7.Text
On Error Resume Next
 
 For I = 0 To List7.ListCount
 
 List7.ListIndex = I
 toto = List7.List(I)
 
For X = 0 To List8.ListCount
 
List8.ListIndex = X
 tototr = List7.List(X)
 
If tototr = reche Then
X = List8.ListIndex
Exit Sub
 
Else
 
Next X
 
End If
 
 
Next I

Merci d'avance pour votre aide

[avigeilpro]

petite précision :

Code :

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

1
2
3
 
List8.ListIndex = X
 tototr = List7.List(X)

équivaut à :

Code :

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

1
2
3
 
List8.ListIndex = X
 tototr = List7.Text

Le texte de l'élément selectionné est directement retourné par la propriété Text. On utilise en général la méthode List pour connaitre un élément qui n'est pas séléctionné et ceci grace à son index. Il n'est pas non plus nécéssaire de selectionner tous les éléments un par un pour faire un traitement de la liste.
Ainsi ton code deviendrai :

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
reche = Text7.Text
On Error Resume Next
 
For I = 0 To List7.ListCount
 
     toto = List7.List(I)
 
     For X = 0 To List8.ListCount

     tototr = List7.List(X)
 
     If tototr = reche Then
          X = List8.ListIndex
          Exit Sub
     Else
          Next X
     End If
 
Next I

Enfin ce ki est en rouge ne va pa du tout !!!
Que tu sorte ou non prématurément d'une boucle, le next ne doit pas etre conditionnel, tu ne peux pas le mettre dans le Else !!!

Voici donc le code épuré et débuggé :

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
reche = Text7.Text
 
For I = 0 To List7.ListCount
 
     toto = List7.List(I)
 
     For X = 0 To List8.ListCount
 
          tototr = List7.List(X)
 
          If tototr = reche Then
               List8.ListIndex = X
               Exit Sub
          End If
 
     Next X

Next I

A quoi sert la variable toto ainsi que la boucle sur la List7 avec la variable I (ce qui est en bleu) ?

Ton code est très très curieux.


Et un dernier conseil :
On ne met pas de "On Error Resume Next" lorsque l'on fait du debuggage sinon on ne voit pas où est le bug

[ProgElecT]

bonjour

For I = 0 To List7.ListCount - 1

Nbr dans list = de 1 à x, index = de 0 à x-1

Salut

[avigeilpro]

Je pense, ProgElecT, que tu as cherché à expliquer la partie en bleu, mais si tu regarde, on peut la retirer, la variable toto n'est pas utiliser, ni l'index I (à part pour charger la variable toto). ce morceau de code est donc inutile.