Discussion :

[seroa]

Bonjour

J'ai un problème pour colorer le texte d'une ligne entière d'un mshflexgrid.

J'arrive parfaitement à colorer le texte d'une cellule à la fois mais pas d'une plage de cellule.

Voila mon code :

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
 
 
Do While i < MSHFlexGrid.Rows
        MSHFlexGrid.Row = i
        MSHFlexGrid.Col = 1
        MSHFlexGrid.RowSel = i
        MSHFlexGrid.ColSel = 10
 
        Select Case MSHFlexGrid.TextMatrix(i, 2)
            Case "Expiré"
                MSHFlexGrid.CellForeColor = vbRed
 
            Case "En attente"
                MSHFlexGrid.CellForeColor = vbBlue
        End Select
        i = i + 1
 Loop

Voila avec ce code, cela me colore que la première colonne, il prend en compte les propriétés Row et Col, alors que je voudrais qu'il colore la plage de cellule et prenne en compte les proprietes colsel et rowsel.

Ou alors connaissez vous un autre moyen de colorer le texte d'une ligne entière ?

Merci à tous

[Phifi]

Tu vas être obligé de boucler :

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
Dim y As Integer
 
Do While i < MSHFlexGrid.Rows
        MSHFlexGrid.Row = i
        'MSHFlexGrid.Col = 1
        MSHFlexGrid.RowSel = i
        MSHFlexGrid.ColSel = 10
 
        Select Case MSHFlexGrid.TextMatrix(i, 2)
            Case "Expiré"
                For y = 1 to 10 
                     MSHFlexGrid.Col = y
                     MSHFlexGrid.CellForeColor = vbRed
                Next y
            Case "En attente"
                For y = 1 to 10 
                     MSHFlexGrid.Col = y
                     MSHFlexGrid.CellForeColor = vbBlue
                Next y
        End Select
        i = i + 1
 Loop

[jmfmarques]

Tiens :
Essaye ceci que je viens de "tirer par les cheveux"

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
Const ligne = 5  'ici la ligne à mettre en rouge
 
Private Sub Form_Load()  'juste pour avoir de la matière à tester
 
  MSFlexGrid1.BackColorSel = vbRed 
   DoEvents
  MSFlexGrid1.FixedRows = 0
  MSFlexGrid1.FixedCols = 0
  For i = 1 To 10
    MSFlexGrid1.AddItem i
  Next
End Sub
 
Private Sub Command1_Click()
    MSFlexGrid1.RowSel = ligne                ' voilà où on 
    MSFlexGrid1.Row = ligne                    ' commence à
    MSFlexGrid1.RowSel = ligne + 1           ' "tirer par les cheveux"
End Sub

Teste à ton tour (je ne l'ai peut-être pas assez fait) et dis-nous...

[mat.M]

Select Case MSHFlexGrid.TextMatrix(i, 2)

Je conseillerais vivement de prendre Trim() sinon ça ne fonctionnera pas

Select Case Trim(MSHFlexGrid.TextMatrix(i, 2))

[jmfmarques]

Dans ce que je t'ai donné plus haut, Phifi, je te laisse bien évidemment changer, si tu le souhaites :

Code :

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

1
2
 
  MSFlexGrid1.BackColorSel = vbRed

par

Code :

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

1
2
MSFlexGrid1.ForeColorSel = vbRed
  MSFlexGrid1.BackColorSel = vbWhite

ou par toute autre combinaison de ton choix

[Phifi]

Dans ce que je t'ai donné plus haut, Phifi, je te laisse bien évidemment changer, si tu le souhaites

Merci bien, jmf, mais je ne voudrais pas imposer mes choix graphiques à seroa

[jmfmarques]

Ah; oui !
Ye m'en a être trompé une fois de plus entre un forumeur et l'autre !

[seroa]

J'ai trouvé la solution.
Merci à tous !

En fait, je garde le code de départ, sauf que pour que cellforecolor marche il faut que la propriété FillStyle de mon mshflexgrid soit à 1 (Répété) et non à 0 (Simple)

Voila

Encore merci

[zazaraignée]

Je l'ai mis en gras!

Une astuce à retenir!