Comment lancer une macro en quittant un onglet ?

[emarchad]

Bonjour,

Je souhaite exécuter automatiquement une macro dès que l'utilisateur change ou quitte un onglet dans un classeur excel : comment faire ?

Comment lancer également cette macro dès qu'un filtre est activé ?

Merci d'avance pour vos réponses

 

[Robert]

Bonjour Emarchad, bonjour le forum,

Pour lancer une macro en quittant un onglet tu as la macro événementielle Deactivate à placer dans VBE dans l'onglet correspondant. Exemple :

Private Sub Worksheet_Deactivate()
MsgBox 'coucou' 'remplace par le code de ta macro
End Sub

Pour la lancer à partir d'un filtre je ne sais pas...

 

[emarchad]

merci beaucoup pour cette première réponse

 

[emarchad]

J'ai cependant un problème qui est le suivant :
c'est que la macro exécutée tourne sans arrêt :
quel est le problème

Voilà ma macro deactivate dans la partie Worksheet de mon onglet :

Private Sub Worksheet_Deactivate()
Application.Run ''synthese-evaluation-tendances.xls'!copie_vers_data'
End Sub

et voilà la macro exécutée :

Sub copie_vers_data()
'
' copie_vers_data Macro
' Sheets('R_Stat_evaluation_export').Select
Columns('A:S').Select
Selection.Copy
Sheets('DATA').Select
Columns('A:S').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Dan]

Bonjour,

Fais ceci :

Macro à placer dans la WORKSHEET de ton onglet :

Private Sub Worksheet_Deactivate()
Call copie_vers_data
End Sub

Macro à placer dans un module :

Sub copie_vers_data()
Application.ScreenUpdating = False
Sheets('R_Stat_evaluation_export').Activate
Columns('A').Copy
With Sheets('DATA')
    .Columns('A').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub

Bon travail

😉