J'ai une petite question...J'ai un classeur Excel qui contient un module, mais également un évènement "WorkBook_SheetChange" situé dans "ThisWorkBook".
Quand je lance ma macro cet évènement se lance également automatiquement (logique). Or moi j'aimerais que cet évènement ne se déclenche qu'une fois le code du module exécuté entièrement. Quand la macro à finit de s’exécuter en quelque sorte.
Est il possible de faire déclencher cet évènement sous conditions, ou de lui mettre un "wait" ou je ne sais quoi d'autre ???
Je ne sais pas si ma question est claire, et je ne sais pas non plus si c'est envisageable.
Comme déjà précisé, tu fais du VBA, pas du VB6 --> Catégorie modifiée
Si tu ne dois exécuter ces lignes qu'à la fin d'un traitement, pourquoi l'as-tu mis dans cette Sub WorkBook_SheetChange ?
Mets ton code dans une Sub personnelle et appelle-la quand tu auras fini ton traitement, exemple :
Sub maSubPerso()
' Mon traitement à faire à la fin
End Sub
Sub MaMacroPrincipale()
' Mon gros traitement ...
Call maSubPerso
End Sub
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Mon code est à traiter à la fin de la macro principale. Sauf que si je le met dans mon module, ce code ne sera traité qu'une seule fois. Il s'agit d'une mise en forme conditionnelle. Donc dès que certaines cellules sont activées, il faut calculer de nouveau sinon sa ne fonctionne pas.
C'est une mise en forme spéciale qui n'est pas simple à coder. Je suis obliger de sortir le code de cette mise en forme conditionnelle du module principal.
Mettre le code dans un "ThisWorkBook" est judicieux mais le problème c'est qu'il se met à jour tout du déroulement de la Macro.
Je me demandais si avec une variable public qui changerait d'état uniquement à la fin de la Macro sa ne marcherait pas ?
Un truc du genre :
Public Variable FINI
While FINI = False
Exit Sub
Wend
Faut que je teste cette idée.
Au fait sa existe une fonction du style "Tant que module1 est en cours, alors ne pas déclencher l'évènement..." ???
Pas tout compris, mais bon, déclare une variable Booléenne dans la déclaration de ton WorkBook et passe-la à True tant que ne veut pas exécuter ta Sub d'event, et dans cette même Sub, tu ajoutes un truc du style
If maVariableBool Then Exit Sub
Repasse-la à False quand tu veux qu'elle s'exécute (ou l'inverse, comme tu le sens)
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim maVariableBool as Boolean
If maVariableBool = True Then Exit Sub
If maVariableBool = False Then
'Déroulement de mon code
End If
End Sub
Mais comment la variable "maVariableBool" changera t'elle d'état ??? Je pense que j'ai mal compris ton post. La variable "maVariableBool" ne serait elle pas déclarée public par hasard ? Et si elle est déclarée public, alors je la déclare tout en haut de mon module, ou tout en haut de "ThisWorkBook" ?
Ah bah oui, GG, tu as raison, je n'y avais pas pensé.
Pour en revenir au Booléen, je t'ai dit (à tort) de le déclarer "dans la déclaration de ton WorkBook", pas dans la Sub; c'est à dire tout en haut de la page de code, juste après le "Option Explicit" (que j'espère tu utilises - voir option "déclaration obligatoire des variables")
En fait, pour que tout ton projet puisse avoir accès à cette variable, il faut :
- la déclarer en Public (à la place du Dim)
- dans un module, pas dans le Workbook
Je ne suis pas entièrement d'accord avec vous car il y a là 2 problèmes :
1) la macro en cause modifie des cellules pouvant être celles objets de la MFC prévue dans l'évènement SheetChange ===>> on peut alors jouer avec enableevents
mais
2) à la remise à true de Enableevents, la mfc ne s'effectuera point "automatiquement" sur ces cellules
seule solution à mon avis si l'on veut le beurre et l'argent du beurre :
1) laisser les choses telles qu'elles sont dans l'évènement SheetChange
2) dans la macro de modifications des cellules :
--- a) enableevents à false au début et à True à la fin
--- b) y recenser la plage des cellules modifiées (mais uniquement celles cponcernées par la mfc
--- c) revenir sur cette plage en l'utilisant pour forcer la mfc des cellules qui doivent la subir
Je dirais que, pour ne pas trop alourdir par des "redondances" de code :
Prévoir simplement une procédure distincte, appelable :
- tant depuis l'évènement sheetChange (en passant les paramètres des feuilles et cellules concernées)
que
- depuis la macro en utilisant sur la plage (voir plus haut) une boucle for each et en passant, dans cette boucle, les paramètres attendus par la procédure distincte.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Je repassais par la par curiosité et je vois vos derniers commentaires...
Je vous rappelle que j'ai résolu mon problème^^
J'ai tout d'abord réussi une première fois en utilisant une variable booléenne publique. Puis par curiosité j'ai essayé également la fonction "Application.EnableEvents False" et "Application.EnableEvents True". Au final je me suis dit que le principe est le même pour les 2 solutions. C'est à dire bloquer l'évènement durant le module principal puis le réactiver en fin de macro. Et en fait sa marche très bien également. Avec l'avantage de se coder en peu de lignes^^
J'ai donc changer mon fusil d'épaule et utilisé la méthode "Application.EnableEvents = False". (Ce qui reviens au même que la méthode Variable publique)
Néanmoins Ucfoutu n'a pas tord (il a rarement tord en même tps^^), en sortie de Macro l'évènement est remit actif mais n'est pas déclenché automatiquement. Il faut attendre que l'utilisateur fasse le premier pas en gros.
Par contre, dans MON code, je génère au passage de la macro une mise en forme conditionnelle particulière. Je le fais une seule fois au passage de la macro. Ainsi en sorti de Macro, ma mise en forme conditionnelle est appliquée avec les valeurs qui sont affectées durant la macro.
Par la suite dès lors que l'utilisateur touche au cellules ayant cette mise en forme particulière, le WorkBook prends le relais et change automatiquement les valeurs. Chose que n'est pas capable de faire la macro.
En résumé : Au passage de la Macro, j'applique une mise en forme qui fonctionne. En sortie de Macro ma mise en forme est ponctuelle mais fonctionne. Dès lors que l'utilisateur change une valeur, le WorkBook prends le relais et rends tout cela transparent et opérationnel.
Et voila^^
Sa fait bricolage un peu mais après 2 jours de prise de tête sur le problème et seulement 20 lignes de codes qui fonctionnent... Se me conviens TRÈS bien.
Évidemment aucun évènement du WorkBook n'est utile au cours du déroulement de la Macro principal. Ce qui fait que je peux les désactiver sans problèmes.
Moi sa me conviens et je ne changerais pas de solution. (2 jours de casse tête pour un petit drapeau qui est automatique, faut pas pousser lol)
D'ailleurs j'ai changé de problématique. Je vais ouvrir de ce pas une nouvelle discussion. ( En rapport à la trigonométrie et la fonction Arc Cosinus).
