Discussion :

[romzy7887]

Bonjour à tous,

Je suis un grand débutant sous VBA et je cherche à actualiser automatiquement les filtres de mon tableau sur mon onglet "Synthese".

J'ai donc créer une première macro dans le module 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub actualiser_filter()
'
' actualiser_filter Macro
'
 
Worksheets("Synthese").Select
 
    Range("C730").Select
    ActiveSheet.AutoFilter.ApplyFilter
End Sub

J'ai ensuite créé une deuxième macro dans le module 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_activate(ByVal Target As Range)
actualiser_filter
End Sub

La première macro fonctionne bien et met à jour mon filtre cependant la deuxième ne fonctionne pas du tout rien ne se passe automatiquement avez vous une idée ?

Je suis sous XL 2016 mais c'est un fichier qui a été envoyé pour un excel sous MAC qui doit etre en 2007 j'ai parfois des messages concernant la compatibilité je ne sais pas si ça cela à une importance.

Je vous remercie par avance pour votre aide.

[joe.levrai]

Bonjour,

pourquoi ne pas tout simplement mettre tes lignes de procédures directement dans la procédure évènementielle Worksheet_Activate ?

[romzy7887]

Bonjour,

Désolé j'ai également oublié de préciser que j'avais également testé cela mais que ça ne fonctionnait pas non plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_activate(ByVal Target As Range)
Worksheets("Synthese").Select
 
    Range("C730").Select
    ActiveSheet.AutoFilter.ApplyFilter
End Sub

[joe.levrai]

Ceci n'est pas la procédure évènementielle Worksheet_Activate() du module de feuille, c'est une procédure qui se prénomme comme tel, mais qui est munie d'un paramètre Target

en plus, il faut sécuriser en testant au préalable si un filtre est bien posé sur la feuille

à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Activate()
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilter.ApplyFilter
End Sub

[romzy7887]

Merci pour votre aide,

J'ai utilisé cette fonction après quelques recherches internet car c'était celle qui me semblait le plus appropriée mais j'avoue ne pas comprendre vraiment tout .

J'ai essayé votre code mais l'actualisation automatique du tableau ne s'effectue toujours pas. Je ne vois pas vraiment comment l'adapter étant donné que d'après ce que je comprend il fait le strict minimum demandé.

[Pierre Fauconnier]

Salut

Dans quel module as-tu placé la fonction donnée par Joe?

Tu dois la placer dans le module de la feuille concernée, pas dans un module standard

Bien vu Joe pour la fausse proc événementielle...

[romzy7887]

L'erreur venait d'ici je mettais ça dans un module standard.

Cela fonctionne à présent, merci beaucoup pour votre aide et votre réactivité !