Nombre de mots de la feuille de calcul entière, Excel VBA

Sub NombreMots()
Dim WordCnt As Long
Dim plagecell As Range
Dim S As String
Dim N As Long
For Each plagecell In ActiveSheet.UsedRange.Cells
S =
Application.WorksheetFunction.Trim(plagecell.Text)
N = 0
If S <> vbNullString Then
N = Len(S) - Len (Replace(S, "", "")) +
1
End If
WordCnt = WordCnt + N Next plagecell
MsgBox "There are total " _
& Format(WordCnt, "#,##0")	& 
" mots dans la feuille de calcul actuelle"
End Sub

Il peut vous aider à compter tous les mots d’une feuille de calcul.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x