Retrouver un mot dans une cellule

Bonjour à vous,

(Je sais que la formule s'utilise normalement sur une plage de plusieurs cellules)

Mais, j'ai beau tourner la formule dans tous les sens, je n'arrive pas à trouver le moyen d'indiquer le nombre de fois que celui-ci est indiqué dans une cellule.

Exemple avec le "130"

Bonjour,

Voici une proposition avec une fonction personnalisée (ne fonctionnant pas sur mac) :

Function NB_MOT(Plage As Range, Mots As Range)

Dim reg As Object

If Mots.Count = 1 Then motif = Mots Else motif = Join(Application.Transpose(Mots), "|")
If Plage.Count = 1 Then chaine = Plage Else chaine = Join(Application.Transpose(Plage))
Set reg = CreateObject("vbscript.regexp")

With reg
    .ignorecase = True
    .Global = True
    .Pattern = motif
    If .test(chaine) Then NB_MOT = .Execute(chaine).Count
End With

End Function

Cdlt,

Ca fonctionne très bien, merci beaucoup !

Bonjour toutes et tous

merci 3Gb trop fort ^^

@3Gb

en regardant la cellule B4 ===> 131 130, 130. 130 ^{( il y a des virgules et 1 point)} la colonne et au format Texte ^{(sauf l'entête du tableau)}

avec le code de cette fonction que tu as réalisé , peut-on ajouter un substitue pour soit , supprimer les virgules les points afin de bien comptabiliser car, sur la cellule D4 normalement, il devrait y avoir 4 non ? ou je me trompe

merci

erratum, mdr, c'est 131 et non 130 (je vais changer mes lunettes arf))

Bonjour à toutes et tous, Alex_Excel, 3GB, Andre13,

A tester avec une formule en "D2"

=--SOMME(NBCAR(B2)-NBCAR(SUBSTITUE(B2;$D$1;"")))/NBCAR($D$1)

Puis tirer vers le bas autant que nécessaire.

Cdlt.