Discussion :

[David2304]

Bonjour,

Voilà mon pb :
J'ai une macro qui vient entrer des données sur une feuille par l'intermediaire d'une boucle for each.
Sur cette feuille, il y a une macro "worksheet change" qui me lance des msgbox en fonction de certaines conditions (je sais c'est un peu vague).
J'ai donc 2 macros qui fonctionnent en même temps

Y a-t-il un moyen de fermer la msgbox par macro à chaque fois qu'elle s'ouvre ?
Ou est-il possible d'entrer une condition dans "worsheet change" qui détecte ma 1ère macro et empêche donc le lancement de la msgbox ?

[fring]

Bonjour,

Il suffirait qu'au lancement de la 1ère macro, celle-ci inscrive une valeur, par exemple dans la cellule IV1 (rarement pour ne pas dire jamais utilisée) et dans la seconde macro, vérifier la condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("IV1") = Valeur Then Exit Sub

En fin de processus de la 1ère macro, on efface la valeur de IV1

[David2304]

Effectivement c'était très con
Pourquoi chercher compliquer !!!
Merci je vais me servir de ton idée pour la suite du prog

Par contre, si qqu'un connaît les codes vba pour faire compliquer je les veux bien, ça pourrait me servir plutard

[fring]

Oui il y a surement moyen de construire une usine à gaz pour refermer les MsgBox mais il me semble qu'il est préférable de les empêcher de s'afficher plutot que d'attendre qu'elles s'affichent pour les refermer automatiquement via des SendKeys ou des Timer ou que sais je encore, ce qui ne ferait qu'allourdir et ralentir le processus.

[philmascio]

Le plus simple aurait sans doute été de désactiver temporairement les procédures événementielles par
Application.EnableEvents = False en début de macro et
Application.EnableEvents = True en fin de macro.

[patricktoulon]

Bonjour

histoire de gagner du temps

dans ta 1ere macro une donnée est récupérée quelque part ou fabriquée

dans ta 2eme macro au sheetschange un msgbox est ouvert en fonction de cette donnée
il me semble que la réponse se trouve dans la question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if donnée ="XXXXXXX" then

'dans la macro du msgbox
Au plaisir