Microsoft 365 Copie feuilles et macro

[julien1982]

Bonjour a tous,

je possède un fichier qui permet entre autre de faire du suivi documentaire sur le statut de mes doc, pour savoir si le doc est en prod, envoyé au client, BPE etc etc...) les statuts sont dans l'onglet "adresse mails"

Ce fichier est constitué de plusieurs onglets que j'ai dupliqué par rapport à l'onglet "06-PCE"

Hors la macro créé sur l'onglet 06-PCE ne marche pas sur les autres onglets (normale pas même nom de feuille)

Comment faire pour que cela fonctionne?
Recopier le code dans un module par feuille ou existe un moyen de faire un seul code pour toutes les feuilles peut etre pas pratique....

Si des ? je répondrais sans soucis

 

[sylvanu]

Bonjour Julin,
Je n'ai pas approfondi vos macros, mais une piste .
Dans ThisworkBook vous mettez :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    statutsPlans
End Sub

A chaque sélection de feuille vous exécutez la macro StatusPlans
Dans sub StatusPlans j'ai supprimé toute référence à Feuil5, il travaille alors sur la page courante.
J'ai rajouté On error Goto pour sortir sur erreur quand les pages 02-Sommaire ou adressesmails sont sélectionnées.

 

[julien1982]

Bonjour Julin,
Je n'ai pas approfondi vos macros, mais une piste .
Dans ThisworkBook vous mettez :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    statutsPlans
End Sub

A chaque sélection de feuille vous exécutez la macro StatusPlans
Dans sub StatusPlans j'ai supprimé toute référence à Feuil5, il travaille alors sur la page courante.
J'ai rajouté On error Goto pour sortir sur erreur quand les pages 02-Sommaire ou adressesmails sont sélectionnées.

Salut sylvanu,

je vais regarder tt ca, merci pour ton aide.