Marc recherche le moyen le plus rapide et le plus efficace – dans une macro – de déterminer le nombre de fois qu’une chaîne de texte particulière apparaît dans un document. Malheureusement, il n’y a aucun moyen de faire cela avec une simple commande ou deux; à la place, vous devez « parcourir » un document à l’aide de la fonctionnalité Rechercher et remplacer de Word.

Tout d’abord, faites une copie temporaire de votre document afin de ne pas risquer de gâcher votre document original. Ensuite, utilisez une variable dans votre macro pour compter le nombre de fois que le texte souhaité est remplacé et incrémentez la variable chaque fois qu’un remplacement se produit. Dans l’exemple suivant, le nombre de fois se retrouvera dans la variable Remplacements.

Vous pouvez ensuite utiliser la valeur ou convertir la valeur en chaîne pour l’afficher.

Sub CountReplacements     Dim Replacements As Integer

Replacements = 0     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = InputBox("Enter the text you want to find:")

.Replacement.Text = InputBox("Enter the replacement text:")

.Forward = True         .Wrap = wdFindContinue         .Format = False         .Execute Replace:=wdReplaceOne

Do Until Not .Found             .Execute Replace:=wdReplaceOne             Replacements = Replacements + 1             Selection.MoveRight Unit:=wdCharacter, Count:=1         Loop

If Replacements <> 0 Then             MsgBox _               "" & .Text & " has been replaced " & _               CStr(Replacements) & " times with " & _               .Replacement.Text         Else             MsgBox .Text & " was not found in the document/selection."

End If     End With End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (3368) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Occurrences_of_a_Text_String_within_a_Document [Occurrences d’une chaîne de texte dans un document].