Fonction compte mot

Résolu
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -  
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche a faire une fonction qui compte le Nb. de mot dans une cellule,j'ai fait cela ,mais ça ne marche pas.

Function Nb_Mots(Texte)
Nb_Mots = ((NBCAR(SUPPRESPACE(Texte))) - (NBCAR(SUBSTITUE((Texte), " ", "")))) + 1
End Function


Quelqu'un peut il m'aider
Merci d'avance


Configuration: Windows / Firefox 87.0
A voir également:

3 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 269
 
Bonjour,

et si possible en plage
ça, on ne pouvait pas le deviner...

Function nbMots(plage As Range) As Long
    Dim c As Range, tmp
    For Each c In plage
        tmp = Split(Application.Trim(Replace(c, "'", " ")), " ")
        nbMots = nbMots + UBound(tmp) + 1
    Next c
End Function

"l'abri" est compté comme 2 mots
eric

PS : si ta plage est une sélection multiple, la mettre entre ( ) :
=nbMots((F2:F3;F5:F6))


1
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Merci a toi ,c'est exactement ce que je cherchais.
0
PapyLuc51 Messages postés 4502 Date d'inscription   Statut Membre Dernière intervention   1 481
 
Bonjour

La chaine de mots en A1 sans macro

=1+NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))

Cordialement
0
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Merci pour ta réponse , mais c'est une fonction que je cherche ,et si possible en plage
Merci
0