EVENEMENT VIA MACRO

titicool · 19 Décembre 2005

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 · 20 Décembre 2005

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+++

EVENEMENT VIA MACRO

titicool

XLDnaute Junior

Zon

XLDnaute Impliqué

Discussions similaires