COLORER UNE LIGNE SUR DEUX D'UNE MSFLEXGRID
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
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2432-colorer-une-ligne-sur-deux-d-une-msflexgrid
https://codes-sources.commentcamarche.net/source/2432-colorer-une-ligne-sur-deux-d-une-msflexgrid
19 nov. 2009 à 11:13
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
19 nov. 2009 à 11:09
16 janv. 2002 à 13:07