Compteur

bonjour Colette,

voici un exemple,

Sub CompteurDeMot()
Dim f, compteur As Integer
For Each f In Sheets
Sheets(f.Name).Activate
compteur = compteur + Application.CountA(Cells)
Next
MsgBox compteur
End Sub

isabelle

Bonjour,

Je suis en traduction, et parfois nous devons traduire
des documents venant d'Excel. Peut-on savoir dans Excel
combien compte de mots dans un classeur.

Merci

Sauf que si tu as une cellule qui contient "Vin de JPS", tu as 1
cellule et 3 mots.

"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F980619.2882049B@videotron.ca...

bonjour Colette,

voici un exemple,

Sub CompteurDeMot()
Dim f, compteur As Integer
For Each f In Sheets
Sheets(f.Name).Activate
compteur = compteur + Application.CountA(Cells)
Next
MsgBox compteur
End Sub

isabelle

Bonjour,

Je suis en traduction, et parfois nous devons traduire
des documents venant d'Excel. Peut-on savoir dans Excel
combien compte de mots dans un classeur.

Merci

S'il peut y avoir plusieurs mots dans une même cellule et que ceux-ci sont
séparés par un seul espace (c'est la norme !) :

Sub Compt_Mot()
On Error Resume Next
For i = 1 To ActiveWorkbook.Sheets.Count
For Each c In Sheets(i).Cells.SpecialCells(xlCellTypeConstants, 23)
x = c.Value
nbr = nbr + Len(x) - Len(Application.Substitute(x, " ", "")) + 1
Next
Next
MsgBox nbr
End Sub

AV

Et s'il s'agit d'un roman de Balzac, il va surement y avoir un dépassement de
capacité avec "Dim compteur As Integer"

;-)
AV

ou tout simplement d'un HS du sieur AV...
jps

AV wrote:

Et s'il s'agit d'un roman de Balzac, il va surement y avoir un dépassement de
capacité avec "Dim compteur As Integer"

;-)
AV

ou tout simplement d'un HS du sieur AV...

Moi des HS ?
Tudieu, vous me blessâtes, sire !

AV

Bonjour,
un export au format txt dans word puis fichier
propriétés,statistiques permet sans macro d'avoir quelques
informations de ce type.

;-)))
en poussant un peu plus loin le travail de AV et en plus
détaillé.....

'-attention testé en EXCEL 95
'-Pour EXCEL 97, 2000+
'-corriger les termes xlConstants, xlFormulas, xlTextValues

Sub Compt_Mot()
nbtmots = 0
nbtsignes = 0
nbtcars = 0
On Error Resume Next
For i = 1 To ActiveWorkbook.Worksheets.Count
'----les valeurs texte saisies
nbCmots = 0
nbCsignes = 0
nbCcars = 0
For Each c In Sheets(i).Cells.SpecialCells
(xlConstants, xlTextValues)
x = c.Value
nbCmots = nbCmots + Len(x) - Len
(Application.Substitute(x, " ", "")) + 1
nbCcars = nbCcars + Len(Trim(x))
nbCsignes = nbCsignes + Len(x)
Next
'----les valeurs texte issues de formules
nbfmots = 0
nbfsignes = 0
nbFcars = 0
For Each c In Sheets(i).Cells.SpecialCells
(xlFormulas, xlTextValues)
x = c.Value
nbfmots = nbfmots + Len(x) - Len
(Application.Substitute(x, " ", "")) + 1
nbFcars = nbFcars + Len(Trim(x))
nbfsignes = nbfsignes + Len(x)
Next
'--------

MsgBox "Dans Constantes dans Formules" _
& Chr(10) & "nbr mots " & nbCmots & String
(12, " ") & nbfmots _
& Chr(10) & "nbr signes " & nbCsignes & String
(12, " ") & nbfsignes _
& Chr(10) & "nbr cars " & nbCcars & String
(12, " ") & nbFcars, , Sheets(i).Name
'----- pour récap
nbtmots = nbtmots + nbCmots + nbfmots
nbtsignes = nbtsignes + nbCsignes + nbfsignes
nbtcars = nbtcars + nbCcars + nbFcars
Next
MsgBox "Récapitulation : " _
& Chr(10) & "nbr mots " & nbtmots _
& Chr(10) & "nbr signes " & nbtsignes _
& Chr(10) & "nbr cars " & nbtcars, ,
ActiveWorkbook.Name
End Sub


