Compter le nombre de mots dans un Textbox

[ascal44]

Bonjour à tous ,
Dans un textbox je voudrais compter le nombre de mots séparés par un espace.
Je joint un fichier

En vous remerciant pour votre aide

 

[mromain]

Re : Compter le nombre de mots dans un Textbox

bonjour ascal44,

essaye en rajoutant cette procédure sur ton USERFORM :

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

a+

 

[kjin]

Re : Compter le nombre de mots dans un Textbox

Bonjour,

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

A+
kjin

 

[BOISGONTIER]

Re : Compter le nombre de mots dans un Textbox

Bonjour,

TextBox2 = UBound(Split(Application.Trim(TextBox1), " ")) + 1

(Application.Trim supprime les double espaces dans une chaine)

JB

 

[ascal44]

Re : Compter le nombre de mots dans un Textbox

Super , encore merci à vous 2 cela fonctionne très bien

 

[Raja]

Re : Compter le nombre de mots dans un Textbox

Bonjour, Salut à tous,

A essayer aussi le code suivant :

TextBox2 = Len(TextBox1) - Len(Replace(TextBox1, " ", "")) + 1

 

[JHA]

Re : Compter le nombre de mots dans un Textbox

Bonjour à tous,

par formule,
=NBCAR(B10)-NBCAR(SUBSTITUE(B10;" ";""))+1

JHA