XL 2019 Limiter le nombre de caractères d'un textbox

[natorp]

Bonjour à toutes et tous

J'ai ce code pour formater un textbox :

Private Sub Tbx_TelMob_Change()
    Me.Tbx_TelMob.Value = Format(Tbx_TelMob.Value, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

quand je commence la saisie, le textbox se remplit avec : 00 00 00 00 00
J'aimerais que, lors de la saisie, l'utilisateur ne puisse pas aller plus loin que les 14 caractères

Merci à vous, cordialement, Gérard

 

[natorp]

Merci encore à Patrick pour toutes ses explications dans cette discussion :

XL 2010 - Propriété MaxLength d'une TextBox pour saisie n° de téléphone

Bonjour le forum Bonjour à tous & à toutes Lorsque je désire saisir un numéro de téléphone via une TextBox, j'utilise ce code : Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) TextBox1.Value = Format(TextBox1.Value, "0# ## ## ## #") End Sub Celui-ci fonctionne...

excel-downloads.com

 

[scraper]

10 caractères Num (0-9) et 4 blancs
If len(replace(Me.Tbx_TelMob.Value)," ")=10 and len(replace(replace(replace(replace(replace(replace(replace(replace( (replace(replace(Me.Tbx_TelMob.Value,"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9",""))=4 Then