Texte GetWordCount

[Magic_Doctor]

Compte le nombre de mots et/ou de chiffres dans une chaîne.

Function GetWordCount(Cell As Range)
    GetWordCount = UBound(Split(Cell.Value, " ")) + 1
End Function

 

[Magic_Doctor]

J'ai retrouvé cette fonction rédigée par ROGER2327.

Function CompteMots&(r As Range)
'Roger2327

Dim sp, oCel As Range, x$, i&
   sp = Array(",", ";", ".", "!", "?", ":", "-", "'", "(", ")", "...", """", "«", "»", "", Chr(133), Chr(160), vbLf, vbCr)
   For Each oCel In r.Cells
      x = CStr(oCel.Value)
      For i = 0 To UBound(sp)
         x = Replace(x, sp(i), Space(1))
      Next i
      x = WorksheetFunction.Trim(x)
      If x <> "" Then CompteMots = CompteMots + UBound(Split(x)) + 1
   Next
End Function