Bonsoir,
 
Plutôt que Réécrire ce qui a déjà été fait,
je cherche une macro qui permet de collationner tous les mots d'un document word et de compter leurs occurences
Merci de me faire savoir si vous avez déjà vu ou si vous détenez ce style de macro.
 
Tricératops

Bonjour,
Peux-tu être un peu plus précis dans ta demande. Je ne comprends pas la première phrase. Par ailleurs, est-ce que tu veux une liste récapitulative de tous les mots sous forme d'un tableau avec en première colonne cette liste et en deuxième colonne le nombre d'occurences ou est-ce que tu veux le nombre d'occurence pour les mots les uns après les autres.  
Je pense qu'il faut créer une boîte à message ou un userform avec un label avec le mot que tu saisis bouton de commande où le nombre d'occurrences du mot saisi dans le label est = au nombre de fois où le même mot est remplacé par lui-même.
Voici la macro pour ce qui est du remplacement mais je ne sais comment faire précisément pour raccrocher cett macro. Dans l'exemple entre guillemets "et" est le mot dont tu cherches à savoir combien de fois il apparaît.  
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "et"
        .Replacement.Text = "et"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub