Discussion :

[bruxmu]

Bonjour Forum,

Je me suis créé une macro pour déplacer une ligne vers le haut sans toucher à la souris, mais dans certains cas ça marche mal.
(différence de puces, décalages, styles, entre les lignes concernées).

Mes connaissances en VBA sont insuffisantes pour améliorer voire repenser cette macro.

Quelqu'un pourrait-il m'aider ?

Merci !

(PS : j'ai le même besoin pour le déplacement d'une ligne vers le bas !)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Edition_Déplacer_Ligne_vers_le_haut()
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveUp Unit:=wdLine, Count:=1
End Sub

[Heureux-oli]

Salut,

Si ton souhait est de le faire sur n'importe quelle ligne et de tenir compte des paramètres de mise en forme et de style, tu vas avoir une usine à gaz.

Pour du texte simple, il suffit de récupérer le texte sans mise en forme et de le déplacer ou inverser avec une autre ligne.

[bruxmu]

Merci pour ta réponse.

En fait, c'est très important pour moi de ne pas toucher aux paramètres de mise en forme.
Sur cette base, ma macro fonctionne plutôt bien, mais j'ai parfois des résultats inattendus (insertion de la ligne à déplacer au milieu de la ligne du dessus ou autre).

Si qqn voit comment améliorer ça...

[bruxmu]

Bon, j'ai retravaillé ma macro pour éliminer certains défauts, et finalement elle marche.


Si ça peut être utile à qqn :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Edition_Déplacer_Ligne_vers_le_haut()
 
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdLine
    Selection.PasteAndFormat (wdListCombineWithExistingList)
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdLine
 
End Sub

La version pour descendre la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Edition_Déplacer_Ligne_vers_le_bas()
 
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdLine
 
    End Sub