Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 840 fois - Téléchargée 90 fois
' ---------------------------------------------------- ' 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.