Texte GetWordCount

Magic_Doctor · 28 Avril 2021

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

VB:

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

Magic_Doctor · 16 Mai 2021

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

VB:

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

Texte GetWordCount

Magic_Doctor

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires