Inverser l'ordre d'un tableau

Le
bob123
Bonjour,

Comment inverser l'ordre des lignes d'un tableau
par exemple:
ligne1
.
ligne n

pour obtenir
ligne n

ligne 1

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
heureux-oli
Le #19457811
Salut,

Une solution consisterais à créer un nouveau tableau identique au premier et
de copier via VBA les données qui s'y trouvent.

Une seconde option serait d'ajouter une colonne au tableau d'y inclure un
nombre et de faire un tri inverse.

Pour ajouter la colonne, soit à la main, soit en VBA.

Si tu ajoutes une colonne et qu'elle est la première du tableau.
'***********************************
Sub AjouterNombre()
Dim oTbl As Table
Dim intLigne As Integer

Set oTbl = ActiveDocument.Tables(1)
For intLigne = 1 To oTbl.Rows.Count
oTbl.Cell(intLigne, 1).Range.Text = intLigne
Next intLigne

Set oTbl = Nothing


End Sub
'***********************************
Si ta colonne n'est pas la première,

dans cette ligne : oTbl.Cell(intLigne, 1).Range.Text = intLigne
change le 1 par le numéro de ta colonne.

Lorsque tu as les nombres, fais un tri et supprime la colonne.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"bob123" 4a2286f7$0$8963$
Bonjour,

Comment inverser l'ordre des lignes d'un tableau
par exemple:
ligne1
....
ligne n

pour obtenir
ligne n
...
ligne 1

Merci d'avance






bob123
Le #19459871
OK merci

"heureux-oli" %
Salut,

Une solution consisterais à créer un nouveau tableau identique au premier
et de copier via VBA les données qui s'y trouvent.

Une seconde option serait d'ajouter une colonne au tableau d'y inclure un
nombre et de faire un tri inverse.

Pour ajouter la colonne, soit à la main, soit en VBA.

Si tu ajoutes une colonne et qu'elle est la première du tableau.
'***********************************
Sub AjouterNombre()
Dim oTbl As Table
Dim intLigne As Integer

Set oTbl = ActiveDocument.Tables(1)
For intLigne = 1 To oTbl.Rows.Count
oTbl.Cell(intLigne, 1).Range.Text = intLigne
Next intLigne

Set oTbl = Nothing


End Sub
'***********************************
Si ta colonne n'est pas la première,

dans cette ligne : oTbl.Cell(intLigne, 1).Range.Text = intLigne
change le 1 par le numéro de ta colonne.

Lorsque tu as les nombres, fais un tri et supprime la colonne.
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/

----------------------------------------------------------------------------------

"bob123" 4a2286f7$0$8963$
Bonjour,

Comment inverser l'ordre des lignes d'un tableau
par exemple:
ligne1
....
ligne n

pour obtenir
ligne n
...
ligne 1

Merci d'avance










Publicité
Poster une réponse
Anonyme