Fonction compte mot [Résolu]

Signaler
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
 -
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
 -
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

3 réponses

Réponse 1 / 3
Messages postés
23993
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 avril 2021
 6 719
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))


En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Signaler
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
 4
Merci a toi ,c'est exactement ce que je cherchais.
Réponse 2 / 3
Messages postés
3172
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
9 avril 2021
 888
Bonjour

La chaine de mots en A1 sans macro

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

Cordialement
Réponse 3 / 3
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
 4
Merci pour ta réponse , mais c'est une fonction que je cherche ,et si possible en plage
Merci
Répondre Posez votre question