limiter le nbe de caractère dans inputbox

[LaurentG]

Bonjour,

J'ai une macro qui lance une inputbox.
Mais j'aimerai limiter le nombre de caractères à 11.

Quelqu'un sait comment faire?

merci

Laurent

 

[Hervé]

Bonjour laurent

tres vite :

Dim t As String
Do
t = InputBox('Texte ?')
Loop Until Len(t) < 12

cette macro, te retourne l'inputbox si il y a plus de 11 caractères.

salut

 

[CBernardT]

Bonjour Laurent, Hervé et le forum,

A ma connaissance, il n'y a pas de possibilité de bloquer le nombre de caractères saisis dans une inputbox.

Des subterfuges sont possibles :

Sub SaisieCode()
Dim ValeurCode As String, Choix As Byte
Do
ValeurCode = InputBox('Saisissez le code !', 'IDENTITE ARTICLE', 'Code')
If ValeurCode = 'Code' Or ValeurCode = '' Then Exit Sub
If Len(ValeurCode) > 11 Then
Choix = MsgBox('Le code saisi comporte plus de 11 chiffres, voulez-vous recommencer ?', _
vbYesNo + vbCritical + vbDefaultButton2, 'Erreur de saisie')
Else
Range('A1') = ValeurCode
Choix = vbNo
End If
Loop Until Choix = vbNo
End Sub

Cordialement

Bernard