Occurence texte dans plage [Résolu]

[JonathanF]

Bonjour à tout le monde,

Je dois créer une fonction afin de calculer le nombre de fois où un texte est présent dans une plage de cellules.

J'ai codé ça:

Code :

1
2
3
Function Comptetxt(Liste As Range, Nom As String) As Integer
    Comptetxt = Application.CountIf(Liste, "=" & Nom)
End Function

, mais cette fonction me donne le nombre de cellules où le texte se reproduit exactement or je cherche le texte à l'intérieur des plages.
Je m'explique, si je recherche le prénom "Pierre", j'aimerai que la cellule "Jean Pierre" soit comptabilisée.

Est-ce que quelqu'un a une idée ?
Merci d'avance.

[mercatog]

Code :

1
2
3
Function Comptetxt(Liste As Range, Nom As String) As Integer
Comptetxt = Application.CountIf(Liste, "*" & Nom & "*")
End Function

[JonathanF]

Bonjour Mercatog,
Merci pour ta réponse mais par compte maintenant la macro me comptabilise aussi la série de caractères à l'intérieur d'un mot.
Exemple toujours avec "Pierre": on me comptabilise "Pierrette" ce que je ne veux pas.

Quel est le but des "*" ?
Merci d'avance.

[mercatog]

* est un caractère générique qui remplace toute chaine
Sinon, on compte le mot pile poile, le mot avec espace après et mot avec espace avant

Code :

1
2
3
Function Comptetxt(Liste As Range, Nom As String) As Integer
Comptetxt = Application.CountIf(Liste, Nom) + Application.CountIf(Liste, "* " & Nom) + Application.CountIf(Liste, Nom & " *")
End Function

[JonathanF]

Mercatog,

Merci pour ton aide ça fonctionne !