MSHFlexGrid
Atae-Allah
-
28 mai 2001 à 19:50
cs_Nicolas75 Messages postés 27 Date d'inscription lundi 26 janvier 2004 Statut Membre Dernière intervention 4 février 2008 - 7 févr. 2005 à 13:04
cs_Nicolas75 Messages postés 27 Date d'inscription lundi 26 janvier 2004 Statut Membre Dernière intervention 4 février 2008 - 7 févr. 2005 à 13:04
2 réponses
Ce petit bout de code colorie 1 ligne sur 2, et ne colorie pas les ligne & colonne Fixe (en-tête)
J'espère que cela t'aidera
A+
With MSFlexGrid1
For i = (0 + .FixedRows) To (.Rows - 1)
.Row = i ' on choisi la ligne acuelle
For j = (0 + .FixedCols) To (.Cols - 1)
.Col = j ' on choisi la colonne actuelle
' on colorie la cellule actuelle
If (i Mod 2) = 0 Then
.CellBackColor = 16577884
Else
.CellBackColor = 16377845
End If
Next j
Next i
End With
J'espère que cela t'aidera
A+
With MSFlexGrid1
For i = (0 + .FixedRows) To (.Rows - 1)
.Row = i ' on choisi la ligne acuelle
For j = (0 + .FixedCols) To (.Cols - 1)
.Col = j ' on choisi la colonne actuelle
' on colorie la cellule actuelle
If (i Mod 2) = 0 Then
.CellBackColor = 16577884
Else
.CellBackColor = 16377845
End If
Next j
Next i
End With
cs_Nicolas75
Messages postés
27
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
4 février 2008
7 févr. 2005 à 13:04
7 févr. 2005 à 13:04
Voila une autre méthode
'Deuxième méthode
Dim i As Integer
Dim IntCol, IntLigne As Integer
With MSHFlexGrid1
.SetFocus
'Sélectionne la cellule 1 de la première ligne et de la première colonne
.Row = 1
.Col = 1
'Défini le nombre de colonnes et le nombre de lignes
IntCol = .Cols - .FixedCols
IntLigne = .Rows - .FixedRows
'Exécute la boucle
For i = 1 To IntLigne
.Row = i
.Col = 1
'Sélectionne la ligne entière
.ColSel = IntCol
If (i Mod 2) = 0 Then
.CellForeColor = vbBlue
Else
.CellForeColor = vbRed
End If
Next i
.Row = 1
.Col = 1
End With
'Deuxième méthode
Dim i As Integer
Dim IntCol, IntLigne As Integer
With MSHFlexGrid1
.SetFocus
'Sélectionne la cellule 1 de la première ligne et de la première colonne
.Row = 1
.Col = 1
'Défini le nombre de colonnes et le nombre de lignes
IntCol = .Cols - .FixedCols
IntLigne = .Rows - .FixedRows
'Exécute la boucle
For i = 1 To IntLigne
.Row = i
.Col = 1
'Sélectionne la ligne entière
.ColSel = IntCol
If (i Mod 2) = 0 Then
.CellForeColor = vbBlue
Else
.CellForeColor = vbRed
End If
Next i
.Row = 1
.Col = 1
End With