Ajouter une seconde macro a une feuille

Version imprimable

Bonsoir,

Je reste bloqué sur l'association d'une deuxième macro sur une feuille:

La première, qui fonctionne parfaitement:

Code:

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
Private Sub ToggleButton1_Click()
ToggleButton1.Caption = IIf(ToggleButton1, "AM=PM", "AM<>PM")
ToggleButton1.BackColor = IIf(ToggleButton1, vbGreen, vbRed)
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
     If Not Intersect(Target, Range("D5:NE5,D11:NE11,D17:NE17,D23:NE23,D29:NE29,D35:NE35,D41:NE41,D52:NE52,D58:NE58")) Is Nothing Then
        Debug.Print Target.Address
        If ToggleButton1 Then
            Target.Offset(2, 0) = Target
            Else
            Exit Sub
        End If
     End If
 
     If Not Intersect(Target, Range("D7:NE7,D13:NE13,D19:NE19,D25:NE25,D31:NE31,D37:NE37,D43:NE43,D54:NE54,D60:NE60")) Is Nothing Then
        Debug.Print Target.Address
        If ToggleButton1 Then
            Target.Offset(3, 0) = Target
            Else
            Exit Sub
        End If
     End If
 
 
 
 
A laquelle je souhaiterais associer une seconde macro:
 
If Target.Cells(1, 1) = "" Then
    Reponse = MsgBox("Voulez-vous supprimer ?", vbYesNo)
    If Reponse = vbNo Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End If
End Sub

Là, je sèche...C’est la première fois que j'essaie d'appliquer 2 macros...Et impossible....

Si un pro pouvais me donner un tuyau, je serais plus que preneur...
Un grand merci à ceux qui jetterons un œil,
Bien amicalement...

Bonjour,

Comme ça peut être ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.EnableEvents = False
 
    If Not Intersect(Target, Range("D5:NE5,D11:NE11,D17:NE17,D23:NE23,D29:NE29,D35:NE35,D41:NE41,D52:NE52,D58:NE58")) Is Nothing Then
        If ToggleButton1 Then Target.Offset(2, 0).Value = Target.Value Else GoTo Fin
    End If
 
    If Not Intersect(Target, Range("D7:NE7,D13:NE13,D19:NE19,D25:NE25,D31:NE31,D37:NE37,D43:NE43,D54:NE54,D60:NE60")) Is Nothing Then
        If ToggleButton1 Then Target.Offset(3, 0).Value = Target.Value Else GoTo Fin
    End If
 
    If Target.Value = "" Then
        If MsgBox("Voulez-vous supprimer ?", vbYesNo) = vbNo Then Application.Undo
    End If
 
Fin:
    Application.EnableEvents = True
 
End Sub

22/08/2018, 17h29
bencelui

Tout d'abord merci

Alors, ça ne fonctionne pas,

Mais vous m'apportez une piste....

Je creuse...

L'idée étant d'avoir 2 macro indépendantes dans la même feuille... En fait l'une et l'autre macro n’ont rien à voir entres elles...
Je dois oublier quelque chose, mais quoi ???

Le principe:
La macro 1 est dépendante d'un toggle bouton: soit il est activé et il existe une recopie automatique d'une ligne sur une autre (2 conditions différentes selon la ligne), soit il est désactivé et il n'y a pas de recopie
La 2 eme macro sert à confirmer l'effacement d'une ou plusieurs cellule afin d’éviter une modification involontaire

Merci de votre aide en tout cas....
22/08/2018, 21h58
unparia
Bonjour
Juste pour rappeler(faire observer) quant à moi que la méthode Application.Undo ne saurait rétablir des modifications autres que celles de l'utilisateur, ce qui n'est certes pas le cas de chacune de ces 2 instructions :
Code:

1 2 3 4 If ToggleButton1 Then Target.Offset(2, 0).Value = Target.Value Else GoTo Fin ... ... If ToggleButton1 Then Target.Offset(3, 0).Value = Target.Value Else GoTo Fin