Discussion :

[alexandrefcsm]

Bonjour tout le monde,

Je cherche à remplacer les virgules en point dans un rapport word mais le recherche et remplace est utilisé sur tout le document word.

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
Sub CommaINdot()
 
ActiveDocument.Tables(3).Columns(3).Select
 
 
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 Replace:=wdReplaceAll
    Application.WindowState = wdWindowStateMaximize
 
End Sub

Est-ce mon code qui ne va pas?

Merci d'avance

[Souriane]

Bonjour,

Tu dois remplacer cette ligne

Code :

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

.Wrap = wdFindContinue

Avec celle-ci :

Code :

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

.Wrap = wdFindStop

Bonne chance!

Souriane