Imposer un nombre de caractères de saisie
Bonjour,
Nouveau sur ce FORUM, novice en VBA, j'essaye de me débrouiller, mais la je bloque.. si une avez une reponse je sui preneur.
Dans une case je dois rentrer un numéro de compte... (pas de soucis), mais je n'arrive pas à forcer la saisie sur 11 caractères.
mon code pour la saisie du compte:
Range("F2").Select
Dim Message, Title, Default, MyValue
Message = "Compte à débiter"
Title = "Entrer le compte à débiter sur 11 caractères(si lettre = MAJ)"
MyValue = TextBox(Message, Title)
Range("F2").Select
Selection.FormulaR1C1 = MyValue
Je voudrais simplement un message qui me dit si il ny'a pas 11 caracteres cela bloque.
J'ai essayé cela mais je n'yarrive pas:
nbrcarac = Len(Me.MsgBox)
If nbrcarac < 11 Then
MsgBox "Vous devez saisir 11 caractères !"
Thx
Eric
Bonjour,
Incoryablement efficace et finalement très simple, je me complqiuait la vie...
Merci !!!!
Have a nice day.
ERic