Discussion :

[QuestVba]

Bonjour,

Je cherche à copier un code qui se trouve dans la feuille 1

Code de départ

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    msgbox "Coucou"
End Sub

et le coller dans la feuille qu'un utilisateur veut créer. J'ai l'événement qui détecte l'ajout ainsi

Code :

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

1
2
3
Private Sub Workbook_NewSheet(ByVal Sh As Object)
   MsgBox "Oh une nouvelle feuille !"
End Sub

Est-ce possible de façon facile (à l'intérieur du fichier sans en sortir) ou faut-il passer obligatoirement par un enregistrement du module ?

[Jean-Philippe André]

Salut,

si je comprends bien la question que tu poses, non il ne serait pas nécessaire de recopier le code, vu qu'en créant une copie d'une feuille, le code VBA qui lui y est attaché reste.

[Marc-L]

Bonjour.

Sinon cela se passerait du côté de ThisWorkbook.VBProject.VBComponents …

[QuestVba]

Bonjour,

Merci pour ces réponses rapides. Mais je pense que si on fait une copie de la feuille, mon événement "Workbook_NewSheet" ne va pas s'activer. Il est possible d'avoir un événement à la copie d'une feuille ?