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
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.