Compter les mots et que les mots dans Excel

**Obelix77** · 07/12/2014, 15h26

Bonjour à tous,

J’ai besoin, dans le cadre de mon métier, de compter des mots.
J’ai voulu utilisé la solution de Word mais le comptage n’est pas du tout adapté. Dans Word, les chiffres sont comptés comme mots ; les symboles également voir même la ponction, si elle est précédée et suivie d’un espace.
En fait, je ne dois compter que les « vrais mots ».

Étant plutôt pas mauvais sur Excel, j’ai construit une formule qui répond quasiment à tous mes besoins :
Je remplace les 36 caractères suivants par un espace (sauf le « - » pour que les noms composés comme tire-bouchon soient compter pour un mot).
, ? ; . : / ! § & ' ( - _ @ ) = 1 2 3 4 5 6 7 8 9 0 € $ £ % + * « » > <

Les formules qui fonctionnent sont copier en fin de message.

Ces formules fonctionnent mais sont lourdes et les plages ne sont pas dynamiques.
J’ai pensé à la fonction DECALER, pour celle concernant la plage mais ça ne marche pas trop bien.
J’ai aussi pensé à nommer ma formule mais, dans ce cas, il faut toujours rester dans le même fichier, voir le même onglet.

Je cherche donc une solution pour les transformer en VBA, afin de créer 2 macros.

Et c’est là où ça coince. Car, si je maîtrise un peu Excel, je n’y connais rien en VBA.

Je suis donc à la recherche d’aide ; si le sujet intéresse quelqu’un, je suis preneur de tout conseil.

Je joins aussi un fichier dans lequel les 2 fonctions sont en place :
Cellule A12 pour celle concernant la cellule
Cellule A14 pour celle concernant la plage de cellule
compter _mots_Excel.xlsx

Un grand merci à tous

Pour une CELLULE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NBCAR(SUPPRESPACE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;",";" ");"?";" ");";";" ");".";" ");":";" ");"/";" ");"!";" ");"§";" ");"&";" ");"'";" ");"(";" ");"-";"");"_";" ");"@";" ");")";" ");"=";" ");"1";" ");"2";" ");"3";" ");"4";" ");"5";" ");"6";" ");"7";" ");"8";" ");"9";" ");"0";" ");"€";" ");"$";" ");"£";" ");"%";" ");"+";" ");"*";" ");"«";" ");"»";" ");">";" ");"<";" ")))-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;",";" ");"?";" ");";";" ");".";" ");":";" ");"/";" ");"!";" ");"§";" ");"&";" ");"'";" ");"(";" ");"-";"");"_";" ");"@";" ");")";" ");"=";" ");"1";" ");"2";" ");"3";" ");"4";" ");"5";" ");"6";" ");"7";" ");"8";" ");"9";" ");"0";" ");"€";" ");"$";" ");"£";" ");"%";" ");"+";" ");"*";" ");"«";" ");"»";" ");">";" ");"<";" ");" ";""))+1

Pour une PLAGE DE CELLULE (fonction matricielle) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SOMME(SI(NBCAR(SUPPRESPACE(A1:D10))=0;0;SI(NBCAR(SUPPRESPACE(A1:D10))=1;0;NBCAR(SUPPRESPACE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1:D10;",";" ");"?";" ");";";" ");".";" ");":";" ");"/";" ");"!";" ");"§";" ");"&";" ");"'";" ");"(";" ");"-";"");"_";" ");"@";" ");")";" ");"=";" ");"1";" ");"2";" ");"3";" ");"4";" ");"5";" ");"6";" ");"7";" ");"8";" ");"9";" ");"0";" ");"€";" ");"$";" ");"£";" ");"%";" ");"+";" ");"*";" ");"«";" ");"»";" ");">";" ");"<";" ")))-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1:D10;",";" ");"?";" ");";";" ");".";" ");":";" ");"/";" ");"!";" ");"§";" ");"&";" ");"'";" ");"(";" ");"-";"");"_";" ");"@";" ");")";" ");"=";" ");"1";" ");"2";" ");"3";" ");"4";" ");"5";" ");"6";" ");"7";" ");"8";" ");"9";" ");"0";" ");"€";" ");"$";" ");"£";" ");"%";" ");"+";" ");"*";" ");"«";" ");"»";" ");">";" ");"<";" ");" ";""))+1)))}

**Philippe Tulliez** · 07/12/2014, 16h37

Bonjour,
Voici une fonction vite écrite mais il y a certainement mieux.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function CompteLesMots(Mot As String) As Integer
 Const CarExclus As String = ",?;.:/!&'(-_@)=1234567890€$£%+*«»><"
 Dim r As Integer, table() As String
 For r = 1 To Len(CarExclus)
  Mot = Replace(Mot, Mid(CarExclus, r, 1), " ")
 Next
 table = Split(Application.Trim(Mot), " ")
 CompteLesMots = UBound(table) + 1
End Function

La procédure de test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
 MsgBox CompteLesMots(ThisWorkbook.Worksheets("Feuil1").Range("A1")) & " mots"
End Sub

Pour l'utiliser comme fonction personnalisée dans excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CompteLesMots(A1)

**Obelix77** · 07/12/2014, 17h02

Super. Merci c'est top mais ...
Je ne sais pas comment installer cette fonction.
Si tu as 2mn pour m'expliquer.
Bonne fin de journée,

**casefayere** · 07/12/2014, 17h10

Bonsoir le forum, Obelix77, Philippe

J'avais trouvé ce code mais bizarrement le "trim" fonctionne avec une formule mais ne fonctionne pas pour supprimer les espaces superflus à l'interieur de "chaine", donc avec adaptation, ça vaut ce que ça vaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub comptage_mot()
'la phrase en A1
'en A2 resultat de la variable "chaine"
'en A3, une formule
Dim obj As Object
Dim chaine
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[0-9,:.¨!?^\/]|/" 'les caractères a supprimer, tu peux en ajouter
  chaine = Range("A1")
  chaine = obj.Replace(Range("A1"), "")
  Range("A2") = Trim(chaine)
  MsgBox UBound(Split(Trim(Range("A3")), " ")) + 1
End Sub

je cherche encore

Bonne soirée

**Philippe Tulliez** · 07/12/2014, 17h13

Bonjour,
Attention que j'ai fais une modification de la fonction à 16h58.
Tu vas dans l'éditeur VBA (Alt+F11), tu insères un module (Insertion/Module), tu écris Option Explicit en tête de module et ensuite tu copies/colles la fonction dans celui-ci (après Option Explicit)
Si tu veux placer la procédure Test, tu fais de même.

Important : Il faudra sauver le classeur comme un classeur contenant des macros.

**Philippe Tulliez** · 07/12/2014, 17h17

Bonjour Dominique,

J'avais trouvé ce code mais bizarrement le "trim" fonctionne avec une formule mais ne fonctionne pas pour supprimer les espaces superflus à l'interieur de "chaine", donc avec adaptation, ça vaut ce que ça vaut

Trim en VBA supprime les espaces avant et après mais pas entre les espaces.
D'où ma modification. Alors que Replace(Texte, " ","") remplace tous les espaces, Application.Trim se comporte comme Supprespace et conserve un caractère espacé s'il y en a plusieurs.

**casefayere** · 07/12/2014, 17h18

...Application.Trim se comporte comme Supprespace et conserve un caractère espacé s'il y en a plusieurs.

Merci Philippe, j'en apprends toujours

Bonne soirée

donc, ce code corrigé doit suffire également ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub comptage_mot()
'la phrase en A1
Dim obj As Object
Dim chaine
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "[0-9,:.¨!?^\/]|/" 'les caractères a supprimer, tu peux en ajouter
  chaine = Application.Trim(obj.Replace(Range("A1"), ""))
  MsgBox UBound(Split(chaine, " ")) + 1
End Sub

**Philippe Tulliez** · 07/12/2014, 17h31

Bonjour Daniel,

Je me doutais bien qu'avec les caractères génériques il avait une meilleure solution mais je n'ai pas assez d'expérience avec ceux-ci que pour les proposer.

**Obelix77** · 07/12/2014, 17h32

Merci Philippe

Ca fonctionne parfaitement. Elle fonctionne nickel sauf pour le signe ".

Petit problème : J'ai bien la fonction qui c'est créée et qui apparaît dans la liste des fonctions mais que dans le fichier PERSONAL.XLB. Je n'y ai accès dans aucun autre fichier, même enregistré en XLM.

Cette fonction fonction nickel sur une cellule. Il ne serait pas possible de l'étendre à une plage de cellule?

**Philippe Tulliez** · 07/12/2014, 17h42

Bonjour,

Ca fonctionne parfaitement. Elle fonctionne nickel sauf pour le signe ".

