Inputbox ==> imposer format

Bonjour,

Merci pour votre forum, j'y ai appris beaucoup de choses et d'astuces.

Mais une question persiste.

Il s'agit d'une inputbox au milieu d'une longue macro :

NBdocument = InputBox("Quel est le NUMERO?", "Choix du document")

Comment puis je forcer l'utilisateur à rentrer un numéro à 2 chiffres? Par exemple 56, 12, et dans le cas où il doit mettre 1, comment le forcer à mettre 01?

Merci pour votre aide

Bonsoir,

J'ai pas trouvé mieux !

il doit y avoir + simple.

Sub Macro1()
    Do
        NBdocument = Application.InputBox("entrez un chiffre", Type:=1)
    Loop While NBdocument = ""

    With [g18]
        .Value = NBdocument
        .NumberFormat = "00"
    End With
End Sub

amicalement

Claude.

Salut le forum

Une autre façon

Sub Saisir()
Dim Nbre As Integer
    Do
        Nbre = Application.InputBox _
             (Prompt:="Entrer le numéro du document.", _
                    Title:="Choix du document à traiter.", Default:="01", Type:=1)
    Loop While Not Format(Nbre, "00") Like "[0-9][0-9]"

'...Traitement de la valeur

End Sub

Mytå