Discussion :

[delamarque]

Bonjour tt le monde,

La semaine derniere ouskel'n'or m'a donné une macro word permettent de chercher un mot et de coller la ligne correspondante sur un autre doc :

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
31
32
Sub chercher()
 
    'place en haut du document
    Selection.HomeKey Unit:=wdStory
 
    'caractéristiques du signe cherché
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ChrW(61510)
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
 
    'Place en début de ligne
    Selection.HomeKey Unit:=wdLine
 
    'Sélectionne toute la ligne
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
 
    'Colle la ligne sur un nouveau document
    Selection.Copy
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.Paste
 
 End Sub

Le pb c'est que si on a plusieurs lignes contenant le caractere recherché, le code trouve le premier mot, colle la ligne sur un autre document et s'arrete. Ils n'éxecute la procédure qu'une seule fois.[/list][/quote]

[ouskel'n'or]

le code trouve le premier mot, colle la ligne sur un autre document et s'arrete

Merci de la précision, mais tu aurais dû rester sur le même post.
Pour répéter l'opération, il faut que tu mettes les lignes que je t'ai passées dans une boucle

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
31
32
33
34
35
Sub chercher()
Dim ok As Boolean
Dim NomDocPrincipal
    Application.DisplayAlerts = Fales
    NomDocPrincipal = ActiveDocument.Name
    'place en haut du document
    Selection.HomeKey Unit:=wdStory
    ok = True
    Do While ok
        'caractéristiques du signe cherché
        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = "+" 'ChrW(61510)
            .Forward = True
            .Wrap = wdFindAsk
            .Format = True
        End With
        Selection.Find.Execute
 
        'Place en début de ligne
        Selection.HomeKey Unit:=wdLine
 
        'Sélectionne toute la ligne
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        ok = InStr(Selection, "+") <> 0
        'Colle la ligne sur un nouveau document
        If ok Then
            Selection.Cut
            Documents.Add
            Selection.Paste
        End If
        Documents(NomDocPrincipal).Select
    Loop
    Application.DisplayAlerts = True
End Sub

A+

[ouskel'n'or]

NB - Place le caractère cherché dans une variable sinon tu seras obligé de l'écrire plusieurs fois

[delamarque]

je vais essayer avec ce code et je te dirai si ca marche je te remercie d'avance