Discussion :

[pwyll2]

Salut

Je suis débutant (hyper débutant) en macros.
J'ai une tâche répétitive à réaliser dans word, en fait je dois déplacer des lignes de texte qui commencent toutes par les mêmes caractères. Bref, j'arrive à faire ça au clavier donc j'ai enregistré ma macro avec Word.
Sauf que j'ai ensuite lancé cette macro pour réaliser la tâche, mais ça ne l'a fait que sur une ligne de texte.
Il faudrait que je sache quel code taper afin que la tâche soit reproduite jusqu'à la fin du document (et qu'elle s'arrête alors)...
je sais c'est super basique mais je suis super débutant et j'ai pas trouvé dans l'aide de Word...

je vous copie-colle ma macro actuelle:

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
 
Sub InverserSfxEtXv()
'
' InverserSfxEtXv Macro
' Macro enregistrée le 24/03/2012 par L
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "\sfx "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

merci beaucoup d'avance!!

[pwyll2]

Merci de ta réponse mais ça ne répond pas à ma question. Ma macro est pas censée remplacer du texte, mais intervertir 2 lignes qui commencent par les mêmes caractères mais qui dans le reste de la ligne sont différentes à chaque fois...
Ma macro repère les lignes en question (puisqu'elles commencent par le même texte), les sélectionne, les coupe et les colle à un autre endroit.

Rechercher/remplacer permet pas de faire ça ; une macro le peut, mais par contre, et c'est là ma question, ce que je sais pas faire c'est faire en sorte que ça fasse un "loop" donc que ça fasse la tâche dans le document en entier et pas seulement à la première occurrence...

Merci d'avance...

[Heureux-oli]

Salut,

Il faut faire une boucle basée sur le résultat de la recherche. Tant que la recherche est fructueuse, on continue.

il y a au moins un exemple là : http://heureuxoli.developpez.com/off...-et-remplacer/

[pwyll2]

Merci... je crois avoir compris qu'il faut mettre "For" et "Next" quelque part, mais je sais pas trop où, ni quoi mettre après "For"... je suis vraiment débutant.

[Heureux-oli]

Salut,

Dans le 3B, il y a des boucles sur le résultat de la recherche.

[pwyll2]

Merci, mais comme je comprends pas la moitié du code, je ne sais pas ce que je dois recopier et ce que je dois laisser.
Par exemple, j'ai cherché "boofound" dans Google, et je suis tombé sur des kilos de pages de Visual Basic mais aucune explication sur sa fonction...
J'aurais besoin d'une aide plus concrète...
merci

[Heureux-oli]

Salut,

C'est normal que la recherche ne donne rien de pertinent.

booFound est une variable de type Booléen que j'ai déclarée pour ma procédure.

J'affecte une valeur à cette variable pour un test logique en fonction du résultat du test, on continue ou on arrête la procedure.

Si on détaille, j'essaie dans la déclaration des variables d'utiliser en début de nom de variable le type de variable.

boo => Booléen
st => String
int => Integer
lng => Long
o => Object