Discussion :

[sanandreas1202]

Bonjour,

j'ai créer une macro qui change tout les 1.2 en 1,2. Elle fonctionne correctement. Par contre j'aimerais la modifier pour qu'elle fasse le changement uniquement sur une zone de texte sélectionné, mais je n'y arrive pas. Est-ce que quelqu'un peut m'aider?

Voila le code:

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
 
   Dim count As Integer
   Options.DefaultHighlightColorIndex = wdYellow
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
 
    Selection.Find.Replacement.Highlight = True
 
    With Selection.Find
 
        .Text = "([0-9])" & "." & "([0-9])"
        .Replacement.Text = "\1,\2"
        .Forward = True
 
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
 
        While .Execute(Replace:=wdReplaceOne)
            count = count + 1
            Selection.Collapse wdCollapseStart
        Wend
    End With

[QuestVba]

Bonjour,

Tu pourrais ajouter

Code :

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

 .Wrap = wdFindAsk

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
 Dim count As Integer
   Options.DefaultHighlightColorIndex = wdYellow
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
 
    Selection.Find.Replacement.Highlight = True
 
    With Selection.Find
 
        .Text = "([0-9])" & "." & "([0-9])"
        .Replacement.Text = "\1,\2"
        .Forward = True
        .Wrap = wdFindAsk        
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
 
        While .Execute(Replace:=wdReplaceOne)
            count = count + 1
            Selection.Collapse wdCollapseStart
        Wend
    End With

[Heureux-oli]

Salut,

Je pense pas que ça suffise.

La recherche se fait sur un Range ou un Selection.

Si la zone de texte n'est pas sélectionnée, le code ne fara pas de remplacement.

Il faut faire une boucle sur les différentes zones de texte du document et pour chaque zone faire la recherche.

[QuestVba]

Re-,

Ceci devrait faire mieux.... Il remplace dans le texte sélectionné et ne demande pas pour continuer à tout le texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Selection.Find.Replacement.ClearFormatting
With Selection.Find
        .Text = "1.9"
        .Replacement.Text = "1,9"
        .Forward = True
        .Wrap = wdFindStop        
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

[Heureux-oli]

Salut,

Pas plus que l'ancien code. Si tu ne mets pas la sélection sur la zone de texte, la recherche se borne à la MainStory.

Les choix wdFindStop ou wdFindAsk sont juste des paramètres qui selon le choix vont arrêter la recherche à la find du document ou poser une question à l'utilisateur.

[QuestVba]

Bonjour Heureux-oli,

Je sélectionne la zone de texte et lance la macro ; le changement ne se fait que dans la zone sélectionnée.

Il doit y avoir un truc qui m'échappe.

[sanandreas1202]

Chez moi, lorsque je sélectionne un texte avec mon curseur, la modification se fait sur la totalité du texte et non sur la partie sélectionnée...

[QuestVba]

Re-,

Tu sélectionnes une partie du texte, ou une partie d'une zone de texte ou ...?

[Heureux-oli]

Salut,

Bonjour Heureux-oli,

Je sélectionne la zone de texte et lance la macro ; le changement ne se fait que dans la zone sélectionnée.

Il doit y avoir un truc qui m'échappe.

Tu as raison si tu sélectionne la zone de texte avant de lancer le code.
Après avoir relu la première question , c'est bien le but souhaité. Je pensais que la boucle devait se faire sur les différentes zones de texte du document.

[sanandreas1202]

Je sélectionne le texte dans le document.

J'aimerais sélectionner du texte et faire le remplacement dans le texte sélectionné!

Je ne sais pas si je suis clair...

[Heureux-oli]

Salut,

Le code qui est donné fait le remplacement dans le texte qui est sélectionné.

Voilà le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub RemplacementOli()
With Selection.Find
    .Text = "1.2"
    .Replacement.Text = "1,2"
    .Wrap = wdFindStop
    .Forward = True
    .Execute Replace:=wdReplaceAll
End With
 
End Sub

[sanandreas1202]

Le problème c'est que j'ai besoin de garder le code suivant

Code :

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

1
2
3
4
5
 
        While .Execute(Replace:=wdReplaceOne)
            count = count + 1
            Selection.Collapse wdCollapseStart
        Wend

qui me permet de compter le nombre de modifications effectuées dans le texte. Et je sais que la commande .Execute(Replace:=wdReplaceOne) posse problème car c'est elle qui fait continuer le remplacement... Dès que je l'enlève, cela fonctionne correctement.

Est-ce que quelqun'un a une idée pour un changement?

[QuestVba]

Re,

Voici un changement: compteur et remplacement

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
36
37
38
Sub Cherchons_Remplacons()
 
Datext = Selection.Text
'Motcher=mot à remplacer
Motcher = "1.9"
'ctr=compteur
ctr = 0
Pos = 0
Do
Pos = InStr(1, Datext, Motcher, 1)
'Chaîne non trouvée.
If Pos = 0 Then
Exit Do
End If
'ctr = nombre d'occurrences
ctr = ctr + 1
Datext = Right(Datext, Len(Datext) - Pos)
Loop While (ctr > 0 And Len(Datext) > Len(Motcher))
MsgBox ctr
 
Selection.Find.Replacement.ClearFormatting
With Selection.Find
        .Text = "1.9"
        .Replacement.Text = "1,9"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With
 
Selection.Find.Execute Replace:=wdReplaceAll
 
 
End Sub

[sanandreas1202]

La macro ne fait pas vraiment ce que je cherche à faire...

Il faut remplacer tous les points qui se trouvent entre deux chiffres et non pas uniquement 1.9...