Compter le nombre de mots sur textbox

bsr forum

je voudrais savoir comment compter le nombre de mots affichés sur listbox, j'ai essayé ce code mais aucun résultat

Dim macol As New Collection

Dim maStr As String

Dim w As Variant

Dim cpt As Long

maStr = (Ws.Range("d" & j))

macol("d" & j) = Split(maStr, " ")

For Each w In macol

cpt = cpt + 1

Next w

TextBox2 = "il y a " & cpt & " mots dans cette string"

le code me retourne: " il y a 0 mots dans cette string"

je sollicite votre aide si possible !

Salut le forum

Tu peux directement avec Ubound

UBound(Split(MaChaine, " ")) + 1

Mytå

ça fonctionne

un très grand merci