Il faut doubler les apostrophes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Const CarExclus As String = ",?;.:/""""!&'(-_@)=1234567890€$£%+*«»><"

Petit problème : J'ai bien la fonction qui c'est créée et qui apparaît dans la liste des fonctions mais que dans le fichier PERSONAL.XLB. Je n'y ai accès dans aucun autre fichier, même enregistré en XLM.

Comme tu as demandé de l'aide sans aucune précision, je ne savais pas que tu avais le fichier PERSONAL.XLB
Ce que je t'ai expliqué alors n'est pas correct, il faut créer un module dans PERSONAL.XLB ou placer la fonction à la suite de test autres procédures et ton classeur peut être sauvé normalement.
Tu peux aussi copier la fonction proposée par Dominique qui est plus élégante.

Cette fonction fonction nickel sur une cellule. Il ne serait pas possible de l'étendre à une plage de cellule?

Soit, tu fais une boucle en VBA qui invoque cette fonction et qui écrit dans une cellule son résultat soit tu recopies la formule comme une formule normale d'Excel

**casefayere** · 07/12/2014, 17h50

Comme j'avais commencé à faire un code, j'insiste avec ce fichier joint, à adapter, même si une fonction perso est bien

**Philippe Tulliez** · 07/12/2014, 17h56

Bonjour,
J'ai raccourci la fonction pour éviter de passer par la variable tableau qui n'a pas de raison d'être puisque l'on n'a pas besoin des mots.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function CompteLesMots(Mot As String) As Integer
 Const CarExclus As String = ",?;.:/""""!&'(-_@)=1234567890€$£%+*«»><"
 Dim r As Integer
 For r = 1 To Len(CarExclus)
  Mot = Replace(Mot, Mid(CarExclus, r, 1), " ")
 Next
 CompteLesMots = UBound(Split(Application.Trim(Mot), " ")) + 1
End Function

**Obelix77** · 07/12/2014, 19h18

Merci à tous ceux qui ont répondus à mon problème.
J'ai une solution parfaite, sous forme de fonction, qui fonctionne dans tous mes fichiers et dans 100% des cas.
Vous êtes au top
bonne soirée,

**Marc-L** · 08/12/2014, 11h48

Bonjour !

J'arrive après la bataille mais voici une procédure NombreMots créée pour Word 2003, sait-on jamais …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'   Normal.dot                              19/10/2012
 
Sub Affiche(Titre, Optional Texte = "Aucun document ouvert !", Optional Boutons = vbExclamation)
    MsgBox vbLf & Texte & Space(17) & vbLf & " ", Boutons, Space(14) & Titre & Space(7)
End Sub
 
Sub AffTout(B As Boolean)
    ActiveDocument.ActiveWindow.View.ShowAll = B
End Sub
 
Sub NombreMots()
    Const T$ = "Nombre de mots"
 
    If Documents.Count Then
        With ActiveDocument
            A% = .Tables.Count And Not .ActiveWindow.View.ShowAll
            If A Then AffTout True                                                ' bug tableau
 
            For Each Mot In .Words
                Select Case Asc(Mot)
                       Case 38, 65 To 90, 97 To 122, 140, 156, 159, 192 To 207, _
                            209 To 214, 216 To 221, 224 To 239, 241 To 246, 248 To 253, 255
                            N& = N& + 1
                End Select
            Next
 
            If A Then AffTout False
            Affiche .Name, T & " :  " & IIf(N, Format(N, "# ###"), "zéro !"), vbInformation
        End With
 
    Else
        Affiche T
    End If
End Sub

**Philippe Tulliez** · 08/12/2014, 12h04

Bonjour Marc,
Y a-t-il des caractères particuliers que tu exclus dans ta fonction ?
Parce-que l'outil Statistiques dans word décompte déjà le nombre de mots, pages, caractères, etc. d'un document.

**Marc-L** · 08/12/2014, 13h51

Bonjour Philippe !

En fait c'est la dernière version (adaptée ici en retirant les chiffres) pour une demande remontant avant 2003
pour des traducteurs … J'avais constaté, et même plus tard dans les versions 2003 & 2007,
un décalage entre le nombre de mots fourni par Word et le nombre réel de mots désiré.
Son principe est de compter les mots commençant par un caractère autorisé …

**Obelix77** · 09/12/2014, 19h18

Bonsoir Marc,

La solution que tu proposes dans Word est parfaite. Elle fait quasimet la même chose que ce que j'ai fait dans Excel sous forme de formule et qui a été transformé en VBA.

Notre raisonnement n'est pas le même; dans ma demande on exclus 38 caractères. Ta solution de ne compter que les mots commançant par un caractère autorisé donne un résultat quasiment similaire.

Ma demande concernait aussi des traducteurs qui ne voulaient compter que les "vrais" mots.

Merci pour cette ligne de commande que je vais utiliser dans Word.

Bonne soirée,

Compter les mots et que les mots dans Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager