Bonjour à tous,

Comment mettre en couleur certaines lignes du Msflexgrid en VB6?

En fait, je dois avoir une alternance de couleur (blanc et bleu) à chaque fois que la donnée d'une certaine colonne change (ici la colonne 5).
J'essaie de comparer par itération la cellule de la 1ère ligne avec la deuxième ligne mais je n'y arrive pas. Voici ce que je fais.

Dim s As Integer
    For s = 1 To .Rows - 3 '-3 car les 2 dernières lignes doivent rester blanc
        If .TextMatrix(s, 5) = .TextMatrix(s + 1, 5) Then
                For c = 1 To rsDetails.Fields.Count - 1
                    .Row = s + 1
                    .Col = c
                    .CellBackColor = vbInactiveTitleBarText      
                Next c
         Else
                For c = 1 To rsDetails.Fields.Count - 1
                    .Row = s + 1
                    .Col = c
                    .CellBackColor = vbWhite              
                Next c
          End If
    Next s