Discussion :

[delamarque]

bonjour à tous,

Ma question est : quel macro sous word XP peut me permette de reconnaître les signe +, de copier les lignes qui contiennent ce signe(un + par ligne maximum), et de les coller à un endroit quelconque de mon classeur?

Merci d'avance pour votre aide

[ouskel'n'or]

Hello,

Je ne pense pas que la syntaxe ait changé pour ça depuis VBA97, aussi je te propose ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Selection.HomeKey Unit:=wdStory 'Te place en haut du document
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "+"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine   'Place en début de ligne
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend  'Sélectionne toute la ligne
    Selection.Cut   'Coupe la ligne
    Selection.MoveDown Unit:=wdLine, Count:=7  'la colle 7 lignes en dessous... de la ligne du dessous  :wink: 
    Selection.Paste

Je pense bien que ça ne résoud pas tout ton problème mais déjà, si ça marche, on aura fait un pas dans le bon sens...

A+

NB - D'ailleurs, rien ne t'empêche d'enregistrer une macro qui fait ça, tu auras au moins le bon code si celui-ci ne marche pas

[delamarque]

super merci beaucoup je vais essayer ton code et le modifier si necessaire en m'aidant de l'aide

[delamarque]

c bien ms le seul pb c'est que l'execution ne se fait qu'une fois

[ouskel'n'or]

c bien ms le seul pb c'est que l'execution ne se fait qu'une fois

Oui, tu n'as pas dit ce que tu voulais faire.
Comment situes-tu l'endroit où tu souhaites coller la ligne ?

et de les coller à un endroit quelconque de mon classeur

On parle bien de Word ?

A+