Nombre de mots dans un document excel
Fermé
dodie78
Messages postés
8
Date d'inscription
mardi 5 novembre 2013
Statut
Membre
Dernière intervention
27 février 2015
-
11 juin 2014 à 22:38
via55 Messages postés 14432 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 juin 2024 - 11 juin 2014 à 23:49
via55 Messages postés 14432 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 juin 2024 - 11 juin 2014 à 23:49
A voir également:
- Comment compter le nombre de mots dans un fichier excel
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
2 réponses
Raymond PENTIER
Messages postés
58508
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 juin 2024
17 137
11 juin 2014 à 22:44
11 juin 2014 à 22:44
Non.
via55
Messages postés
14432
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
21 juin 2024
2 713
Modifié par via55 le 11/06/2014 à 23:50
Modifié par via55 le 11/06/2014 à 23:50
Bonsoir à vous deux
Raymond a raison il faut affiner l'analyse
A défaut un début de solution peut être par macro :
Sub compte()
t = 0
For x = 1 To 100
c = Application.Proper(Range("B" & x))
For n = 1 To Len(c)
If Asc(Mid(c, n, 1)) >= 65 And Asc(Mid(c, n, 1)) <= 90 Then t = t + 1
Next
Next x
MsgBox (t & " mots trouvés")
End Sub
La macro boucle sur les cellules 1 à 100 de la colonne B de la feuille dans laquelle on se trouve
Pour chaque cellule on applique la fonction Nom Propre (Application.Proper en VBA) qui met une majuscule au début de chaque mot (et ignore les parenthèses, chiffres et virgules)
La seconde boucle examine une par une toutes les occurrences de la chaine de caractères de la cellule et incrémente le compteur t lorsque le code du caractère est compris entre 65 et 90 (soit entre A et Z)
A la sortie le total correspond au nombre de mots dans la colonne
Avec cette macro panthère noire sera comptabilisé pour 2 mots mais crapaud-buffle pour 1 seul
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
Raymond a raison il faut affiner l'analyse
A défaut un début de solution peut être par macro :
Sub compte()
t = 0
For x = 1 To 100
c = Application.Proper(Range("B" & x))
For n = 1 To Len(c)
If Asc(Mid(c, n, 1)) >= 65 And Asc(Mid(c, n, 1)) <= 90 Then t = t + 1
Next
Next x
MsgBox (t & " mots trouvés")
End Sub
La macro boucle sur les cellules 1 à 100 de la colonne B de la feuille dans laquelle on se trouve
Pour chaque cellule on applique la fonction Nom Propre (Application.Proper en VBA) qui met une majuscule au début de chaque mot (et ignore les parenthèses, chiffres et virgules)
La seconde boucle examine une par une toutes les occurrences de la chaine de caractères de la cellule et incrémente le compteur t lorsque le code du caractère est compris entre 65 et 90 (soit entre A et Z)
A la sortie le total correspond au nombre de mots dans la colonne
Avec cette macro panthère noire sera comptabilisé pour 2 mots mais crapaud-buffle pour 1 seul
Cdlmnt
"L'imagination est plus importante que le savoir." A. Einstein
11 juin 2014 à 22:52
- si l'expression serait comptée pour 1 mot ou pour 2 mots,
- si l'expression serait comptée pour 1 mot ou pour 2 mots,
- quel est le maximum de mots pouvant figurer en deuxième colonne (3 dans ton exemple).