Ajouter événement par code vba

Pierrot93

XLDnaute Barbatruc

• 21 Septembre 2006

• #2

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 21 Septembre 2006

• #3

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.

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Septembre 2006

• #4

Re : Ajouter événement par code vba

Bravo Michel, trop fort...

 

Vote positif 0 Vote négatif

B

BEABOU

Guest

• 22 Septembre 2006

• #5

Re : Ajouter événement par code vba

Merci Michel,

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

Bonne journée.
Beabou.

 

Vote positif 0 Vote négatif