Bonjour,

Je souhaite demander à l’utilisateur de saisir un nombre entier sur 5 caractères, celui-ci peut commencer par des zéro et je veux les garder.

je récupère bien un entier sur 5 caractères mais si j'ai un zéro devant celui-ci n'apparait pas dans ma cellule A1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 Sub Macro1()
'
Dim strRep
 
Do
    strRep = InputBox("Entrez le N° de produit à contrôler")
    Loop While (Not IsNumeric(strRep) Or strRep > 99999)
 
cells(1, 1).Value = strRep
'
End Sub
Merci pour votre aide