Ajouter événement par code vba

[BEABOU]

Bonsoir,
Je souhaite créer une procédure évenementielle sur une feuille à l'aide d'une procédure vba.
il s'agit de l'événement SelectionChange.
La feuille ne porte pas toujours le même nom mais je peux le récupérer facilement.
Merci de votre aide.
Beabou.

 

[Pierrot93]

Re : Ajouter événement par code vba

Bonsoir BEABOU,

Je ne comprends pas trop bien ta question, tu dis que le nom de la feuille change mais tu veux mettre l'evenement sur cette feuille !!! sauf erreur un evenement est lié soit à UNE feuille, soit au classeur mis a part les objets bien sur.

Sinon essaie de mettre un fichier joint avec un peu plus d'explications.

Bonne soirée
@+

 

[MichelXld]

Re : Ajouter événement par code vba

bonjour

j'espere que cet exemple pourra t'aider

Cet exemple permet d'ajouter une procédure évènementielle SelectionChange dans la Feuil1 du classeur actif.

Sub creationMacro()
Dim X As Integer
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
    
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

bon apres midi
MichelXld

 

[Pierrot93]

Re : Ajouter événement par code vba

Bravo Michel, trop fort...

 

[BEABOU]

Re : Ajouter événement par code vba

Merci Michel,

C'est exactement ce que je voulais.
çà fonctionne parfaitement.

Bonne journée.
Beabou.