Discussion :

[Nako_lito]

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 .

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nako_lito]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[mercatog]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nako_lito]

parfait, ça fonctionne.

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

Merci