Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut Wanadoo! :O)
Voici une exemple '*** ' Ajouter la composante Microsoft FlexGrid Control 6.0 (SP3) ' Form1 ' 1 MSFlexGrid Option Explicit
Private Sub Form_Load()
Dim i As Long Dim j As Long
With MSFlexGrid1
' Dimensionne notre grille .Cols = 5 .Rows = 5
' on boucle les lignes, on saute la première For i = 1 To .Rows - 1 ' vérifie si la ligne est impaire If (i Mod 2) Then ' on boucle les colonnes, on saute la première For j = 1 To .Cols - 1 ' on sélectionne la cellule .Row = i .Col = j ' on modifie sa couleur de fond .CellBackColor = vbBlue Next j End If Next i
Merci de poster les réponses au groupe afin d'en faire profiter à tous "Wanadoo" wrote in message news:bujrgp$imr$
slt
dans une MSFlexGrid comment faire pour avoir une ligne sur 2 en couleur
merci
Salut Wanadoo! :O)
Voici une exemple
'***
' Ajouter la composante Microsoft FlexGrid Control 6.0 (SP3)
' Form1
' 1 MSFlexGrid
Option Explicit
Private Sub Form_Load()
Dim i As Long
Dim j As Long
With MSFlexGrid1
' Dimensionne notre grille
.Cols = 5
.Rows = 5
' on boucle les lignes, on saute la première
For i = 1 To .Rows - 1
' vérifie si la ligne est impaire
If (i Mod 2) Then
' on boucle les colonnes, on saute la première
For j = 1 To .Cols - 1
' on sélectionne la cellule
.Row = i
.Col = j
' on modifie sa couleur de fond
.CellBackColor = vbBlue
Next j
End If
Next i
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Wanadoo" <thetigers@wanadoo.fr> wrote in message
news:bujrgp$imr$1@news-reader3.wanadoo.fr...
slt
dans une MSFlexGrid comment faire pour avoir une ligne sur 2 en couleur
Voici une exemple '*** ' Ajouter la composante Microsoft FlexGrid Control 6.0 (SP3) ' Form1 ' 1 MSFlexGrid Option Explicit
Private Sub Form_Load()
Dim i As Long Dim j As Long
With MSFlexGrid1
' Dimensionne notre grille .Cols = 5 .Rows = 5
' on boucle les lignes, on saute la première For i = 1 To .Rows - 1 ' vérifie si la ligne est impaire If (i Mod 2) Then ' on boucle les colonnes, on saute la première For j = 1 To .Cols - 1 ' on sélectionne la cellule .Row = i .Col = j ' on modifie sa couleur de fond .CellBackColor = vbBlue Next j End If Next i
