intputbox + réponse entier sur 5 caractères avec 0 devant

**depi67** · 02/09/2008, 12h56

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

**JackOuYA** · 02/09/2008, 13h25

Bonjour,

rajoute une spécification de format :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Cells(1, 1).NumberFormat = "00000"

**depi67** · 02/09/2008, 13h42

je viens d'essayer mais ça ne marche pas.
en plus, je viens de me rendre compte que si je saisie 012345 il me l'accepte et me rend 12345. Or il devrait me le refuser

**JackOuYA** · 02/09/2008, 13h51

Envoyé par depi67

je viens d'essayer mais ça ne marche pas.
..r

montre ton code

**depi67** · 02/09/2008, 14h01

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
Dim strRep
 
Do
    strRep = InputBox("Entrez le N° produit à contrôler")
    Loop While (Not IsNumeric(strRep) Or strRep > 99999)
 
cells(1, 1).Value = strRep
cells(1, 1).NumberFormat = "00000"
 
 
'
End Sub

En fait, actuellement je mets la réponse dans une cellule pour pouvoir la visualiser, ultérieurement elle sera dans une variable de travail.