INPUTBOX et 4 Chiffres

gds35 · 7 Octobre 2008

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 · 7 Octobre 2008

Re : INPUTBOX et 4 Chiffres

Bonsoir,

voici un exemple:

Code:

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 · 8 Octobre 2008

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

INPUTBOX et 4 Chiffres

gds35

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

gds35

XLDnaute Impliqué

Discussions similaires

INPUTBOX et 4 Chiffres

gds35

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

gds35

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency