Inverser un texte complet (1ere ligne à la place de la dernière etc...)

R

ricoharpe

XLDnaute Nouveau

• 29 Octobre 2015

• #2

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...)

bonjour
voir PJ, j'espere avoir eté compréhensible
clt

 

Pièces jointes

• Classeur2.xlsx

  8.1 KB · Affichages: 117
• Classeur2.xlsx

  8.1 KB · Affichages: 98

Vote positif 0 Vote négatif

E

elrabo

XLDnaute Nouveau

• 29 Octobre 2015

• #3

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...)

Bonjour,
Merci pour ta réponse mais c'est pour une feuille excel ...moi je voudrais le faire sur Word.
J'ai vue que sur word aussi il y a un rangement par ordre alphabétique mais même si je fait apparaitre le nombre de ligne et que je clic sur ranger par ordre numérique il ne tient pas compte des numéros de ligne.

 

Vote positif 0 Vote négatif

H

homepyrof53

XLDnaute Occasionnel

• 6 Novembre 2015

• #4

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...)

Bonjour,

Tu fais une macro qui insère un numéro a partir de 1000 avec un incrément de 1

Trier en ordre inverse

Seconde macro qui supprime les numéros

 

Vote positif 0 Vote négatif

R

ricoharpe

XLDnaute Nouveau

• 6 Novembre 2015

• #5

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...)

salut
j'avai pas compris que c'ete sur word
ce que tu peut faire c'est faire un copier collé du texte word dans excel.
a+

 

Vote positif 0 Vote négatif

H

homepyrof53

XLDnaute Occasionnel

• 6 Novembre 2015

• #6

Re : Inverser un texte complet (1ere ligne à la place de la dernière etc...)

Bonjour,

Voici une macro

Sub lignes()
nbp = ActiveDocument.Paragraphs.Count

For b = 1 To nbp - 1
Selection.EndKey unit:=wdStory
Selection.Paragraphs(1).Range.Select
Selection.Cut
Selection.HomeKey unit:=wdStory
Selection.MoveDown unit:=wdParagraph, Count:=b - 1
Selection.Paste
Next
End Sub

 

Vote positif 0 Vote négatif