Comment annuler une macro dans une autre macro

**pemeco** · 03/11/2016, 09h46

Bonjour à tous , je suis nouveau et aussi en programmation je suis entrain de réaliser une macro dans le cadre d'un projet qui m'a été remis dans le cadre de mes études.
J'ai créer un formulaire dans lequel il n'y a que deux boutons "annuler" et "ok" toutefois quand je clique sur "annuler" le formulaire se ferme mais la macro au niveau du module continue de ce lancer. voici ci-dessous le code de mon bouton "annuler":
Lorsque je lance la macro on me renvoie dans mon code au niveau de "Page_de_Garde.show" lorsque je clic sur debogage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Sub ajoutConsultant()
'Initialise les valeurs de la boîte de dialogue
Page_de_Garde.Text_Adresse = ""
Page_de_Garde.Text_BE = ""
Page_de_Garde.Text_Beneficiaire = ""
Page_de_Garde.Text_BP = ""
Page_de_Garde.Text_consultant = ""
Page_de_Garde.Text_debut = ""
'Page_de_Garde.Text_Fin = ""
Page_de_Garde.Text_lieu = ""
Page_de_Garde.Text_Tel = ""
'ouverture de la boite de dialogue page de garde
Page_de_Garde.Show
'selection de la Feuille consultant ou base de donnée
Sheets("Base de donnée").Select
'sélection de la ligne 2
Rows("2:2").Select
'insertion d'une ligne vide
Selection.Insert shift:=xlDown
'venir sur la cellule A2
Range("a2").Select
ActiveCell.Formula = Page_de_Garde.Text_BE
'venir sur la cellule B2
Range("b2").Select
ActiveCell.Formula = Page_de_Garde.Text_consultant
'venir sur la cellule C2
Range("c2").Select
ActiveCell.Formula = Page_de_Garde.Text_Tel
'venir sur la cellule D2
Range("d2").Select
ActiveCell.Formula = Page_de_Garde.Text_Adresse
'venir sur la cellule E2
Range("e2").Select
ActiveCell.Formula = Page_de_Garde.Text_BP
'venir sur la cellule F2
Range("f2").Select
ActiveCell.Formula = Page_de_Garde.Text_Beneficiaire
'venir sur la cellule G2
Range("g2").Select
ActiveCell.Formula = Page_de_Garde.Text_lieu
'venir sur la cellule H2
Range("h2").Select
ActiveCell.Formula = Page_de_Garde.Text_debut
'venir sur la cellule I2
Range("i2").Select
ActiveCell.Formula = Page_de_Garde.Text_Fin
'venir sur la cellule J2
Range("j2").Select
If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
    'ActiveCell.Formula = "ISO 9001:2015"
    'Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-2015 (avec méthode conçue).xlsm")
Else
    If ((Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
        ActiveCell.Formula = "ISO 14001:2015"
        Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 14001-2015.xlsm")
    Else
        If ((Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
              ActiveCell.Formula = "ISO 22000:2005"
              Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 22000-2005.xlsm")
        Else
            If ((Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO9001.Value = False) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_ISO22000.Value = False)) Then
                 ActiveCell.Formula = "OHSAS:2007"
                 Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\OHSAS 18001-2007.xlsm")
            Else
                If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                     ActiveCell.Formula = "ISO 9001/ISO 14001"
                     Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001.xlsm")
                Else
                    If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                         ActiveCell.Formula = "ISO 9001/ISO 22000"
                         Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 22000.xlsm")
                    Else
                        If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False) And (Page_de_Garde.Check_ISO14001.Value = False)) Then
                             ActiveCell.Formula = "ISO 9001/OHSAS 18001"
                             Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-OHSAS 18001.xlsm")
                       Else
                            If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = False)) Then
                                 ActiveCell.Formula = "ISO 9001/ISO 14001/ISO 22000"
                                 Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000.xlsm")
                            Else
                                If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = False)) Then
                                     ActiveCell.Formula = "ISO 9001/ISO 14001/ISO 22000"
                                     Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000.xlsm")
                                Else
                                    If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = False)) Then
                                        ActiveCell.Formula = "ISO 9001/ISO 22000/OHSAS 18001"
                                        Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 22000 -OHSAS 18001.xlsm")
                                    Else
                                        If ((Page_de_Garde.Check_ISO9001.Value = True) And (Page_de_Garde.Check_ISO14001.Value = True) And (Page_de_Garde.Check_ISO22000.Value = True) And (Page_de_Garde.Check_OHSAS18001.Value = True)) Then
                                           ActiveCell.Formula = "Tous les Quatre(04)référentiels"
                                           Workbooks.Open ("C:\Users\Pemeco\Desktop\Fichier Diagnostic\ISO 9001-ISO 14001-ISO 22000-OHSAS 18001.xlsm")
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
End Sub

Merci encore pour votre aide

Comment annuler une macro dans une autre macro [XL-2013]

Macros et VBA Excel

Mode arborescent

Discussions similaires

Partager

Partager