MSFLEXGRID:AIDEZ-MOI S.V.P/URGENT

Question

Est-ce que quelqu'un aurait une solution??

J'ai une MsflexGrid, lorsque l'utilisateur sélectionne une ou plusieurs cellules de la FlexGrid, et qu'îl clique sur un bouton,
les cellules sélectionnées changent de couleur de fond!!

Pour l'instant j'ai ça:
-----------------------------------------------------------
Private Sub CmdChangerCouleur_Click()

MsfgHoraire.Cols = MsfHoraire.ColSel
MsfgHoraire.Rows = MsfHoraire.RowSel
MsfgHoraire.CellBackColor = 74652

End Sub

-------------------------------------------------------
le problème c'est que les propriétés ColSel et RowSel
reprèsentent seulement la cellule de départ de sélection, celle dans laquelle on a cliqué avant de glisser pour en sélectionner d'autres.
Autrement dit, j'ai qu'un seule cellule qui change de couleur

J'espère que vous aurez une soluce!!
A+

cs_DeathAngel · Answer

Salut STC, 

il faut changer la propriété backcolorsel
MsfgHoraire.BackColorSel=Ton_Code_Couleur

et aussi la propriété ForeColorSel
MsfgHoraire.ForeColorSel=Ton_Code_Couleur
histoire de pas écrire en blanc sur fond blanc !!!

@peluche
DA

STCManiak · Answer

salut DeathAngel
Merci pour ta réponse, mais ce que je voudrais, c'est pas changer la couleur des cellules sélectionés, pendant la sélection,mais après!!
par exemple je sélectionne les cellules:
(0,1)(0,2)(0,3)(1,1)(1,2)(1,3)
j'aimerais peser sur un bouton, qui change définitivement 
la couleurs des celleules sélectionnées,
avec le code que j'ai mis juste ci-dessous,
il y a seulement la cellule(0,1) qui change de couleur!

cs_DeathAngel · Answer

OK, j'avais pas pigé,
voilà une solution, certes pas très élégante, mais qui fonctionne très bien ^_^

Private Sub Command1_Click()
'Change la couleur de la selection
'on doit respecter i<=k et j<=l

Dim i As Long 'Bord haut de la plage de sélection
Dim j As Long 'Bord gauche de la plage de sélection
Dim k As Long 'Bord bas de la plage de sélection
Dim l As Long 'Bord droite de la plage de sélection
Dim a As Long
Dim b As Long

    With Me.MSFlexGrid1
        If .Row <= .RowSel Then
            i = .Row
            k = .RowSel
        Else
            i = .RowSel
            k = .Row
        End If
        
        If .Col <= .ColSel Then
            j = .Col
            l = .ColSel
        Else
            j = .ColSel
            l = .Col
        End If
        
        For a = i To k
            
            For b = j To l
                .Row = a
                .Col = b
                .CellBackColor = RGB(123, 321, 154)
            Next b
            
        Next a
        
    End With
    
End Sub

Voilou
J'espère que ça va t'aider ...

@peluche
DA

MSFLEXGRID:AIDEZ-MOI S.V.P/URGENT

3 réponses

Discussions similaires