Discussion :

[martinmacfly]

Bonjour tout le monde,

J'ai créé des macros qui me font des jolis calculs, légèrement différentes mais ressemblantes dans plusieurs feuilles, et ayant le même nom dans chaque feuille (mais déclarées privées). Le but, c'est que les résultats soient mis à jour en direct quand on change une valeur. Je veux donc exécuter ma macro chaque fois qu'une valeur d'entrée est modifiée.

Si une valeur est modifiée dans la feuille de la macro (feuilles B, C, D, E), j'ai le code suivant qui marche très bien et qui exécute la macro de la feuille :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False       'Pour ne pas avoir de boucle infinie
    MaProcédure
    Application.EnableEvents = True
End Sub

Par contre, j'ai une autre feuille (feuille A) dans laquelle je stocke pas mal de données d'entrée communes à tous les cas, et j'aimerais que quand je modifie cette feuille, les macros des feuilles B, C, D et E soient exécutées. Quelqu'un saurait-il comment faire ça ?

Une des solutions que j'envisage est de créer dans le module principale une procédure UpdateAll, qui irait exécuter les macros des feuilles B, C, D et E. Cette procédure serait appelée lors de la modification de la feuille A par le code :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    UpdateAll
    Application.EnableEvents = True
End Sub

Je préfère mettre UpdateAll dans le module plutôt que directement dans la feuille A car je vais probablement devoir la réutiliser. Mon problème, c'est que je ne sais pas comment, du module principal, appeler les procédures situées dans les autres onglets... Quelqu'un a une idée de comment faire ça ? Ou comment aboutir au résultat de manière plus simple ?

Merci !

[aalex_38]

Un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro2()
Dim Classeur As String, Feuille As String, Macro As String, Appel As String
Classeur = ThisWorkbook.Name
Feuille = "Feuil1"
Macro = "macro_f1"
 
Appel = Classeur & "!" & Feuille & "." & Macro
 
Application.Run Appel
End Sub

[martinmacfly]

Ca marche, merci ! Pour ceux que ça intéresse, voilà mon code final :

Dans l'onglet Données :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As range)
    Application.EnableEvents = False
    UpdateAll
    Application.EnableEvents = True
End Sub

Dans le module 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub UpdateAll()
 
    Application.EnableEvents = False
    Dim Appel As String
    Appel = "Feuil5.CalculMasse"
    Application.Run Appel
    Appel = "Feuil6.CalculMasse"
    Application.Run Appel
    Appel = "Feuil7.CalculMasse"
    Application.Run Appel
    Appel = "Feuil8.CalculMasse"
    Application.Run Appel
    Application.EnableEvents = True
 
End Sub

[Gorfael]

Salut martinmacfly et le forum
Difficile d'aider efficacement, mais une piste :
utiliser la macro à lancement automatique Workbook_SheetChange du module ThisWorkBook, pour lancer les macros quand nécessaire.
A+