Empêcher une macro de redémarrer...

[guy72]

Bonjour,
J'ai une macro1 avec un son qui démarre si dans B2 il y a 1000.
Le Nombre 1000 restera dans la cellule.
Donc, à chaque fois que je "glisse ou copie ou que je démarre une autre macro...
La macro1 se remet en route.
Comment éviter ça ?
Merci de votre aide

Cordialement
Guy

 

[Cousinhub]

Re : Empêcher une macro de redémarrer...

Bonjour,

Lorsque tu parles de "macro", tu parles sans doute de code se déclenchant sur "évènement"...

Peux-tu mettre le code intégral (y compris le titre, qui contient forcément "Sub")?

@ te relire

 

[JNP]

Re : Empêcher une macro de redémarrer...

Bonjour le fil 🙂,
A mettre en haut d'un module

Public Flag As Boolean

puis dans ta macro

Sub Macro1()
If Flag = True Then Exit Sub
'... là ta macro
Flag = True
End Sub

à l'ouverture du fichier, Flag vaux False. Au premier passage de ta macro, elle s'exécute et fait passer Flag à True. Du coup, les fois suivante, ta macro est shuntée 😉.
Bonne journée 😎

 

[ERIC S]

Re : Empêcher une macro de redémarrer...

Bonjour à vous

sauf erreur, le coup de la variable public résoud le pb tant que le classeur n'est pas fermé.....

sinon, à la fin de ta macro son, tu écris dans une cellule (exemple Z2) et au démarrage de ta macro tu mets

if not range("Z2").value="" then exit sub

à tester

 

[guy72]

Re : Empêcher une macro de redémarrer...

Bonjour,
Désolé, c'est toujours pareil
Guy

 

[ERIC S]

Re : Empêcher une macro de redémarrer...

re

peux-tu joindre un fichier en exemple?

 

[guy72]

Re : Empêcher une macro de redémarrer...

à l'ouverture du fichier, Flag vaux False. Au premier passage de ta macro, elle s'exécute et fait passer Flag à True. Du coup, les fois suivante, ta macro est shuntée .
Bonne journée

Bonjour,
Ok ça fonctionne.
J'avais du mal à solutionner mon problème car j'avais 3 macros qui dépendaientt de cette cellule.
Merci de votre aide
Cordialement
Guy

 

[guy72]

Re : Empêcher une macro de redémarrer...

Bonjour le fil 🙂,
A mettre en haut d'un module

Public Flag As Boolean

puis dans ta macro

Sub Macro1()
If Flag = True Then Exit Sub
'... là ta macro
Flag = True
End Sub

à l'ouverture du fichier, Flag vaux False. Au premier passage de ta macro, elle s'exécute et fait passer Flag à True. Du coup, les fois suivante, ta macro est shuntée 😉.
Bonne journée 😎

Bonjour,
Merci ça fonctionne.
J'ai eu du mal à solutionner mon problème, car je ne savais pas comment faire.
Cordialemnt
Guy

 

[JNP]

Re : Empêcher une macro de redémarrer...

Re 🙂,

sauf erreur, le coup de la variable public résoud le pb tant que le classeur n'est pas fermé.....

Exact. Mais vu que c'était un fichier son, j'ai fait l'hypothèse qu'il fallait qu'il soit jouer 1 fois par ouverture de classeur 😉.
Bonne soirée 😎

 

[ERIC S]

Re : Empêcher une macro de redémarrer...

Trop fort la déduction JNP

serais-tu le fils spirituel de Sherlock ? 😉 ou de Popeck qui avait un sketch terrible là-dessus

Bien vu en tout cas

A un autre croisement de fil peut-être...

 

[guy72]

Re : Empêcher une macro de redémarrer...

Bonjour,
je n'arrive pas à me débarasser des sons, une fois leur fonction faite.
Merci de votre aide
Cordialement
Guy