msflexgridRésolu

Question

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

cs_jujube · Accepted Answer

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

Msflexgrid

1 réponse

Votre réponse

Discussions similaires