Compter les caractères.

Bonjour,

J'ai eu un problème de connection lors de la réponse. Dans le doute de la redonne...

En admettant que ce textbox s'appelle TextBox1, utilise "TextBox1.TextLength".

Robert

Bonsoir Pierrot, Robert et le forum

Je te propose cette solution Pierrot...

En supposant que ta TextBox soit "textbox1" sur ton userform, tu peux par cet exemple associer Private Sub BoutonOK_Click() à un bouton...dès lors un message t'informera du nombre de caractères contenu dans ta Texbox1

A copier et à coller dans le module Userform par exemple...

Option Explicit

'Vériland
'Juin 2003

' Bouton placé sur L'userform
Private Sub BoutonOK_Click()
MsgBox "il y a " & TotalLettres(TextBox1) & " lettre(s) dans la Texbox1"
End Sub

' fonction qui compte le nombre de lettres
' dans une chaine de caractère
'
Function TotalLettres(Chaine$)
Dim tmp$, s$, res$, Boucle
tmp = Trim(LCase(Chaine))
For Boucle = Len(tmp) To 1 Step -1
s = Mid(tmp, Boucle, 1)
' si un espace dans la chaine compter rien
If Mid(tmp, Boucle, 1) Like "[ ]" Then
s = ""
End If
res = res & s
Next
TotalLettres = Len(res)
End Function



PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dans ta macro...lol

Merci à vous deux, c'est juste ce que je voulais.

Merci.