limiter le nombre de caractère dans textbox

C

Catrice

XLDnaute Barbatruc

• 21 Septembre 2008

• #2

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/

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 21 Septembre 2008

• #3

Re : limiter le nombre de caractère dans textbox

Salut,cjweich,catrice

tu peut t'inspirer de cet exemple:

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2008

• #4

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 21 Septembre 2008

• #5

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2008

• #6

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+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 21 Septembre 2008

• #7

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+

 

Vote positif 0 Vote négatif

G

Germain MUNYEMBA

XLDnaute Nouveau

• 19 Juin 2023

• #8

job75 à dit:

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 :

Code:

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

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juin 2023

• #9

Bonjour Germain MUNYEMBA, bienvenue sur XLD,

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

A+

 

Vote positif 0 Vote négatif