Récupérer code vba d'une feuille

Bonjour à tous,

Je cherche le moyen de récupérer le code contenu dans ma feuille excel.
Je m'explique, dans ma feuille 1, j'ai un code sur l'event worksheet_change et beforeDoubleClick.
Quand je créé une nouvelle feuille, je fais une copie d'une existante pour garder le même template. Cependant, les macros associées a ces deux événements sont perdues en route.

Existe-t-il un moyen de les conserver ?

Merci par avance .

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)   End Sub   Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   End Sub

---

Je me suis mal fait comprendre.

Je connais les event ou il faut que je mette mon code, mais dans ma feuil2, j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = Target.Address = "$D$12" End Sub   Private Sub Worksheet_Change(ByVal Target As Range) If Not ThisWorkbook.validate(Target) Then Target.value = Null End If End Sub

---

Quand je copie ma feuille, le code dans les méthode ne suit pas. Donc sur ma nouvelle feuille, je n'ai plus mon système de validation.
Donc est ce qu'il existe un moyen de copier coller ce code et de le remettre dans la nouvelle feuille ?

Tu as la réponse donnée par Robert (+1)

Regarde dans le module ThisWorkbook, tu as les mêmes événements mais pour toutes les feuilles.

Tu pourra éventuellement faire un test sur le paramètre Sh au cas où toutes les feuilles du classeur ne sont pas concernées

oui ça il font les même chose Worksheet_BeforeDoubleClick et Worksheet_Change mais au niveau il classeur! si c'est méthode ne concerne pas toute les feuille il faut le géré dans la macro

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.name<>"toto" and Not ThisWorkbook.validate(Target) Then Target.value = Null End If end sub

---

parfait, ça fonctionne.

Je n'avais pas vu le "sheet' dans le nom de methode.
ça résous mon problème.

Merci