Source / Exemple :
' ----------------------------------------------------
' Permute les données de deux Rows d'un même tableau :
'
Sub SwapRowGrid(laGrille As Grid, ByVal Row1 As Integer, ByVal Row2 As Integer)
Dim valeur1 As String, valeur2 As String, ct As Integer
If Row1 < 0 Or Row1 > laGrille.Rows - 1 Then Exit Sub
If Row2 < 0 Or Row2 > laGrille.Rows - 1 Then Exit Sub
For ct = laGrille.FixedCols To laGrille.Cols - 1
laGrille.Col = ct
' Récupération des valeurs :
laGrille.Row = Row1
valeur1 = laGrille.Text
laGrille.Row = Row2
valeur2 = laGrille.Text
' Permutation des valeurs :
laGrille.Row = Row1
laGrille.Text = valeur2
laGrille.Row = Row2
laGrille.Text = valeur1
Next ct
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.