Discussion :

[vilcoy]

Bonjour,

Je cherche à changer la couleur d'une cellule d'un datagrid en fonction du contenu d'une autre cellule.

Mon datagrid est rempli de manière automatique via une datatable.

Une fois le datagrid rempli, j'ai une fonction qui lit chaque ligne et est censée changer la couleur de ma cellule :

Note : backChiffrage, foreChiffrage etc... sont des objets de type color définis ailleurs.

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
 
Dim i As Integer
For i = 0 To dgvBilanAffaire.Rows.Count - 1
   Select Case dgvBilanAffaire.Item("dcestatut", i).Value.ToString
      Case "Chiffrage"
         dgvBilanAffaire.Rows(i).Cells(2).Style.BackColor = backChiffrage
         dgvBilanAffaire.Rows(i).Cells(2).Style.ForeColor = foreChiffrage
      Case "Lancée"
         dgvBilanAffaire.Rows(i).Cells(2).Style.BackColor = backLancee
         dgvBilanAffaire.Rows(i).Cells(2).Style.ForeColor = foreLancee
      Case "Validée"
         dgvBilanAffaire.Rows(i).Cells(2).Style.BackColor = backValidee
         dgvBilanAffaire.Rows(i).Cells(2).Style.ForeColor = foreValidee
      Case "Annulée"
         dgvBilanAffaire.Rows(i).Cells(2).Style.BackColor = backAnnulee
         dgvBilanAffaire.Rows(i).Cells(2).Style.ForeColor = foreAnnulee
   End Select
Next

Problème :

Ca ne marche pas ! Mes cellules restent blanches.

J'ai essayé de caser un dgvBilanAffaire.refresh() à la fin de ma boucle, dans ce cas, je vois les couleurs apparaître puis revenir à blanc une fois le tableau entièrement dessiné.

Une idée ?

[djuju]

Bonjour,

Moi quand je change la coleur d'une cellule je fais comme ça:

Code :

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

TotoDataGridView.Item(2, i).Style.BackColor = Color.Red

Je suis pas sûr que ça t'aide, mais chez moi ca marche. D'ailleurs, pour être honnete je ne comrend pas trop pourquoi ton code ne marche pas car il me semble que tu accede au meme objet que moi mais d'une autre facon.
Es-tu sûr qu'il n'y a pas un Fill ou autre qui reremplit ta table apres modification de la couleur?

A+

[vilcoy]

J'ai remplacé mes

dgvBilanAffaire.Rows(i).Cells(2).Style.BackColor = backChiffrage

par des

dgvBilanAffaire.Item(2,i).Style.Backcolor = backChiffrage

Le problème reste le même.

Je n'arrive pas à comprendre. Rien après ma boucle n'intervient plus sur ma datagrid.
Voici comment je la génère :

(on suppose que donneesDCE est un DataTable valide)

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
 
With dgvBilanAffaire
   .DataSource = donneesDCE
 
   'la colonne projet-affaire est masquée
   .Columns(0).Visible = False
   'la colonne projet-affaire est masquée
   .Columns(1).Visible = False
 
   'affectation des styles
   .Columns(3).DefaultCellStyle = StyleNumerique
   .Columns(4).DefaultCellStyle = StyleNumerique
   .Columns(5).DefaultCellStyle = StyleNumerique
   .Columns(6).DefaultCellStyle = StyleNumerique
 
   ' Largeur des colonnes
   .Columns(2).Width = 40
   .Columns(3).Width = 141
   .Columns(4).Width = 141
   .Columns(5).Width = 141
   .Columns(6).Width = 141
 
End With
 
(C'est ici que je lance ma boucle de colorisation des cellules)

En désactivant la partie des affectations de style, ça ne change rien au problème.
En remplaçant mes variables foreChiffrage, backChiffrage etc... par des couleurs en dur style Color.Orange, ça ne change rien non plus.

Je me demande s'il n'y a pas une propriété de mon DataGrid qui empêche la recolorisation des cellules après coup.
Mais je ne vois vraiment pas laquelle...

J'essaie de rester calme...

[pifou25]

peut etre une piste : il y a (surement) un évenement RowAdd ou RowFormating ou bien encore RowPaint ... déclenché pendant le remplissage du datagrid et peut etre dans une de ces procédure d'évenement qu'il convient de placer l'action de repeindre une couleur de ligne (ou cellule)...

[vilcoy]

J'avais déjà exploré cette piste, sans trouver l'évènement en question.

Je vais quand même réessayer de trouver le bon évènement.

[Zyth]

Question stupide : Es-tu certain qu'il passe dans l'une des conditions de ton select ? Car ça fait maintenant 3 mois que je travaille intensivement avec des DataGridView et j'ai fais cette manipulation des dizaines de fois sans problème.

[vilcoy]

(Ce n'est pas une question stupide)

Malheureusement, oui, il passe bien dans mon Select.

Et ta question me confirme un truc énervant : en plaçant un MessageBox.Show() à chaque Case de mon Select, je vois ma cellule coloriée comme je le veux, sauf qu'une fois arrivé en fin de tableau, tout repasse en blanc.

Je viens d'exécuter tout le code en pas à pas au debuggeur, il ne se passe rien après le load() de mon formulaire qui lance cette fameuse boucle.

[Cerberus26]

Essaye plus un code comme ça pour voir :

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
dim i as integer
For Each Ligne As EssaiDataSet.TableTestRow In Me.EssaiDataSet.TableTest.Rows
            i += 1
            Select Case Ligne("Test3").ToString
                Case "AAA1"
                    DataGridView1.Rows(i).Cells(1).Style.BackColor = Color.Coral
                Case "AAA2"
                    DataGridView1.Rows(i).Cells(1).Style.BackColor = Color.Red
                Case "AAA3"
                    DataGridView1.Rows(i).Cells(1).Style.BackColor = Color.Aqua
                Case "AAA4"
                    DataGridView1.Rows(i).Cells(1).Style.BackColor = Color.Brown
            End Select

        Next

Moi j'ai essayé chez moi, ça marche nickel

[vilcoy]

Ok, ton idée est donc de parcourir le DataTable au lieu du DataGrid.

J'ai fait l'essai, ... même résultat.

Et toujours le même phénomène : si je mets un MessageBox.Show() entre chaque passage dans la boucle, la couleur change bien, puis redevient blanche à la fin.

Mais merci pour l'idée.

[vilcoy]

Ca y'est !!

Pifou25 m'avait suggéré de me tourner vers les évènements du DataGrid : bonne idée, il faut utiliser le Row_PostPaint()

Voici mon code, pour ceux que ça pourrait intéresser :

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
 
Private Sub dgvBilanAffaire_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles dgvBilanAffaire.RowPostPaint
 
' Déclaration de 2 objets cellule :
' L'un contient la valeur à tester
' L'autre la cellule à colorer
Dim celluleDCE, celluleDCEStatut As DataGridViewCell
 
celluleDCEStatut = dgvBilanAffaire.Item(1, e.RowIndex)
celluleDCE = dgvBilanAffaire.Item(2, e.RowIndex)
 
' Le test en lui-même
Select Case celluleDCEStatut.Value.ToString
   Case "Chiffrage"
      celluleDCE.Style.BackColor = backChiffrage
      celluleDCE.Style.ForeColor = foreChiffrage
   Case "Validée"
      celluleDCE.Style.BackColor = backValidee
      celluleDCE.Style.ForeColor = foreValidee
 
(etc...)
 
End Select
 
End Sub

Merci beaucoup à tous !