Recherche de mot

[Stéphane]

Bonjour le forum,

Dans une feuille EXCEL, est-il possible de recenser combien de fois apparaît un mot comme sait le faire WORD



Merci de vos réponses

Stéphane

 

[Robert]

Bonjour Stáphane, bonjour le forum,

Cette macro devrait te satisfaire :

Option Explicit 'oblige à déclarer toutes les variables

Sub Macro1()
Dim mot As String 'déclare la variable mot
Dim PA As String 'déclare la variable PA
Dim R As Range 'déclare la variable R
Dim C As Long 'déclare la variable C

C = 0 'définit la variable C (Compteur)
mot = InputBox('Tapez le mot que vous recherchez.', 'Recherche de Mot') 'définit la variable mot

If mot = '' Then Exit Sub 'si rien n'est tapé, sort de la procédure

With Cells 'dans toutes les cellules
Set R = .Find(mot, , xlValues) 'condition: définit la variable R (Recherche du mot)
If Not R Is Nothing Then 'si la recherche n'est pas infructueuse
C = C + 1 'redéfinit la variable C
PA = R.Address 'définit la variable PA (Première Adresse)
Do 'exécute
Set R = .FindNext(R) 'redéfinit la variable R (Recherche le suivant)
C = C + 1 'redéfinit la variable C
'exécute tant que une ocurrence exsite et que l'adresse n'est pas identique à PA
Loop While Not R Is Nothing And R.Address <> PA
End If 'fin de la condition
End With
MsgBox C - 1 'message affichant le compteur - 1 (car la dernière trouvée est la première)
End Sub

 

[andré]

Salut Stéphane et Robert,

Compter 'combien de fois qu'apparaît un mot', je ne crois pas que ce soit possible par formule, encore que ...
Mais compter le nombre de cellules qui contiennent une même chaîne de caractères, là oui !

=NB.SI(la plage;'*la chaîne*')
Exemple :
=NB.SI(A1:Z99;'*mot*')

Cette formule tiendra compte tout autant des chaînes 'mot', 'motus', 'remotiver', ...
Si c'est le mot 'mot' seul, il faut additionner trois formules, avec lesespace dans la formule : '*mot*','* mot', 'mot *'
Mais la chaîne 'mot à mot' ne sera toujours compté que pour une unité.

Ândré.