Discussion :

[bruxmu]

Bonjour Forum,

Pour m’aider dans l’écriture d’un texte assez long, j’ai besoin d’une macro qui « envoie » la ligne courante à la fin du document (pour mettre de côté des bribes de texte inutilisées).

Malheureusement, celle que j’ai mise au point (bidouillé serait plus juste) modifie l’affichage.

Quelqu’un pourrait-il m’aider à revoir cette macro pour que le texte de la ligne courante parte à la fin du doc, sans que l’affichage se modifie ?

Merci !!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Envoyer_à_la_fin()
    Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Cut
    Selection.TypeText Text:="$ù$ù"
    Selection.EndKey Unit:=wdStory
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "$ù$ù"
        .Replacement.Text = "@@@@"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1
    'Application.ScreenUpdating = True
End Sub

[Heureux-oli]

Salut,

Qu'entends tu par ligne ?

[fraflt69]

Bonjour

Première réponse, je n'ai pas lu entièrement les règles du forum mais j'apporte mon aide et comme à mon habitude sans avoir testé jusqu'au bout (il faut laisser un peu de travail)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Envoyer_à_la_fin()
'récupérer la ligne
ligne = Selection.Information(wdFirstCharacterLineNumber)
'récupérer la colonne
colonne = Selection.Information(wdFirstCharacterColumnNumber)
'Sélectionner la ligne
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
' copier la ligne
Selection.Paste
'couper la ligne
Selection.Cut
' aller en fin de document
Selection.EndKey Unit:=wdStory
' coller le contenu
Selection.PasteAndFormat (wdFormatOriginalFormatting)
' revenir en début de document
Selection.HomeKey Unit:=wdStory
'sauter le nombre de lignes
 For i = 1 To ligne
Selection.Move Unit:=wdLine, Count:=1
Next
'déplacer le curseur vers la droite jusqu'à la colonne
 For i = 1 To colonne
Selection.Move Unit:=wdCharacter, Count:=1
 Next
End Sub

[MyKroPhone]

Salut, je mets ça dans un de mes codes si ça peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ''saloperies a faire car Word se met tout seul en affichage brouillon a cause des select''
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ActiveWindow.ActivePane.Close
        If ActiveWindow.View.SplitSpecial = wdPaneNone Then
            ActiveWindow.ActivePane.View.Type = wdPrintView
        Else
            ActiveWindow.View.Type = wdPrintView
        End If

[Heureux-oli]

Salut,

Salut, je mets ça dans un de mes codes si ça peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ''saloperies a faire car Word se met tout seul en affichage brouillon a cause des select''
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        ActiveWindow.ActivePane.Close
        If ActiveWindow.View.SplitSpecial = wdPaneNone Then
            ActiveWindow.ActivePane.View.Type = wdPrintView
        Else
            ActiveWindow.View.Type = wdPrintView
        End If

Je pense que ça va beaucoup aider !
Modifier le mode d'affichage est vraiment ce qui est recherché.

Bonjour

Première réponse, je n'ai pas lu entièrement les règles du forum mais j'apporte mon aide et comme à mon habitude sans avoir testé jusqu'au bout (il faut laisser un peu de travail)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Envoyer_à_la_fin()
'récupérer la ligne
ligne = Selection.Information(wdFirstCharacterLineNumber)
'récupérer la colonne
colonne = Selection.Information(wdFirstCharacterColumnNumber)
'Sélectionner la ligne
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
' copier la ligne
Selection.Paste
'couper la ligne
Selection.Cut
' aller en fin de document
Selection.EndKey Unit:=wdStory
' coller le contenu
Selection.PasteAndFormat (wdFormatOriginalFormatting)
' revenir en début de document
Selection.HomeKey Unit:=wdStory
'sauter le nombre de lignes
 For i = 1 To ligne
Selection.Move Unit:=wdLine, Count:=1
Next
'déplacer le curseur vers la droite jusqu'à la colonne
 For i = 1 To colonne
Selection.Move Unit:=wdCharacter, Count:=1
 Next
End Sub

Pas testé jusqu'au bout, je pense bien, même pas la première ligne.

