Msflexgrid [Résolu]

Signaler
Messages postés
19
Date d'inscription
dimanche 27 octobre 2002
Statut
Membre
Dernière intervention
21 janvier 2013
-
Messages postés
19
Date d'inscription
dimanche 27 octobre 2002
Statut
Membre
Dernière intervention
21 janvier 2013
-
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

Messages postés
19
Date d'inscription
dimanche 27 octobre 2002
Statut
Membre
Dernière intervention
21 janvier 2013

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