Tri d'un objet grid à partir d'une colone référente

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 665 fois - Téléchargée 86 fois


Contenu du snippet

Cette exemple utilise une fonction d'un autre
exemple permettant de permuter deux lignes
d'un objet Grid : SwapRowGrid()

Source / Exemple :


' ------------------------------------------------------
' Permet d'effectuer un tri dans un objet Grid à partir
' d'une colone de référence
'
Sub SortedGrid(grille As Grid, ByVal Col As Integer)
    Dim ct As Integer, ct2 As Integer, swapRow As Integer
    Dim curVal As Integer, oldVal As Integer
    
    
    If Col < 0 And Col > grille.Cols - 1 Then Exit Sub
    
    For ct = grille.Rows - 1 To grille.FixedRows Step -1
        grille.Row = ct
        grille.Col = Col
        oldVal = Val(grille.Text)
        swapRow = ct
        
        For ct2 = ct To grille.FixedCols Step -1
            grille.Row = ct2
            grille.Col = Col
            
            If oldVal < Val(grille.Text) Then
                Call SwapRowGrid(grille, swapRow, ct2)
                swapRow = ct2
            ElseIf oldVal > Val(grille.Text) Then
                Exit For
            End If
        Next
    Next
End Sub

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de tdihedi

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.