Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Les mots sont séparés par 1 espace et il peut y en avoir plusieurs par cellule Compter les mots contenus dans le classeur :
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
Les mots sont séparés par 1 espace et il peut y en avoir plusieurs par cellule
Compter les mots contenus dans le classeur :
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
Les mots sont séparés par 1 espace et il peut y en avoir plusieurs par cellule Compter les mots contenus dans le classeur :
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