Excel - recherche de mot

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel - recherche de mot

sas63

Bonjour

Je cherche à décompter le nombre de fois qu'un mot apparait dans une fichier Excel. Ce mot peut être soit "seul" dans une cellule, soit au sein d'une phrase dans cette cellule. J'imagine qu'il existe une formule simple...

Merci d'avance

Message cité 1 fois

Publicité

bingojm

Salut, tu veux dire... compter? et que le résultat s'affiche dans une cellule que tu auras choisie c'est bien ca?

TAM136

sas63 a écrit :

Bonjour

Je cherche à décompter le nombre de fois qu'un mot apparait dans une fichier Excel. Ce mot peut être soit "seul" dans une cellule, soit au sein d'une phrase dans cette cellule. J'imagine qu'il existe une formule simple...

Merci d'avance

Ultrasimple sans formule
Ctrl+H:rechercher mot
Remplacer par mot
Le mot a été remplacé X fois.

sas63

Merci. Je souhaiterais que le chiffre s'affiche dans une cellule.

SuppotDeSaTante

Aka dje69r

Bonjour

Un peu plus d'infos seraient les bienvenues...
Combien de feuille de classeur par exemple ?

Et non il n'y a pas de formule simple, il faut coder en vba et passer toutes les cellules en revues pour voir si le mot est dedans.
Voir la fonction InStr()

Cordialement

---------------
Soyez malin, louez entre voisins !

Ptit loup

Quand c'est flou, y'a un loup

Pareil que dje, je ne vois pas d'autre solution...
Non, il n'existe pas de "formule simple" pour compter ce genre de choses... Je ne vois pas bien qui pourrait avoir l'utilité de ça en fait...

blueteen

Sinon, selon tes besoins et le mot à chercher, tu as cette formule :

Code :

=NB.SI(A1:E12;"*voiture*" )

A1:E12 étant la plage de recherche (voir contour bleu sur capture ci-dessous).

Attention, ça ne distingue pas les majuscules/minuscules, et ça prend tous les mots qui contiennent le mot cherché.

Par exemple, si tu cherches : voisin, cette formule te ferait ressortir : avoisinner

Donc gare aux faux positifs.
C'est une piste parmi d'autres, on ne connaît pas toutes tes contraintes.

Message cité 1 fois
Message édité par blueteen le 30-05-2008 à 14:09:04

SuppotDeSaTante

Aka dje69r

Un petit bout de code trouvé dans l'aide d''excel
Modifies les variable
- ChaineCherche, ChaineRemplace
- LigneD, ColD, LigneF, ColF (ligne de début, colonne de fin etc.)

Citation :

Sub RemplaceChaine
'remplacer ici ce que tu souhaites
ChaineCherche = "toto"
ChaineRemplace = "tata"
ColD = "a"
LigneD="1"
ColF = "b"
LigneF = "65536"
Cpte=0

'code de l'aide adapté en consequence.
With Worksheets(1).Range(CStr(ColD & LigneD & ":" & ColF & LigneF))
Set c = .Find(ChaineCherche, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = ChaineRemplace
Set c = .FindNext(c)
Cpte=Cpte+1
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

Cordialement

Message édité par SuppotDeSaTante le 30-05-2008 à 14:09:21

---------------
Soyez malin, louez entre voisins !

SuppotDeSaTante

Aka dje69r

blueteen a écrit :

Sinon, selon tes besoins et le mot à chercher, tu as cette formule :

Code :

=NB.SI(A1:E12;"*voiture*" )

A1:E12 étant la plage de recherche (voir contour bleu sur capture ci-dessous).

Attention, ça ne distingue pas les majuscules/minuscules, et ça prend tous les mots qui contiennent le mot cherché.

Par exemple, si tu cherches : voisin, cette formule te ferait ressortir : avoisinner

Donc gare aux faux positifs.
C'est une piste parmi d'autres, on ne connaît pas toutes tes contraintes.

http://img527.imageshack.us/img527 [...] celsr8.gif

Bonne idée
Peut etre ajouter un espace avant et apres permettrait de ne pas compter avoisinner parmi les bonnes reponses

Cordialement

---------------
Soyez malin, louez entre voisins !

Ptit loup

Quand c'est flou, y'a un loup

Oui, mais l'espace avant et après voudrait dire qu'il compte seulement les mots avec espaces... la formule avec NB.SI et sans les espaces me paraît être la meilleure.

Mais comme toujours et déjà dit... on manque vraiment de contexte... disons que ça s'appliquera ou pas trop en fonction de que tu recherches, savoir si ce texte est seul ou non dans une cellule, etc...

Publicité

blueteen

Comme je trouvais ta question intéressante, je viens de faire un test rapide avec ce bout de code

Code :

Sub cherchemot()
Dim Cell As Variant
Dim cpt As Integer
cpt = 0
For Each Cell In Selection
If InStr(1, Cell.Value, "voisin", 0) Then
cpt = cpt + 1
End If
Next Cell
MsgBox (cpt)
End Sub

Je sélectionne une plage de cellules (certaines contenant le mot 'voisin'), puis j'exécute la macro, et j'ai une fenêtre qui s'ouvre et qui contient le nombre d'occurences du mot 'voisin'.
La casse est gérée car j'utilise :

Code :

If InStr(1, Cell.Value, "voisin", 0)

Mais on pourrait ne pas gérer la casse en utilisant :

Code :

If InStr(1, Cell.Value, "voisin", 1)

Par contre, si j'ai le mot 'voisins' dans ma place de cellule, alors ce sera également compté.
Ca marche aussi si le mot cherché fait partie d'une phrase dans la cellule.

Donc ce qu'il resterait à faire, c'est transformer ça en fonction, pour que tu puisses passer la plage de cellules et le mot cherché en paramètres, et afficher le résultat une cellule de ton choix !

Il y a aussi cette façon

Code :

Sub cherchemot2()
Dim Cell As Variant
Dim cpt As Integer
cpt = 0
For Each Cell In Selection
If Cell.Value Like "*voisin*" Then
cpt = cpt + 1
End If
Next Cell
MsgBox (cpt)
End Sub

Ce qui permettrait a priori d'utiliser les expressions régulières avec l'opérateur like.

Message édité par blueteen le 30-05-2008 à 15:59:32

sas63

merci !

FORUM HardWare.fr

Windows & Software

Logiciels

Excel - recherche de mot

Sujets relatifs
[resolu]recherche sous excel caratère spéciaux	[Excel] Recherche de caractères.
Excel: Ajouter une fonction recherche	Fonction RECHERCHE sous excel
Excel - recherche fichier	[excel] Recherche de données identiques
recherche info excel	[Excel] Recherche croisée dans tableau
[Excel] Recherche dans un tableau	[excel] recherche de plusieurs occurences dans une matrice
Plus de sujets relatifs à : Excel - recherche de mot

Page générée en 0.051 secondes