[Résolu] Ne plus déclencher les macros liées a des boutons

[WDAndCo]

Bonjour le Forum
Comment ne plus déclencher les macros liées a des boutons

Sub Sauvegarde()
'
' Sauvegarde Macro
' Macro enregistrée le 08/10/2010 par DW'

'
If Range("C8").Value = "" Then MsgBox ("Il manque la date du contrôle"): Range("C8").Select: Exit Sub
If Range("H8").Value = "" Then MsgBox ("Il manque le nom du contrôleur"): Range("H8").Select: Exit Sub
If Cells(1, 12) = 0 Then MsgBox ("Mais il n'y a rien de saisie !"): Exit Sub
If Range("M1").Value = 0 Then MsgBox ("Transmis ou pas ?"): Exit Sub

If MsgBox("Confirmez vous la Sauvegarde et l'effacement ?", vbYesNo, "Confirmation") = vbNo Then Exit Sub

        ActiveSheet.Unprotect
    Nom = Cells(2, 15)
    
    Sheets("Compte Rendu").Select
    Sheets("Compte Rendu").Copy After:=Sheets(4)
    Sheets("Compte Rendu (2)").Select
    Sheets("Compte Rendu (2)").Name = Nom
    ActiveSheet.Shapes("Picture 3").Select
    Selection.OnAction = "Retour1"
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.OnAction = "Retour2"
    Cells.Select
    Selection.Copy
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWindow.FreezePanes = False
    Cells.Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoSelection
    
    Sheets("Compte Rendu").Select
    
            Call Efface
    
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True, AllowInsertingRows:=True
    
End Sub

Ici :

ActiveSheet.Shapes("Picture 3").Select
    Selection.OnAction = "Retour1"
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.OnAction = "Retour2"

Les marcos Retour1 et 2 ne fonctionne plus suite à une mise en réseau.
Comment modifier le code pour qu'une action sur l'un ou l'autre de ces deux boutons n'est plus effets.
D'avance merci.
Dominique

 

[Modeste geedee]

Re : Ne plus déclencher les macros liées a des boutons

Bonsour®

peut-être :

ActiveSheet.Shapes("Picture 3").Select
Selection.OnAction = "" ' "Retour1"
ActiveSheet.Shapes("Rectangle 1").Select
Selection.OnAction = "" ' "Retour2"

 

[WDAndCo]

Re : Ne plus déclencher les macros liées a des boutons

Bonjour le Forum et merci Modeste geedee, comme quoi des fois il ne faut pas chercher midi à quatorze heures !