Private Sub TextBox1_Change()
leTexte = TextBox1.Text
'enlever les espaces à droite
While Right(leTexte, 1) = " "
leTexte = Left(leTexte, Len(leTexte) - 1)
Wend
'enlever les espaces à gauche
While Left(leTexte, 1) = " "
leTexte = Right(leTexte, Len(leTexte) - 1)
Wend
'afficher le nombre de mots
TextBox2.Text = UBound(Split(leTexte, " ")) + 1
End Sub
Private Sub TextBox1_Change()
Dim tablo() As String, i as integer, x as integer
tablo = Split(TextBox1, " ")
For i = 0 To UBound(tablo)
If tablo(i) <> "" Then x = x + 1
Next
TextBox2 = x
End Sub
TextBox2 = Len(TextBox1) - Len(Replace(TextBox1, " ", "")) + 1