INPUTBOX et 4 Chiffres

[gds35]

Bonjour , a tous les AMIS du Forum,

Je n'arrive pas a obliger l'entrer d'un nombre de 4 chiffres entre 2000 et 2999
ds une INPUTBOX , vous devez savoir comment faire ???? , merci de votre aide avec un p'tit bout de code . Cordialement GDS35

 

[skoobi]

Re : INPUTBOX et 4 Chiffres

Bonsoir,

voici un exemple:

Sub test()
Do
  Valeur = InputBox("Entrez le nombre", "Saisie")
  If Valeur = "" Then Exit Sub 'arrête la macro si bouton annuler choisie
  If Val(Valeur) < 2000 Or Val(Valeur) > 2999 Then
    MsgBox "entre 2000 et 2999 SVP.", vbExclamation
  Else: Exit Do
  End If
Loop
End Sub

 

[gds35]

Re : INPUTBOX et 4 Chiffres

Salut SKOOBI , Bjr le Forum,

Merci de ta réponse . Je vais aalé voir ton code de filtre élaboré car je m'en sert enormément au boulot.

Cordialement A+ GDS35