impubox de choix limitée

Bonjour

peut-être comme ceci !

Sub exemple()
Dim grade As String
revient:
grade = InputBox(" Etablissement?")
If grade = "" Then Exit Sub
If grade = "Lyc" Or grade = "Lp" Then
MsgBox "bravo"
'blablabla
Exit Sub
Else
GoTo revient
End If
End Sub


Salutations

Gilbert


"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de
news:2542EA02-BF3F-49F9-B565-C3D91A0573D4@microsoft.com...

bonjours a tous

voila j'aimerai savoir si c'est possible dans un imputbox de limite le
choix

voici ma formule


Dim ETAB As String
Range("H50").Select
Selection.End(xlUp).Offset(1, 0).Select
grade = InputBox(" Etablissement?")
ActiveCell.Value = ETAB
Range("c1").Select

je voudrais que la saisie soit : Lyc ou alors Lp
est ce possible
je remerci tout le forum pour aide que vous m'apporter a l'elaboration de
mes fichiers

Ptifred

Bonjour.
Essaie ma contribution :

Dim ETAB As String
Range("H50").Select
Selection.End(xlUp).Offset(1, 0).Select
Do While 1 = 1
grade = InputBox(" Etablissement?")
If grade <> "Lyc" And grade <> "Lp" Then
MsgBox "saisie erronée !"
Else: Exit Do
End If
Loop
ActiveCell.Value = ETAB
Range("c1").Select

Cordialement.
Daniel

"pPTIFRED" <pPTIFRED@discussions.microsoft.com> a écrit dans le message de
news: 2542EA02-BF3F-49F9-B565-C3D91A0573D4@microsoft.com...

bonjours a tous

voila j'aimerai savoir si c'est possible dans un imputbox de limite le
choix
voici ma formule


Dim ETAB As String
Range("H50").Select
Selection.End(xlUp).Offset(1, 0).Select
grade = InputBox(" Etablissement?")
ActiveCell.Value = ETAB
Range("c1").Select

je voudrais que la saisie soit : Lyc ou alors Lp
est ce possible
je remerci tout le forum pour aide que vous m'apporter a l'elaboration de
mes fichiers

Ptifred