Syntaxe Vba : If ... Then...

[jepi67]

Bonjour le forum,

J'ai une petite macro pour l'impression d'un tableau de dimension variable dont le code (qui fonctionne) est :

Sub Impression()
'
' Impression Macro
' Macro enregistrée le 19/05/2005 par Jepi67
'
Dim Reponse As String
    Reponse = InputBox('Imprimer les débiteurs seuls saisir : 1' & _
    vbCr & ' ' & _
    vbCr & 'Imprimer toute les réservations saisir : 2', 'IMPRESSION LISTE')
If Reponse = '' Then Exit Sub
If Reponse = 1 Then Range('b12:v' & Range('v65536').End(xlUp).Row).Select
    PrintArea = Selection
    Selection.PrintOut Copies:=1, Collate:=True
If Reponse = 2 Then Range('b12:v' & Range('t65536').End(xlUp).Row).Select
    PrintArea = Selection
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

Si l'utilisateur donne une autre réponse que : annulé, 1 ou 2 ; elle m'imprime quand même la version 2.
Est-il possible d'inserrer qlq chose comme : If Reponse <> 1 ou Reponse <> 2 Then MsgBox('Attention saisir 1 ou 2') et après validation l'InputBox se représenterai automatiquement ?
J'ai essayé plusieurs variantes sans succès, merci de votre concours précieux.

 

[Jam]

Salut jepi67,

Un petit Select Case...End Select fera bien mieux l'affaire

Select Case Reponse
    Case 1
        ton code
    Case 2
        ton code
    Case Else
        Exit Sub
End Select

Bon fin de journée

 

[jepi67]

Merci Jam,

je vais essayer cela.

Excusez-moi, je ne m'étais pas identifié d'o&ugrave; l'absence de signature.

à bientôt