Discussion :

[Mama13]

Bonjour,
débutant en vba, je n'arrive pas à créer un bouton qui active toutes les procédures de toutes les feuilles du fichier.
Mon fichier contient plusieurs feuilles qui contiennent les mêmes procédures (j'ai déjà basculé les procédures de privateSub à Sub).
Chaque feuille est donc à présent construite comme suit :

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
16
17
18
19
Sub Worksheet_Activate()
   ThisWorkbook.RefreshAll
End Sub
 
Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim chemin As String
 
chemin = "'" & ThisWorkbook.Path & "\[marges et prix pour mise à jour tarifs.xlsx]tableau cmup marges'!C1:AN222"
 
 
For i = 12 To 45
 
Cells(i, 12).Formula = "=iferror(vlookup((A" & i & "), " & chemin & ",30,false),"""")"
Cells(i, 12).Value = Cells(i, 12).Value
 
Next i
 
End Sub

A présent, je voudrais dans la "Feuil1 (page de garde)" créer un bouton qui fasse tourner /active /rafraîchisse toutes les procédures de toutes les feuilles.
J'ai donc créé un bouton dans la "Feuil1 (page de garde)"
Et j'ai entré le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Sub Bouton1_Cliquer()
 
Call Feuil6.Worksheet_Activate
Call Feuil7.Worksheet_Activate
 
Call Feuil6.Worksheet_SelectionChange
 
End Sub

Pour les procédures Worksheet_Activate, pas de souci, ça fonctionne il semble.
Par contre pour la procédure Worksheet_SelectionChange, il me met une erreur : "Erreur de complilation: Argument non facultatif".

Sauriez-vous me dire comment appeler et activer ce genre de procédure ??

Merci d'avance pour vos lumières !

[Philippe Tulliez]

Bonjour,
Il y a deux types de boutons, les boutons formulaires et les boutons ActiveX. Un bouton ActiveX a son propre événement depuis lequel on peut invoquer des procédures présentes dans les modules de la feuille ou des procédures présentes dans un module standard. Le bouton formulaire peut invoquer une procédure présente dans un module standard.
Si le même événement doit être intercepté sur plusieurs feuilles, il est préférable d'utiliser les procédures événementielles du classeur. Celles qui sont préfixées Worksheet

Si vous souhaitez effectuer des actions sur plusieurs feuilles, j'utiliserais la procédure d'un module standard que j'invoquerais depuis la feuille "Accueil" (page de garde). Procédure qui pourrait agir sur les différentes feuilles

A lire, pour en savoir plus sur les procédures événementielles

• Les évènements du module objet ThisWorkbook, dans Excel
• Les évènements dans la feuille de calcul Excel

[EDIT]

Worksheet_SelectionChange, il me met une erreur : "Erreur de complilation: Argument non facultatif".

En principe, une procédure événementielle est là pour intercepter un événement pas d'être invoquée directement depuis une autre procédure et effectivement cette procédure a un argument obligatoire, nommé Target. Le message d'erreur est donc normal

[Mama13]

Merci Philippe pour le retour rapide !

Tout cela est un peu complexe à première vue, car je ne suis familière avec rien en vba !
Mais je vais approfondir ça, avec les liens que vous me donnez, et si besoin de reposerai des questions (j'en aurai pour sûr &#128517.

En tout cas un grand merci pour cette première réponse !

[Philippe Tulliez]

Bonjour,
Si vous souhaitez effectuer une actualisation complète des tableaux croisés dynamiques et des requêtes Power Query, il suffit de le faire à l'ouverture du classeur et pas à l'activation des feuilles.
La méthode RefreshAll de l'objet Workbook , actualise toutes les plages de données externes et les rapports de tableau croisé dynamique dans le classeur spécifié soit dans votre cas ThisWorkbook