Discussion :

[Reeaxv]

Bonjour je crée un form pour gérer des tournoi, avec un nombre de participant pair et je veut générer les rencontre alors j'ai crée une listbox ou ont saisie le nom des equipe et 2 label, equipe droite et equipe gauche, il faut que chaque equipe se rencontre. Mais pour afficher les element de la listbox dans le label j'ai un probleme, j'ai écrit sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim eqgauche As String
        Dim eqdroite As String
        Dim i As Integer
 
        For i = 2 To Lstbequipe.Items.Count Step 2
            eqgauche = Lstbequipe.Items.Item(i - 1)
        Next
        Labeqgauche.Text = eqgauche
 
        For i = 1 To Lstbequipe.Items.Count Step 2
            eqdroite = Lstbequipe.Items.Item(i - 1)
        Next
        Labeqdroite.Text = eqdroite

Quand je l’exécute sa me donne sa :


Mais je veut que dans les 2 label il y ait les 2 match et pas juste le dernier alors je pense que sa vient du For mais je suis pas sûr, ou peut être que ce n'est pas un label qu'il faut ?
Vous-pouvez me dire ce qui ne va pas ?

Merci

[jopopmk]

Salut,

à chaque fois que tu écris "eqgauche =" tu écrases la valeur précédemment enregistrée dans cette variable (pareil pour eqdroite).
Il faut donc que tu penses à concaténer les valeurs lors de tes boucles plutôt que simplement assigner.
Tu peux faire ça avec l'opérateur &, exemple :

Code :

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

  eqgauche = eqgauche & Lstbequipe.Items.Item(i - 1)

Ou en version abrégée :

Code :

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

  eqgauche &= Lstbequipe.Items.Item(i - 1)

J'ai pas regardé ton algo mais je peux faire deux petites remarques :
- tes variables intermédiaires eqgauche et eqdroite semblent inutiles (autant écrire directement dans tes Label),
- tu peux concaténer également la constante vbNewLine entre chaque valeur pour insérer des sauts de ligne.

Bon dev.

[Reeaxv]

Merci jopopmk je vais refaire tout ça