Discussion :

[ouar]

Bonjour amis developpeurs,

J'ai presque honte de n'avoir pu résoudre ce problème mais meme apres quelques recherches, je ne trouve pas de solution(s):

Private Sub Command1_Click()
MSFlexGrid1.BackColor = vbGreen
End Sub

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.CellBackColor = vbYellow
End Sub

Je clique sur les cellules de la grille, elles virent au jaune mais il m'est impossible de les remettre toutes vertes. J'ai pourtant essayé plein de propriétés.
Comment faire ?
Merci d'avance

Ouar

[ThierryAIM]

Lorsqu'au moins une cellule a été définie avec une couleur de fond, j'ai pas trouvé d'autre astuce que de parcourir toutes les cellules de la flex

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim i As Integer, j As Integer
    For i = MSFlexGrid1.FixedCols To MSFlexGrid1.Cols - MSFlexGrid1.FixedCols
        For j = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - MSFlexGrid1.FixedRows
            MSFlexGrid1.Col = i: MSFlexGrid1.Row = j
            MSFlexGrid1.CellBackColor = vbGreen
        Next j
    Next i
End Sub

[ouar]

Ah d'accord, j'y avait pensé à un moment mais je trouvais bête que ça ne se fasse pas en un seul coup .
En tous cas merci !