Msflexgrid [Résolu]

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

1 réponse

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 122 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_jujube