Tri d'une mshflexgrid par click sur l'entête

Commenter

Contenu du snippet

Bonjour tout le monde:
J'avais beau cherché un code qui permet de réaliser un tri dans une MSHFlexGrid en cliquant sur l'entête de la table (Style DatagridView de VB2005) sans jamais trouver une réponse.

Voici la solution que j'ai utilisé et qui marche très bien et en plus le code est assez cours! ;-))

Source / Exemple : 


Option Explicit
Dim Csst As Boolean                'Variable utilisée dans le code

Private Sub a_Click()              ' a est le nom de la MSHFlexGrid
    If (a.MouseRow = 0) Then       ' Clique sur l'entête de la MSHFlexGrid
        If Csst Then               ' Tri Croissant
            a.Col = a.MouseCol
            a.Sort = 2
            Csst = False
        Else                       'Tri Décroissant
            a.Col = a.MouseCol
            a.Sort = 1
            Csst = True
        End If
    End If
End Sub

Conclusion :


Un premier clique = Tri Croissant
Un deuxième clique = Tri Décroissant
Bonne chance ;-)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (adamo901)