clic onglet exécute macro

[SSP34]

Bonjour les XLnautes,

J'espère que vous avez été gâtés.

Voilà mon problème :

Je souhaite exécuter une macro lorsque je clique sur un onglet.
Par exemple :

si je clique sur l'onglet "feuil1" lance macro 1
si je clique sur l'onglet "feuil2" lance macro 2 etc...


C'est quelque chose avec "before click ...". J'ai cherché sur le forum mais je n'arrive pas à transcrire sur mon exemple.

Merci à ceux qui voudront bien me répondre.

Pablo.

 

[fanfan38]

Re : clic onglet exécute macro

Bonjour
Tu as ces 3 possibilités. perso je choisirai la 1ére
Private Sub Worksheet_Activate()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

1° Quand la feuille est active
2° avant double clic
3° avant clic droit

Toutes ces macros doivent être créé sur la feuille
clic droit sur l'onglet puis visualiser le code....

A+ François

 

[kjin]

Re : clic onglet exécute macro

Bonjour,
Un click (je suppose gauche) active ta feuille donc il suffit de mettre dans le module de la feuille corespondante

Private Sub Worksheet_Activate()
Macro1 '(le nom de la macro appelée)
End Sub

Edit : bonjour françois
A+
kjin

 

[Cousinhub]

Re : clic onglet exécute macro

Bonjour,

un peu dans le même ordre d'idée que Kjin...

dans le code du ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Run "macro" & Sh.Index
End Sub

et dans un module standard :

Sub macro1()
MsgBox "feuil1"
End Sub

Sub macro2()
MsgBox "feuil2"
End Sub

Sub macro3()
MsgBox "feuil3"
End Sub

 

[SSP34]

Re : clic onglet exécute macro

Merci à tous,

Private Sub Worksheet_Activate()
Macro1 '(le nom de la macro appelée)
End Sub

Fonctionne exactement comme je le voulais.

Bonnes Fêtes.

Pablo.