Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Arréter une macro événementielle ?

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pmfontaine

XLDnaute Occasionnel
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.
 

Pièces jointes

Trier par date Trier par votes
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

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

Bonne journée
 
Vote positif 0 Vote négatif
Re : Arréter une macro événementielle ?

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

Code: 
 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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
334
PRy
P
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
273
KTM
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
258
treza88
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
446
Lau01150
L
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
394
patricktoulon
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
327
Jojo973
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
548
macseb
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
P
  • Résolu(e)
Microsoft 365 macro qui permet de basculer entre 2 valeurs composées de formules de type "Formula local"
2
Réponses
15
Affichages
552
cathodique
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
303
TooFatBoy
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
380
Atlas85200
A
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…