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