Changement de couleur de ligne vbaRésolu

Question

Bonjours a tous!
Mon problème est que dans mon datagrid je ne parviens pas a mettre en rouge les ligne ou il y a oui dans un certain item!
Après la simulation vb me dit que l'index est hors limite!
Voici ma "fonction" qui devrait le faire en un clic mais non!
Si quelqu'un peu m'aider!?.

 Dim i = DataGridView1.Rows.Count
        Dim x = 0
        Do
            If DataGridView1.Rows(x).Cells.Item(7).ToString = "OUI" Then
                DataGridView1.Rows(x).DefaultCellStyle.BackColor = Color.Red
            End If
            x = x + 1

        Loop While x = i - 1

Renfield · Accepted Answer

dans le Header ?

je te parles d'un 

Messagebox.Show DataGridView1.Rows(x).Cells.Item(7).Value.ToString()

Renfield · Answer

pourquoi utiliser une boucle Do...While ?
(ta condition de sortie est fausse, d'ailleurs)

For x As Integer = 0 To DataGridView1.Rows.Count -1
    If DataGridView1.Rows(x).Cells.Item(7).ToString = "OUI" Then 
        DataGridView1.Rows(x).DefaultCellStyle.BackColor = Color.Red 
    End If 
Next x

erokage · Answer

Merci beaucoup!
J'avais essayer de faire le faire mais je n avais pas réussi!
Par contre sa ne marche toujours pas! il me dit toujours que l'index était hors limite et il me montre cette ligne:
                                  
                     If DataGridView1.Rows(x).Cells.Item(7).ToString = "OUI" Then 

Bon je reviens c est la pose café!

Renfield · Answer

le '7' du nombre de colonnes doit pas aller
tu cherches bien la huitième colonne ?

erokage · Answer

Je pense qu'en faite c'était la 5m colonne parce que la première et la 0 mais la il dois y avoir un bug parce que je n'est plus de message d'erreur mais la ligne ne passe pas au rouge , je ne comprend pas il n' y a pas de raison pour que sa ne marche pas , surtout avec ton aide!

Renfield · Answer

place ton curseur de texte sur la ligne du IF
presse F9
et relance ton programme

reste plus qu'a executer en pas a pas (F8) pour traquer le bug^^

erokage · Answer

se doit être ma condition du if qui n est pas bonne parce qu'il ne ne la fait pas.
Quand il arrive dessus après il saute une ligne donc la ligne 

DataGridView1.Rows(x).DefaultCellStyle.BackColor = Color.Red 

ne s'effectue pas.

erokage · Answer

Comme si ce n'étais jamais égale a oui!!

Renfield · Answer

et à quoi est-ce égal ?

en mode pas a pa, tu peux survoller du curseur du texte selectionné (variables, etc.) pour que VB t'en donne la valeur.

ainsi, tu pourrais obtenir le resultat de ton xxxx.ToString()

Renfield · Answer

au fait, que contient cette case de ton DataGrid ? (quel type de case est-ce ?)

erokage · Answer

oui ou non comme un booleen

erokage · Answer

le x est a 0 mais il ne vois pas le oui il passe direct au end if et il boucle par contre il conte parfaitement le nombre de boucle et arrivé a la fin il sort de la boucle et voila

Renfield · Answer

alors testes un boolean, quelle utilité de jouer avec "OUI" qui manifestement ne fonctionne pas

te faudrait, au pire, tester "True" et non "OUI" ...

tentes simplement:

If DataGridView1.Rows(x).Cells.Item(7) Then
    ...

erokage · Answer

je viens de le faire!

Renfield · Answer

et ?

erokage · Answer

ba rien de mieux

Renfield · Answer

donc c'est pas un Boolean que ça renvoie... tout bêtement.

que renvoie:
DataGridView1.Rows(x).Cells.Item(7).Value 

?

c'est toi qui a le code, le projet...

erokage · Answer

il faudrait que j aille voir dans le header mais je ne sais pas comment l ouvrir

erokage · Answer

la fenêtre s'ouvre et sa dit "oui" donc c est oui

erokage · Answer

Sa y est, j'ai trouvé grâce a toi!!!! Il manquais le mot value dans le "IF" merci infiniment!!!!




For x As Integer = 0 To DataGridView1.Rows.Count - 1
            MessageBox.Show(DataGridView1.Rows(x).Cells.Item(5).Value.ToString())
            If DataGridView1.Rows(x).Cells.Item(5).Value.ToString = "OUI" Then
                DataGridView1.Rows(x).DefaultCellStyle.BackColor = Color.Red
            End If
        Next x

Changement de couleur de ligne vba

30 réponses

Votre réponse

Discussions similaires