Choix de reprise dans une macro

[David]

Bonjour à tous

j'ai un UserForm qui se lance et qui demande de valider ou pas, quand je valide l macro continu. Mais quand je choisi annuler "CommandButton2_Click" je veux que la macro reparte juste après la ligne :

ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True

Pour que ça n'imprime pas.

 End With
            
            debut = ""
            Fin = ""
            nb = 1
            nbWE = 0
            nbFerie = 0
            Calculate
       
Lance
        
        ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True

Sub Lance()
Load UserForm1                                                        ' Chargement userform1
UserForm1.Show                                                        ' Ouverture userform1
End Sub

Commande dans le UserForm :

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
????????
End Sub

Merci d'avance

 

[Compte Supprimé 979]

Re : Choix de reprise dans une macro

Salut David,

Avec un code décousu comme celui là, difficile à déterminer comment faire !

Ne pourrais tu pas mettre le code de ton USF en entier ou alors le fichier ?

A+

 

[XL_Luc]

Re : Choix de reprise dans une macro

Voici une solution avec une variable publique :
dans le userform :

Option Explicit

Private Sub CommandButton1_Click()
lancement_ok = True
UserForm1.Hide
End Sub

Private Sub CommandButton2_Click()
lancement_ok = False
UserForm1.Hide
End Sub

dans un module :

Public lancement_ok As Boolean

Sub lance()
UserForm1.Show
If lancement_ok Then
MsgBox "impression"
End If
MsgBox "suite"
End Sub

 

[David]

Re : Choix de reprise dans une macro

Merci à tous les deux.

Il m'était impossible de mettre le fichier (beaucoup trop gros et données confidentiels), quand au code il est vraiment très long.

J'ai donc utilisé la soluce de XL_Luc, j'ai juste fait une petite modif pour ne pas avoir les Msgbox que j'ai remplacé par des Goto et le if juste après la commande lance.


Merci beaucoup