Microsoft 365 Comptez le nombre de mot sans les signes !?=...

M

moreauste

XLDnaute Nouveau

• 11 Juillet 2020

• #2

Encore un peu plus exigeant... Je note que les espaces en trop sont aussi comptés donc comment les retirer ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Juillet 2020

• #3

Bonjour moreauste,

En fait vous voulez supprimer tous les caractères qui ne sont pas des lettres, des chiffres ou des espaces.

Le plus simple est d'utiliser cette fonction VBA, voyez le fichier joint :

VB:

Function Nb_Mots%(t$)
Dim i%, x$
t = UCase(t)
For i = Len(t) To 1 Step -1
    x = Mid(t, i, 1)
    If Not (x Like "[A-Z]" Or x Like "[0-9]") And x <> " " Then t = Left(t, i - 1) & Mid(t, i + 1)
Next
Nb_Mots = UBound(Split(Application.Trim(t))) + 1
End Function

Application.Trim c'est la fonction SUPPRESPACE.

Le code doit être placé impérativement dans un module standard.

A+

 

Pièces jointes

• Nb_Mots(1).xlsm

  16.5 KB · Affichages: 18

Vote positif 0 Vote négatif

M

moreauste

XLDnaute Nouveau

• 14 Juillet 2020

• #4

Un grand merci à toi mais j'ai trouvé un petite défaut... le mot "à" n'est pas compté comme un mot mais "a" par contre si.

Je pense que les 2 devraient être comptés comme aussi "Ô" que je viens de tester aussi.

Facile à corriger ?

Merci.

Stéphane.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Juillet 2020

• #5

moreauste à dit:

Facile à corriger ?

Cliquez pour agrandir...

Oui, voyez ce fichier (2) avec :

VB:

If Not x Like "[0-9,A-Z,À,Ô]" And x <> " " Then t = Left(t, i - 1) & Mid(t, i + 1)

Bonne nuit.

 

Pièces jointes

• Nb_Mots(2).xlsm

  16.5 KB · Affichages: 3

Dernière édition: 14 Juillet 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Juillet 2020

• #6

Bonjour moreauste, le forum,

On peut même mettre l'espace entre les crochets, fichier (3) :

VB:

Function Nb_Mots%(t$)
Dim i%
t = LCase(t)
For i = Len(t) To 1 Step -1
    If Not Mid(t, i, 1) Like "[0-9, ,a-z,à,ô]" Then t = Left(t, i - 1) & Mid(t, i + 1)
Next
Nb_Mots = UBound(Split(Application.Trim(t))) + 1
End Function

Bonne journée.

 

Pièces jointes

• Nb_Mots(3).xlsm

  16.6 KB · Affichages: 3

Vote positif 0 Vote négatif

M

moreauste

XLDnaute Nouveau

• 8 Août 2020

• #7

J'avais omis de répondre mais un grand merci et cela est parfait !

 

Vote positif 0 Vote négatif