clic onglet exécute macro

SSP34 · 26 Décembre 2008

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 · 26 Décembre 2008

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 · 26 Décembre 2008

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

Code:

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

Edit : bonjour françois
A+
kjin

Cousinhub · 26 Décembre 2008

Re : clic onglet exécute macro

Bonjour,

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

dans le code du ThisWorkbook :

Code:

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

et dans un module standard :

Code:

Sub macro1()
MsgBox "feuil1"
End Sub

Sub macro2()
MsgBox "feuil2"
End Sub

Sub macro3()
MsgBox "feuil3"
End Sub

SSP34 · 26 Décembre 2008

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.

clic onglet exécute macro

SSP34

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

SSP34

XLDnaute Junior

Discussions similaires