1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Function cptMots(c As String) As Long
Dim t As Variant
' Remplace la ponctuation par un espace
c = Replace(c, ".", " ")
c = Replace(c, ",", " ")
c = Replace(c, ";", " ")
c = Replace(c, ":", " ")
c = Replace(c, "'", " ")
c = Trim(c) ' élimine les espaces avant et après
' réduit les multiples espaces à 1 espace
c = Replace(c, " ", " ")
c = Replace(c, " ", " ")
c = Replace(c, " ", " ")
t = Split(c, " ")
cptMots = UBound(t) + 1 ' Renvoi le nombre d'éléments du tableau
End Function |
Partager