Problème récupération de données DataGridView

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:

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:

Msgbox (etat)

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

Pourriez-vous m'aider?

Merci

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.

Citation:

Envoyé par 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.

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

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.

Citation:

Envoyé par OhMonBato

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

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

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:

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

Citation:

Envoyé par tomlev

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

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

Merci à vous deux :).

Tout a fait mon bateau ! il faut sortir de la boucle dès que le programme trouve FR!

mon code fonctionel :

Code:

1
2
3
4
5
6
7
8
9
10
 Dim z As Integer
        etat = False
        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

A + ;)

Tu peux simplifier ton code, puisque au départ Etat = False, pas besoin du else :

Code:

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

Oui tout a fait. ;)
Merci.