Compter les mots identiques dans un texte

[Fermé]
Signaler
-
Messages postés
4011
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
-
Bonjour,

comment compter les mots identiques dans un texte word

1 réponse

Messages postés
4011
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
1 977
Bonjour,

tout dépend de ta version de Word et de la fréquence d'utilisation.
Toutes versions confondues, voici 2 méthodes qui fonctionnent :

Via un Rechercher/Remplacer (CTRL H) : tu tapes le mot à compter dans le champ Rechercher et le même dans le champ Remplacer, tu cliques sur "Remplacer tout" et Word affichera le nombre d'occurrences trouvées.

Avec une version 2010 ou 2013, tu peux faire un Rechercher simple (CTRL F). Dans le volet gauche, tu auras le nombre de correspondances et les mots seront surlignés.

Via une petite macro
qui te demande quel est le mot que tu veux compter :
Sub NbOccurrences()
Mot = InputBox$("Quel est le mot recherché ?")
With ActiveDocument.Content.Find
.ClearFormatting
Compteur = 0
Do While .Execute(FindText:=Mot) = True
Compteur = Compteur + 1
Loop
End With
If Compteur = 0 Then
MsgBox "Le mot " & Mot & " n'est pas dans le document !"
Else
MsgBox "Le mot " & Mot & " est cité " & Compteur & " fois dans le document."
End If
End Sub

Pour utiliser la macro, appuie sur ALT F11 pour ouvrir l'éditeur VBA, menu "Insertion", "Module". Copie/colle le code qui précède et ferme l'éditeur.
Dans ton document, appuie sur ALT F8 et sélectionne la macro NbOccurrences dans la boîte de dialogue.