Desadctiver temporairement une macro Private Sub

Question

Voici ma problématique : J'ai un fichier avec 3 onglets. Le 1er est une feuille d'analyse, Le 2ème est une liste de client et le 3ème est l'ensemble des résultats des différents clients sur le mois (Janvier dans l'exemple). Dans l'onglet "Liste", il y a un bouton qui permet d'actualiser les tableau du 1er onglet "analyse" à partir de la liste client présent dans le 2ème onglet. Malheureusement, j'ai également dans l'onglet "Analyse" 2 Private Sub qui range par ordre décroissant les clients à partir de leurs résultats. Or, cela me fais perdre énormément de temps dans l'actualisation des tableaux. Je souhaiterai désactiver ces 2 macros pendant l'actualisation et qu'elles se reactivent seulement l'actualisation effectuée. J'ai essayé Activate Event = True et Activate Event = False mais je ne sais apparemment pas où les mettre puisque cela ne fonctionne pas. J'ai mis un exemple simple. Dans mon fichier réel, il y a des centaines de lignes et c'est beaucoup plus long (20 minutes) Merci à vous pour votre aide...

cousinhub · Accepted Answer

Re-,

Dans ce cas, utilise deux variables booléennes différentes

Style Flag1 et Flag2 (chacune à déclarer en Public dans leurs modules respectifs)

Et dans le Worsheet_Change de l'onglet "Analyse", tu mets ceci :

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Flag1 Or Flag2 Then Exit Sub
        Call tri
        Call trib
    End Sub

Et dans chaque module, tu mets la variable à True en début de code, et à False en toute fin de code

Bonne soirée

cousinhub · Answer

L'utilisation de l'instruction EnableEvents comporte des risques en cas de "bug"... On peut avantageusement le remplacer par une valeur boléenne. Pour ce faire, dans le module2, tu ajoutes une variable booléenne en Public comme ceci : Public Flag As Boolean Sub ActualiseTableaux() Dim Cel As Range, Depart As String, Ligne As Long Dim J As Long Flag = True With Sheets("Analyse") .....'reste du code Et à la fin de ce code : ..... ..... End With Call tri Call trib Flag = False End Sub Et surtout, dans l'évènement de l'onglet "Analyse", tu modifies ainsi : Private Sub Worksheet_Change(ByVal Target As Range) If Not Flag Then Call tri Call trib End If End Sub Bonne fin de journée...

cousinhub · Answer

Re-, Tu n'aurais pas déjà une autre variable du même nom? regarde le fichier joint.....

cousinhub · Answer

Re-,

Avoir 2 variables qui effectuent la même chose, pas de soucis, d'autant plus qu'elles n'ont pas le même nom....

D'après ce que je comprends, tu n'as pas mis en exemple la structure exacte de ton fichier réel....

Ni les codes utilisés...

Ni les tableaux utilisés....

Ni les onglets impactés....

Et là, ma boule de cristal ne me donne rien...

Bon courage

cousinhub · Answer

Je n'ai pas fait du ligne à ligne pour comparer les 2 codes dans les modules 1 et 2, mais à part les deux procédures appelées à la fin par l'instruction "Call", je ne vois pas trop de différences... Donc, pourquoi, 2 codes "quasi-identiques"? Et effectivement, dans ces 2 modules, tu déclares à chaque fois la variable booléenne "Flag".... D'où ton message d'erreur. La question n'est pas de savoir comment faire, c'est surtout de se poser la question de l'utilité des 2 codes.... Bonne soirée...