limiter le nombre de caractère dans textbox

[cj welch]

bonjour,

je voudrais limiter le nombre de caractère dans une textbox mais je ne sais pas comment faire.

merci de votre aide

 

[Catrice]

Re : limiter le nombre de caractère dans textbox

Bonjour,

2 solutions ici :
https://www.excel-downloads.com/threads/limiter-le-nombre-de-caracteres-dune-textbox.15096/
https://www.excel-downloads.com/threads/limiter-un-textbox-en-caractere.10881/

 

[BERRACHED said]

Re : limiter le nombre de caractère dans textbox

Salut,cjweich,catrice

tu peut t'inspirer de cet exemple:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim nc As Integer, s As String
s = Trim(TextBox1): nc = Len(s)
If nc = 0 Then Exit Sub
If (nc <> 8 And nc <> 6) Or Not IsNumeric(s) Then
MsgBox "Vous devez entrer 8 ou 6 chiffres sans espaces", , "Agrément"
TextBox1 = ""
Else
TextBox1 = Format(s, IIf(nc = 8, "00/0/0/0000", _
"00 0 0 0000"))
End If
End Sub

Cordialement

 

[job75]

Re : limiter le nombre de caractère dans textbox

Bonsoir,

La macro suivante (à placer dans le code de la TextBox1) limite le nombre de caractères à 14 :

Private Sub TextBox1_Change()
TextBox1.Value = Left(TextBox1.Value, 14)
End Sub

A+

 

[cj welch]

Re : limiter le nombre de caractère dans textbox

salut job75

ca marche, mais seulement ensuite j'ai un message d'erreur qui apparait et la ligne ci-dessous est en jaune :
Cells(DernL + 1, 1).Value = UCase(TextBox1.Value)
Cells(DernL + 1, 2).Value = UCase(Left(TextBox2.Value, 1)) & LCase(Right(TextBox2.Value, Len(TextBox2.Value) - 1))

je ne sais pas pourquoi

a+

 

[job75]

Re : limiter le nombre de caractère dans textbox

Re,

Les 2 lignes que vous indiquez ne doivent évidemment pas pas être dans le code de "Private Sub TextBox1_Change()".

Si elles sont bien dans le code d'un CommandButton, je ne vois pas pourquoi il y a un bug (sauf si la définition de DernL ne renvoie pas un nombre).

A+

 

[cj welch]

Re : limiter le nombre de caractère dans textbox

re,
en effet, les lignes sont dans une commande boutton.
j'ai rajouté le code que vous m'avez donnée dans le code de la textbox.

maintenant ça marche. bizare

merci beaucoup
a+

 

[Germain MUNYEMBA]

Re : limiter le nombre de caractère dans textbox

Bonsoir,

La macro suivante (à placer dans le code de la TextBox1) limite le nombre de caractères à 14 :

Private Sub TextBox1_Change()
TextBox1.Value = Left(TextBox1.Value, 14)
End Sub

A+

On dirait que ça marche, j'ai un autre problème je sais pas comment additionner deux notre dans VBA

 

[job75]

Bonjour Germain MUNYEMBA, bienvenue sur XLD,

Lisez la Charte du forum et créez votre propre discussion.

A+