Fonction compte mot Résolu/Fermé

Question

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

PapyLuc51 · Answer

Bonjour

La chaine de mots en A1 sans macro

=1+NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))

Cordialement

nihcoc · Answer

Merci pour ta réponse , mais c'est une fonction que je cherche ,et si possible en plage
Merci

eriiic · Answer

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))

Fonction compte mot

3 réponses

Discussions similaires