Colorer une ligne sur deux d'une msflexgrid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 488 fois - Téléchargée 50 fois

Contenu du snippet

Voici quelque lignes de code qui vous permettrons d'améliorer à la fois la présentation et la lisibilité de vos grilles. Il s'agit simplement de colorer une ligne sur deux de votre grille.

Source / Exemple :


Private Sub couleur_lignes()
  With fgrEditFrais

    'Colorer les lignes
    If .Rows > 1 Then
      For i = 1 To .Rows - 1
        'Lignes paires rouge
        If (i - 1) Mod 2 <> 0 Then
          .Row = i
          For j = 1 To .Cols - 1
            .COL = j
            .CellBackColor = RGB(249, 170, 170)
          Next
        End If
      Next
    End If
  End With

End Sub

Conclusion :


Il faut ensuite appeler cette procédure là ou vous en avez besoin.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
19
Date d'inscription
samedi 19 juin 2004
Statut
Membre
Dernière intervention
12 janvier 2010

Pour ce sauvegarder la position actuelle il y as pas si simple que ça :

Private Sub couleur_lignes()
Dim i, j As Long
Dim tempCol, tempRow As Long

With dgAPI
tempCol = .Col
tempRow = .Row
'Colorer les lignes
If .Rows > 1 Then
For i = 1 To .Rows - 1
'Lignes paires rouge
If (i - 1) Mod 2 <> 0 Then
.Row = i
For j = 1 To .Cols - 1
.Col = j
.CellBackColor = &HFFC0C0
Next
End If
Next
End If
.Col = tempCol
.Row = tempRow
End With

End Sub
Messages postés
19
Date d'inscription
samedi 19 juin 2004
Statut
Membre
Dernière intervention
12 janvier 2010

Merci pour ce bout de code.
Messages postés
62
Date d'inscription
lundi 24 décembre 2001
Statut
Membre
Dernière intervention
15 octobre 2007

La seule chose à ajouter est qu'il faut sauvegarder la position actuelle avant de lancer la routine. Autrement dit, il faut garder en mémoire le .Row et .Col de façon à ce que quand la routine rend la main à l'utilisateur celui ci soit toujours au même endroit (même cellule) et non sur la dernière colonne de la dernière ligne.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.