Arréter une macro événementielle ?

[pmfontaine]

Bonjour,
J’utilise une macro événementielle qui ce déclenche lors qu’une cellule change dans la colonne G.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
If Target.Value <> valeur Then
sauvegarde
End If
End If
End Sub

"Sauvegarde" est une macro qui commence par un MsgBox « Voulez modifier la cellule » OUI, NON.
Si OUI pas de problème,
Si NON, comment faire pour remettre la valeur de départ (j’ai trouvé une astuce, mais il y a peut-être mieux) et surtout pour ne pas déclencher en continue la macro événementielle ?
Voir fichier joint.
Merci d’avance pour votre aide.

 

[DL_13]

Re : Arréter une macro événementielle ?

Bonjour

Pas sur mais dans la macro sauvegarde:
en début de Macro
mettre cette ligne de code

If Response = vbNo Then Exit Sub    ' L'utilisateur a choisi Non.

a tester

Bonne journée

 

[Etienne2323]

Re : Arréter une macro événementielle ?

Bonjour pmfontaine,
voici comment procéder. J'ai récupéré la fin de votre macro "Sauvegarde"

 Else    ' L'utilisateur a choisi Non.
'récupère le n° de la ligne active
    a = ActiveCell.Row
'récupère le nom précedent
    nom = Range("J" & a).Value
    Application.EnableEvents = False
    Range("G" & a).Value = nom
    Application.EnableEvents = True
End If

Cordialement,

Étienne

Edit : @ DL : Si le besoin de notre ami aurait été de sortir de la macro si jamais la réponse non est choisie, votre solution aurait été parfaite. Or, ici, si j'ai bien compris, il souhaite récupérer une ancienne valeur. L'option de sortir de la macro n'est donc pas celle à privilégier.

Etienne

 

[DL_13]

Re : Arréter une macro événementielle ?

Bonjour Etienne

d'où mon "pas sur": à lire en diagonal on répond souvent de travers. Heureusement qu'il y a de bons Xldiens avec de Bons neurones 🙂

Bonne Journée

 

[pmfontaine]

Re : Arréter une macro événementielle ?

Merci a tous les deux pour votre aide.
Je viens de tester la proposition d'Etienne.
ça marche
Merci Beaucoup.