Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier du code évènementiel d'un onglet

  • Initiateur de la discussion Initiateur de la discussion coco_lapin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

coco_lapin

XLDnaute Impliqué
Bonjour le forum,

J'ai du code qui exite dans une feuille pour les 2 évènements suivants:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'mon code
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'mon code
End Sub

J'aimerai le copier dans tous les onglets d'un classeur via une macro.
Merci pour votre aide.
 
Dernière édition:
Re : Copier du code évènementiel d'un onglet

Bonjour coco_lapin, le forum,
Pourquoi ne pas mettre ton code dans ThisWorkBook:
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
et
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cordialement,
Guiv
 
Re : Copier du code évènementiel d'un onglet

Guiv merci pour ta réponse mais en placant les codes dans ThisWorkBook il agit sur le classeur et non pas sur les onglets.

J'ai essayé et cela ne fonctionne pas.
 
Re : Copier du code évènementiel d'un onglet

Re,
Curieux, j'utilise ce code pour des procédures évènementielles qui s'appliquent à toutes les feuilles, et ça fonctionne, ça évite justement de copier le code dans le module de chaque feuille. Vois ci-joint
Cordialement,
Guiv
 

Pièces jointes

Re : Copier du code évènementiel d'un onglet

Bonsoir Guiv,

J'étais en déplacement à mon travail et je n'ai pas pu te répondre avant.

Je viens d'essayer ton code (issu de ton classeur) et cela fonctionne parfaitement!
Tu utilises Workbook_SheetSelectionChange et moi j'avais utilisé brutalement Worksheet_SelectionChange en le placant dans ThisWorkBook (et c'est cela qui ne fonctionnait pas). En fait j'avais mal lu une partie de ton premier message.

Merci enore pour ton aide et bonne soirée.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
508
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…