EVENEMENT VIA MACRO

[titicool]

Bonjour excelliennes et excelliens,
Comment allez-vous?
Bien j'espère.

J'ai développé une macro qui archives des données provenant de fichiers fermés.
Cette macro crée un nouveau fichier avec une nouvelle feuille.
J'aimerais qu'un événement SelectionChange soit activer via ma macro.
Mon événement fonctionne très bien lorsque je la crée dans une feuille manuellement mais je ne vois pas comment créer cet événement via macro et l'aide de vba ne m'apporte pas les infos.

Quelqu'un peut-il me lancer dans la bonne voie?

Merci d'avance.

Titicool

 

[Zon]

Salut,

pour créer une code évènementiel par exemple(en espèrant que cela passe sinon courielles moi:

Sub Princ()
Dim Ch$
Ch = 'MsgBox ''Salut XLD'''
AjouterProcEven ThisWorkbook, Sheets(1).CodeName, 'Selectionchange', 'Worksheet', Ch
End Sub


Sub AjouterProcEven(C As Workbook, NomModule$, Evenement$, Objet$, Code$)
With C.VBProject.VBComponents(NomModule).CodeModule
.InsertLines .CreateEventProc(Evenement, Objet) + 1, Code
End With
End Sub

A+++