retour a userform par msg box

[Yvon]

Bonjour à tous,

voila le problème, j'ai userform qui sert de menu d'impression, et un msgbox qui demande si l'impression est ok, le souci est que je n'arrive pas à rappeler le userform initial, si la réponse est non, je vous livre le code tel quel.

Par avance merci du coup de main et essayez de m'expliquer pourquoi cela ne marche pas, faire faire c'est bien comprendre c'est mieux

Private Sub OK_Click()

'impression systematique des Feuil1 synthèseX2, CGV

Sheets(Array(6)).PrintOut copies:=2
Sheets(Array(17)).PrintOut

'impression conditionnelle en fonction des Checkboxs pauses, prise en charge

If menuimpression2.CheckBox1 = True Then Sheets(16).PrintOut
If menuimpression2.CheckBox2 = True Then Sheets(8).PrintOut
menuimpression2.Hide

'message d'impression correcte'

intresponse = MsgBox('L 'impression est elle correcte ?', vbYesNo + vbQuestion + vbDefaultButton2, 'Impression')
If vbYes1 Then End
If vbno2 Then menuimpression2.Show

 

[myDearFriend!]

Bonsoir Yvon,

Si j'ai bien compris le problème, peut-être peux-tu essayer comme ça :

Private Sub OK_Click()
Dim intresponse As Integer
      '...
      '...
      '...
     
      'impression conditionnelle en fonction des Checkboxs pauses, prise en charge
      If menuimpression2.CheckBox1 = True Then Sheets(16).PrintOut
      If menuimpression2.CheckBox2 = True Then Sheets(8).PrintOut

      'menuimpression2.Hide   ---> inutile !
     
      'message d'impression correcte'
      intresponse = MsgBox('L'impression est elle correcte ?', vbYesNo + vbQuestion + vbDefaultButton2, 'Impression')
      If intresponse = vbYes Then Unload Me
End Sub

Cordialement,

 

[Yvon]

Cela marche, c'est super, en fait tu as pris le problème dans le bon sens alors que je le prenais à l'envers.

Merci Mydearfriend