Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

natorp

XLDnaute Barbatruc
Bonjour à toutes et tous

J'ai ce code pour formater un textbox :
VB:
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
 
Solution
Merci encore à Patrick pour toutes ses explications dans cette discussion :

natorp

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

scraper

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
15
Affichages
841
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…