inputbox, surveillé ce que l'utilisateur entre

[Jimrcl]

Bonjour le forum,
les utilisateurs doivent entré un numéro de mois dans une inputbox,
comment les faire recommencer si ce qu'il entre est différent de 1 ou 2 ou 3...
j'ai essayé çà mais çà marche pas.
Merci d'avance

debut:
mois = InputBox('Entrez le numéro de mois à analyser 1 ou 2 ou 3 etc...', 'Mois à analyser ? ? ?')
Select Case mois
Case '':
Exit Sub
Case Is <> '1' Or '2' Or '3' Or '4' Or '5' Or '6' Or '7' Or '8' Or '9' Or '10' Or '11' Or '12':
MsgBox 'Ben c'est pas un mois çà ???', , 'Attention...'
GoTo debut
End Select

 

[dg62]

Bonjour Jimrcl (RC Lens ?)

Sub saisirMois()
Dim mois As Integer
mois = 0
Do While mois <= 0 Or mois > 12
mois = InputBox('Entrez un n° de mois'Â'Â')
Loop

End Sub

Message édité par: dg62, à: 21/04/2005 09:33

 

[Jimrcl]

Merci DG62,
oui RCL pour Racing Club de Lens
je suis d'Etaples près de Boulogne, qui hier soit dit en passant c'est fais volé par l'arbitre monsieur Sarrs en coupe de france.
Sinon si mon utilisateur est très con et qu'il ne rentre pas un chiffre mais février par exemple, là çà plante...
Connais tu une astuce pour çà aussi?
du style si c'est pas un integer on recommence...
Merci

62 c pour le departement je suppose B)

 

[dg62]

RE

Sub saisirMois()
Dim mois As Integer
mois = 0
Do While mois <= 0 Or mois > 12
mois = Application.InputBox('Entrez un n° de mois', 'Saisie du mois', Type:=1)
If mois = False Then Exit Sub
Loop

End Sub

je suis Calaisien mais habite Arras et supporter Lens

 

[Jimrcl]

Merci Didier,
Je suis d'Arras aussi, par ma belle famille, trois ans passé à Arras
en prépa à Baudimont puis à Robespierre, là exilé sur Rouen ,apprentissage avec Renault.
Une question dont j'ai toujours voulu avoir la réponse,
comment devient on si fort en VBE, dévellopeur au boulot?
ou par de longues années d'expérience?
Sinon le code marche impeccable, merci encore.

ps: j'ai ouvert une autre question, si tu connais là réponse...
aprés j'aurais fini ma macro, j'arreterai d'embêter le forum :unsure: