Lancer procédure sur activation de feuilles

[m@tix]

Bonjour,

J'ai une centaine de feuilles graphiques dans un classeur Excel, et j'aimerais lancer une procédure à chaque fois qu'on va les activer, et en lancer une autre lorsqu'elles sont désactivées (ou quand une autre est activée à la place de la première en fait). Plutôt que de l'écrire directement dans chacune des feuilles, est-ce possible de faire une condition en utilisant Chart_Activate() ?

Merci d'avance.

 

[Guest]

Re : Lancer procédure sur activation de feuilles

Bonjour m@tix

Dans le module de code ThisWorkBook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If TypeOf Sh Is Chart Then
        Macro1
    End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If TypeOf Sh Is Chart Then
        Macro2"
    End If
End Sub

A+

[Edit]Bonjour Pierrot🙂
​

 

[Pierrot93]

Re : Lancer procédure sur activation de feuilles

Bonjour M@tix, Hasco🙂

un peu dans le même esprit...

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Type = 3 Then
    'ton code
End If
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Type = 3 Then
    'ton code
End If
End Sub

bonne journée
@+

 

[m@tix]

Re : Lancer procédure sur activation de feuilles

C'est parfait, précisément ce que je voulais, un grand merci à tous les deux !

Bonne journée ! 🙂

 

[m@tix]

Re : Lancer procédure sur activation de feuilles

Euh... Finalement ça ne marche pas si bien que ça, il y a un petit souci.

En mettant votre code, à l'ouverture du classeur, lorsque je sélectionne une première feuille, la procédure (mon "code" ou mes "macros" comme vous l'avez noté) ne se lance pas. Ca fonctionne uniquement à partir de la seconde feuille sélectionnée..

Je pense savoir d'où vient le problème, mais je ne sais pas s'il est résolvable. Sur chacune de mes feuilles graphiques j'ai placé un code débutant par Private Sub Chart_Activate(). En fait, ça plante parce que ce code là semble être exécuté avant le code que vous m'avez fait placer dans ThisWorkbook. Ca ne planterait pas s'il était exécuté après.. jouable ?

 

[Paritec]

Re : Lancer procédure sur activation de feuilles

bonjour Hasco🙂 Pierrot🙂 matix,
oui tu rajoutes une conditions dans ton Private Sub Chart_Activate(). et cela marchera
a+
Papou🙂

 

[Pierrot93]

Re : Lancer procédure sur activation de feuilles

Re,
bonjour Papou🙂

A noter l'événement "Worksheet_activate" ne se déclenche pas à l'ouverture du classeur... je sais pas si tu parles bien de ce cas...

bon après midi
@+

 

[Guest]

Re : Lancer procédure sur activation de feuilles

Bonjour,

Papou🙂
Pierrot🙂

@m@tix: tout dépend de ce que tu veux faire et ce que font tes macros. Il faut nous en dire plus pour comprendre exactement ton problème.

Soit tu veux les même macros pour toutes tes feuilles graphique et à ce moment tu gère tout dans ThisWorkbook, soit des macros individuelle à chaque graphique et tu gère dans Chart_Activate de chaque feuille graphique.

A+

 

[m@tix]

Re : Lancer procédure sur activation de feuilles

Re,

Les macros pour chaque feuille sont assez proches, mais tout de même différentes, je ne peux donc pas gérer cela dans ThisWorkbook.
En fait, mes feuilles sont protégées par une procédure, et le code présent sur les dites feuilles nécessite de sortir cette protection. Bien entendu, je peux lancer ma procédure de "déprotection" dans chaque feuille, mais vu qu'il y en a une centaine, cela aurait été moins fastidieux si j'avais pu le gérer d'un coup dans ThisWorkbook... Pas possible apparemment ?

Paritec, de quelle condition tu parles ?

 

[Pierrot93]

Re : Lancer procédure sur activation de feuilles

Re,

pour protéger toutes tes feuilles et autoriser l'exécution du code sans avoir à déprotéger, proteger les feuilles par le code en utilisant l'argument "userinterfaceonly", code ci-dessous à placer dans le module "thisworkbok" :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Object
For Each ws In Sheets
    ws.Protect "toto", userinterfaceonly:=True
Next ws
End Sub

bon, perso jamais tester sur feuille graph et pas la matière sous le coude pour le faire...

bon après midi
@+

 

[m@tix]

Re : Lancer procédure sur activation de feuilles

Excellent, tout fonctionne pour le mieux à présent ! Je ne connaissais pas cette propriété userinterfaceonly, très pratique du coup !

Encore une fois, merci beaucoup Pierrot ! 🙂

 

[Guest]

Re : Lancer procédure sur activation de feuilles

Re,

M@tix: tout ceci montre à quel point il est important de délivrer le maximum d'informations lorsqu'on rédige sa demande.

A+

 

[m@tix]

Re : Lancer procédure sur activation de feuilles

En effet Hasco, je tâcherai de m'en souvenir !

Bonne aprem.