Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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.
"bob123" a écrit dans le message de news: 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
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/
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.
"bob123" a écrit dans le message de news: 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
OK merci
"heureux-oli" a écrit dans le message de news: %
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.
"bob123" a écrit dans le message de news: 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
OK merci
"heureux-oli" <yyy.heureux-oli@hotmail.yyy> a écrit dans le message de news:
%23fmY4Lh4JHA.1092@TK2MSFTNGP06.phx.gbl...
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/
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.