Si c'est pour copier une ligne et pas un paragraphe, on peut faire plus simple que de passer par des variables non déclarées qui vont générer une erreur et de signaler une copie avec un Paste.

Sans avoir attendu la réponse du posteur initial.
Un petit bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopierLigne()
'étendre la sélection
Selection.Expand unit:=wdLine
'copier la sélection "Cut" pour la déplacer
Selection.Copy
'déplacer la sélection à la fin du document
Selection.EndKey unit:=wdStory
'ajouter un paragraphe
Selection.InsertParagraph
'coller la ligne
Selection.Paste
 
End Sub

[bruxmu]

Bonjour et merci à tous pour vos contributions !

@Heureux-oli : pour moi, une ligne c'est ce qui tient visuellement sur une ligne en affichage par page

@fraflt69 : j'ai implémenté ton code (peut-être mal ?), et ce qu'il fait, c'est coller le code à la place du texte à bouger !?

@MyKroPhone : je ne sais pas trop quoi faire de ton code...

@Heureux-oli (bis) : ton code copie/colle la ligne en cours, mais affiche la zone de destination, alors que ce que je souhaite faire c'est ne pas changer l'affichage quand la macro s'exécute.


Merci à tout contributeur éventuel !

[Heureux-oli]

Salut,

Ce n'est pas l'affichage qui est modifié mais l'endroit où est collée la ligne.
Il suffit après avoir copié et avant de déplacer de mettre un signet pour le récupérer ensuite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CopierLigne()
'étendre la sélection
Selection.Expand unit:=wdLine
'copier la sélection "Cut" pour la déplacer
Selection.Copy
'Signet
Selection.Bookmarks.Add Name:="myBM", Range:=Selection.Range
'déplacer la sélection à la fin du document
Selection.EndKey unit:=wdStory
'ajouter un paragraphe
Selection.InsertParagraph
'coller la ligne
Selection.Paste
ActiveDocument.Bookmarks("myBM").Select
 
End Sub

[bruxmu]

Merci pour ta réponse.

C'est sûr que ton code est plus pro que mes bidouilles.
Ça marche...presque !
D'une part, il me semble qu'il faut remplacer

Selection.Copy

par

Selection.Cut

.
D'autre part, l'affichage est modifié après le couper/coller de la ligne (la feuille remonte vers le haut de l'écran).
Je ne sais pas quoi faire...

[Heureux-oli]

Merci pour ta réponse.

C'est sûr que ton code est plus pro que mes bidouilles.
Ça marche...presque !
D'une part, il me semble qu'il faut remplacer par .
D'autre part, l'affichage est modifié après le couper/coller de la ligne (la feuille remonte vers le haut de l'écran).
Je ne sais pas quoi faire...

Pour le cut, c'est dans les commentaires du code.
Mais dans ce cas, le signet est supprimé, il faut le déplacer soit avant, soit après la sélection avec un Selection.Collapse

[bruxmu]

Bonjour,

Merci pour ta réponse.

Pour le Cut au lieu du Copy : désolé, j'avais pas percuté.
J'ai donc conservé ton code (qui copie/colle en fin de doc), et ajouté de quoi couper la sélection à la toute fin : nickel.

Dernier problème : tu saurais quoi faire pour que l'affichage ne bouge pas du tout quand la macro colle le texte à la fin ?

[carden752]

Dernier problème : tu saurais quoi faire pour que l'affichage ne bouge pas du tout quand la macro colle le texte à la fin ? .

Bonjour,

Il est possible de figer l'affichage de l'application :

Code :

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

Application.ScreenUpdating = False

Puis permettre sa mise à jour en lui affectant la valeur true

Code :

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

Application.ScreenUpdating = True

Cependant, cela ne fonctionnera pas avec l'objet selection, il faudrait utiliser un objet de type range à la place.

[bruxmu]

Merci pour ta réponse.

En fait, utiliser Application.ScreenUpdating = False c'est ce que j'avais fait au début et j'avais en effet constaté que ça ne marchait pas.

Et je suis incapable d'adapter le code pour

utiliser un objet de type range à la place

de l'objet selection.

S'il passe ici des âmes charitables, je veux bien un coup de main là-dessus.

...hmmm : ça n'inspire personne ?

:o(