Copier du code évènementiel d'un onglet

[coco_lapin]

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.

 

[Guiv]

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

Bonjour coco_lapin, le forum,
Pourquoi ne pas mettre ton code dans ThisWorkBook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

et

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Cordialement,
Guiv

 

[camarchepas]

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

Bonjour,

Guiv, bouges pas , y'a une bestiole
Je l'aurais cette bestiole, je l'aurais, mince j'ai massacré l'écran et je l'ai encore loupé

 

[coco_lapin]

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.

 

[Guiv]

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

 

[coco_lapin]

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.