Choix dans une boîte de dialogue à définir [Résolu]

[maa]

Bonjour,
Je suis un peu débutant... J'ai crée une macro dans Word pour supprimer les retours à la ligne (voir juste en dessous). Ainsi lorsque je veux supprimer les retours à la ligne d'un texte, je le sélectionne et j'applique la macro. Ca marche bien mais seul problème, Word affiche une boite de dialogue après avoir effectué l'opération où il est dit : "Recherche dans la sélection terminée. 10 remplacement(s) effectué(s). Continuer la recherche dans le reste du document ?" avec en choix possible Oui ou Non. J'aimerai qu'il n'affiche pas cette boîte de dialogue à chaque fois, et éviter ainsi de cliquer à chaque fois sur Non (parce que je ne veux jamais étendre la recherche). Je n'ai pas trouvé dans les options de Word le moyen de la désactiver, j'espère donc qu'on peut le définir avec vba.
Merci pour votre aide.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SupprParagraphe()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[ouskel'n'or]

Ajoute

Code :

Application.DisplayAlerts = false

en début de macro et remets-le à true à la sortie

Juste une indication : Ton code reprends tous les paramètres qui sont fixés par défaut. Tu peux simplifier

Code :

1
2
3
4
5
6
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
    End With

A toutes fins utiles

[maa]

Merci pour votre réponse. La boîte de dialogue ne s'affiche effectivement plus, par contre word choisi par défaut "Oui" à la question d'étendre la recherche à tout le document. Comment puis-je changer ce choix par défaut (je voudrais qu'il choisisse "Non") de sorte que la recherche ne s'étende pas à tout le document ?
Encore merci de votre aide.

[ouskel'n'or]

Tu remplaces la ligne

.Wrap = wdFindAsk

par

Code :

.Wrap = wdFindStop

A+