Affichage en rouge dans un MSHFlexGrid

Bonjour a tous,

Voila je fais une requete :
rsMaDb.Open "SELECT code_produit, libelle_produit, Nom_fournisseur, type_produit, qte_stock, seuil_alerte FROM produits where ((produits.domaine_produit) like '" & Tmp_CB_categorie & "') and ((produits.Nom_fournisseur) like '" & Tmp_CB_fournisseur & "') ;", cnMaDb, adOpenKeyset, adLockBatchOptimistic

ça alimente une MSHFlexGrid

Je voudrai que l'affichage de la ligne soit en rouge quand qte_stock<seuil_alerte

Je fais ce code là, mais juste la 1ere instance se trouve en rouge

  Dim iPnt As Integer
    For iPnt = 1 To MSHFlexGrid.Rows - 1
       If MSHFlexGrid.TextMatrix(iPnt, 4) < MSHFlexGrid.TextMatrix(iPnt, 5) Then
              MSHFlexGrid.Col = 4
                MSHFlexGrid.CellForeColor = &HFF&
            End If
    Next
    MSHFlexGrid.Refresh

Auriez-vous une idée et merci d'avance

Salut,
 il faut se positionner sur la ligne..

Dim iPnt As Integer
    For iPnt = 1 To MSHFlexGrid.Rows - 1
       If MSHFlexGrid.TextMatrix(iPnt, 4) < MSHFlexGrid.TextMatrix(iPnt, 5) Then
              MSHFlexGrid.Row = iPnt
              MSHFlexGrid.Col = 4
                MSHFlexGrid.CellForeColor = &HFF&
            End If
    Next
    MSHFlexGrid.Refresh

... Y'en a même qui disent qu'ils l'ont vu voler.

Bonjour,

Merci libre_max de te pencher sur le pb, mais là, du coup, j'ai toute la colonne en rouge comme s'il ne tenanit pas compte de

If MSHFlexGrid.TextMatrix(iPnt, 4) < MSHFlexGrid.TextMatrix(iPnt, 5) Then

qui dit que c'est juste quand  la colonne 4 de l'enregistrement est inférieur a la colonne 5 de ce même enregistrement.

Merci 

Trouvé,

C'est le Cint qui me génait.

Voici le code au cas ou ça interesse quelqu'un

Dim iPnt As Integer
        For iPnt = 1 To MSHFlexGrid.Rows - 1
              MSHFlexGrid.Row = iPnt
                If CInt(MSHFlexGrid.TextMatrix(iPnt, 4)) <= CInt(MSHFlexGrid.TextMatrix(iPnt, 5)) Then
                        MSHFlexGrid.Col = 4
                        MSHFlexGrid.CellForeColor = &HFF&
                End If
        Next

Bonsoir, Bien vu pour la conversion en Integer.
Seulement il faudra faire attention aux cellules qui peuvent être vides.(sans parler du fait que le contenu ne peut être que des chiffres)

CInt("") **==>Erreur !

Deux solutions au choix :
-Avant de comparer
1° On Error Resume Next tout au début.
2° Ou bien instaurer un test 
Dim iPnt As Integer
 For iPnt = 1 To MSHFlexGrid.Rows - 1
     MSHFlexGrid.Row = iPnt

 If (MSHFlexGrid.TextMatrix(iPnt, 4)) <>"" And  _(MSHFlexGrid.TextMatrix(iPnt, 5))<>"" Then 

   If CInt(MSHFlexGrid.TextMatrix(iPnt, 4)) <= CInt(MSHFlexGrid.TextMatrix(iPnt, 5)) Then
          MSHFlexGrid.Col = 4
          MSHFlexGrid.CellForeColor = &HFF&
    End If
 End If
 Next

... Y'en a même qui disent qu'ils l'ont vu voler.

Bonsoir et merci pour tes précisions LIBRE_MAX