Permute deux lignes d'un objet grid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 469 fois - Téléchargée 88 fois


Commenter

Contenu du snippet


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

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 (blq)