Macro recherche remplace colorée

**Alain-Ambazac** · 11/04/2016, 15h46

Bonjour à tous,

Dans ma macro recherche-remplace, je souhaite remplacer par mon texte de recherche, mais que le remplacement se fasse en bleu.
Dans Word cela se fait sans problème dans la boîte de dialogue remplacement (format, police,couleur de police), mais dans ma macro il manque un truc qui préciserait la couleur.
Que faudrait-il modifier pour que le remplacement se fasse en bleu?

Merci pour votre aide

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 bon_coup_en_bleu()
'
' bon_coup_en_bleu Macro
' Macro enregistrée le 11/04/2016 par Alain_2
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "le bon coup "
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

**cerede2000** · 11/04/2016, 16h34

Bonjour à toi,

Je t'invite déjà à consulter la doc de .Find

Ce qui t’intéresse est la partie .Replacement de .find et en particulier .Replacement.Font
Donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Selection.Find        .Text = "le bon coup "
        .Replacement.Text = "^&"
        .Replacement.Font.ColorIndex = vbBlue
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

**Alain-Ambazac** · 11/04/2016, 18h23

Merci à toi Cerede2000 pour ta réponse rapide et les liens de documentation.

J'ai copié

Code :

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

.Replacement.Font.ColorIndex = vbBlue

là où il fallait dans la macro, mais en exécutant la macro pas à pas, le déroulement bloque sur cette ligne en affichant une boîte de dialogue disant:
erreur d’exécution '5843': l'un des arguments est hors limites.
Je ne vois pas trop quoi faire...
Bon, si tu as une idée, je prends.