Msflexgrid

Résolu
cs_jujube Messages postés 19 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 21 janvier 2013 - 21 janv. 2013 à 01:32
cs_jujube Messages postés 19 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 21 janvier 2013 - 21 janv. 2013 à 01:53
Bonjour, j'utilise le code suivant pour parcourir ma flexgrid et j'aimerais que les valeurs différentes de zéro soit misent en rouge.
Pourquoi seulement ma première cellule à gauche en haut change de couleur?
J'exécute ce code après le remplissage de ma grille.

Private Sub Couleur()
Dim i As Integer, j As Integer
For i = 1 To grdVisa.Rows - 1
For j = 5 To 13 ' je parcours les colonnes 5 à 13 uniquement 'grdVisa.Cols - 1
If Val(grdVisa.TextMatrix(i, j)) <> 0 Then
grdVisa.CellForeColor = QBColor(4)
End If
Next j
Next i
End Sub


Merci à l'avance

Clément

1 réponse

cs_jujube Messages postés 19 Date d'inscription dimanche 27 octobre 2002 Statut Membre Dernière intervention 21 janvier 2013
21 janv. 2013 à 01:53
Merci pour ceux qui ont utiliser leur temps, mais j'ai trouvé avec cette solution

Private Sub Couleur()

Dim i As Integer, j As Integer
For i = 5 To 12
For j = grdVisa.FixedRows To grdVisa.Rows - grdVisa.FixedRows
grdVisa.Col = i
grdVisa.Row = j
If Val(grdVisa.TextMatrix(j, i)) <> 0 Then
grdVisa.CellForeColor = vbRed
End If
Next j
Next i
end sub


Vous êtes tous des champions...Bravo
Rejoignez-nous