Microsoft 365 Copie feuilles et macro

julien1982

XLDnaute Occasionnel
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"

1700576945131.png


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

1700577003437.png


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 :)
 

Pièces jointes

  • PCE_forum.xlsm
    136.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Julin,
Je n'ai pas approfondi vos macros, mais une piste .
Dans ThisworkBook vous mettez :
VB:
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.
 

Pièces jointes

  • PCE_forum.xlsm
    129.7 KB · Affichages: 2

julien1982

XLDnaute Occasionnel
Bonjour Julin,
Je n'ai pas approfondi vos macros, mais une piste .
Dans ThisworkBook vous mettez :
VB:
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.
 

Discussions similaires

Réponses
5
Affichages
449