Discussion :

[tssi555]

Bonjour,

J'ai un DataGridView.

je parcours la cellule langue du DataGridView, et je fais un test si la langue FR est trouvé ou pas.

Voiçi mon code :

Code :

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

1
2
3
4
5
6
7
8
 
        Dim z As Integer
        For z = 0 To dgvDesignation.Rows.Count - 1
            If dgvDesignation.Rows(z).Cells("adlangue").Value = "FR" Then                 etat = True
            Else
                etat = False
            End If
        Next z

Le problème maintenant, c'est quznd je mets un message box pour tester l'existance de FR.

Code :

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

Msgbox (etat)

J'ai False même si la langue FR existe bien et je l'ai sous les yeux dans la grille !

Pourriez-vous m'aider?

Merci

[OhMonBato]

Etant donné que tu parcours TOUT ton DGV c'est normal que ta variable passe à False car tu n'as pas que des "FR" j'imagine. tu dois donc sortir de ta boucle, dès que tu le trouves.

[tomlev]

Etant donné que tu parcours TOUT ton DGV c'est normal que ta variable passe à False car tu n'as pas que des "FR" j'imagine. tu dois donc sortir de ta boucle, dès que tu le trouves.

Toi tu as lu le code un peu vite je crois

Ce code, tel que je le comprends, signifie :
"parcours la colonne adlangue, et mets etat à False quand tu trouves la langue FR"
Le résultat obtenu est donc tout à fait normal... vérifie la logique de ton test : il faut mettre etat à True et non à False

[OhMonBato]

Je sais pas lequel de nous 2 l'a lu le plus vite
Ce que je comprends c'est que quand il voit FR il ne fait rien (je suppose donc que Etat est à True auparavant) et que si c'est autre chose que FR il passe à False.

[tomlev]

Je sais pas lequel de nous 2 l'a lu le plus vite

au temps pour moi, j'ai pas vu le "Else" ...
faut dire, le "etat = True" est planqué loin à droite et j'ai pas pensé à scroller...

Dans ce cas je pense que le problème est simplement que s'il y a d'autres éléments après FR, etat repasse à False. Comme disait OhMonBato, il faut sortir de la boucle une fois que tu as trouvé l'élément recherché :

Code :

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

1
2
3
4
5
6
7
8
9
        Dim z As Integer
        For z = 0 To dgvDesignation.Rows.Count - 1
            If dgvDesignation.Rows(z).Cells("adlangue").Value = "FR" Then
                 etat = True
                 Exit For
            Else
                etat = False
            End If
        Next z

[OhMonBato]

faut dire, le "etat = True" est planqué loin à droite et j'ai pas pensé à scroller...

Ha ben moi non plus, c'est pour ça que je supposais que Etat était à true par défaut