@+

-----Message d'origine-----
S'il peut y avoir plusieurs mots dans une même cellule et
que ceux-ci sont

séparés par un seul espace (c'est la norme !) :

Sub Compt_Mot()
On Error Resume Next
For i = 1 To ActiveWorkbook.Sheets.Count
For Each c In Sheets(i).Cells.SpecialCells
(xlCellTypeConstants, 23)

x = c.Value
nbr = nbr + Len(x) - Len(Application.Substitute
(x, " ", "")) + 1

Next
Next
MsgBox nbr
End Sub

AV


.

n'oublions pas le fichier de Robert Dezan:-)
http://disciplus.simplex.free.fr/classeursxl/rd-indexation.zip
il récapitule le nombre de mots et le nombre de fois qu'ils ont été
utilisés.
Amicalement
Sitting Hoax
"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news:091b01c39a11$e6831e20$a301280a@phx.gbl...
Bonjour,
un export au format txt dans word puis fichier
propriétés,statistiques permet sans macro d'avoir quelques
informations de ce type.

;-)))
en poussant un peu plus loin le travail de AV et en plus
détaillé.....

'-attention testé en EXCEL 95
'-Pour EXCEL 97, 2000+
'-corriger les termes xlConstants, xlFormulas, xlTextValues

Sub Compt_Mot()
nbtmots = 0
nbtsignes = 0
nbtcars = 0
On Error Resume Next
For i = 1 To ActiveWorkbook.Worksheets.Count
'----les valeurs texte saisies
nbCmots = 0
nbCsignes = 0
nbCcars = 0
For Each c In Sheets(i).Cells.SpecialCells
(xlConstants, xlTextValues)
x = c.Value
nbCmots = nbCmots + Len(x) - Len
(Application.Substitute(x, " ", "")) + 1
nbCcars = nbCcars + Len(Trim(x))
nbCsignes = nbCsignes + Len(x)
Next
'----les valeurs texte issues de formules
nbfmots = 0
nbfsignes = 0
nbFcars = 0
For Each c In Sheets(i).Cells.SpecialCells
(xlFormulas, xlTextValues)
x = c.Value
nbfmots = nbfmots + Len(x) - Len
(Application.Substitute(x, " ", "")) + 1
nbFcars = nbFcars + Len(Trim(x))
nbfsignes = nbfsignes + Len(x)
Next
'--------

MsgBox "Dans Constantes dans Formules" _
& Chr(10) & "nbr mots " & nbCmots & String
(12, " ") & nbfmots _
& Chr(10) & "nbr signes " & nbCsignes & String
(12, " ") & nbfsignes _
& Chr(10) & "nbr cars " & nbCcars & String
(12, " ") & nbFcars, , Sheets(i).Name
'----- pour récap
nbtmots = nbtmots + nbCmots + nbfmots
nbtsignes = nbtsignes + nbCsignes + nbfsignes
nbtcars = nbtcars + nbCcars + nbFcars
Next
MsgBox "Récapitulation : " _
& Chr(10) & "nbr mots " & nbtmots _
& Chr(10) & "nbr signes " & nbtsignes _
& Chr(10) & "nbr cars " & nbtcars, ,
ActiveWorkbook.Name
End Sub


@+

-----Message d'origine-----
S'il peut y avoir plusieurs mots dans une même cellule et
que ceux-ci sont

séparés par un seul espace (c'est la norme !) :

Sub Compt_Mot()
On Error Resume Next
For i = 1 To ActiveWorkbook.Sheets.Count
For Each c In Sheets(i).Cells.SpecialCells
(xlCellTypeConstants, 23)

x = c.Value
nbr = nbr + Len(x) - Len(Application.Substitute
(x, " ", "")) + 1

Next
Next
MsgBox nbr
End Sub

AV


.

en poussant un peu plus loin le travail de AV et en plus
détaillé.....

Ets-ce vraiment nécessaire ?

;-)
AV

:-))))
jp sire

AV a écrit:

ou tout simplement d'un HS du sieur AV...

Moi des HS ?
Tudieu, vous me blessâtes, sire !

AV

--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci