Colorer une ligne sur deux d'une msflexgrid

0/5 (3 avis)

Snippet vu 8 949 fois - Téléchargée 52 fois

Commenter

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
phpamateur Messages postés 18 Date d'inscription samedi 19 juin 2004 Statut Membre Dernière intervention 12 janvier 2010
19 nov. 2009 à 11:13
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
phpamateur Messages postés 18 Date d'inscription samedi 19 juin 2004 Statut Membre Dernière intervention 12 janvier 2010
19 nov. 2009 à 11:09
Merci pour ce bout de code.
shervy Messages postés 62 Date d'inscription lundi 24 décembre 2001 Statut Membre Dernière intervention 15 octobre 2007
16 janv. 2002 à 13:07
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.
S'inscrire maintenant

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.

Du même auteur (cs_Benz)