J
jepi67
Guest
Bonjour le forum,
J'ai une petite macro pour l'impression d'un tableau de dimension variable dont le code (qui fonctionne) est :
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.
J'ai une petite macro pour l'impression d'un tableau de dimension variable dont le code (qui fonctionne) est :
Code:
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
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.