Filtre automatique

[Jean-Baptiste]

Bonjour à tous,

Abel ma transmis cette macro, mais je n'arrive pas à ce qu'elle fonctionne :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Selection.AutoFilter
End Sub

elle doit me permettre d'afficher un message d'alerte et de ne pas fermer mon fichier si un filtre automatique reste activé.

Merci pour vos réponses.

 

[Rai]

Bonjour,

A priori j'ai l'impression qu'il manque un bout à ta macro.

Je te propose la proc suivante :
(repmlace "Feuil1" par le nom de la feuille qui contient ton filtre)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
If .AutoFilterMode Then
For Each F In .AutoFilter.Filters
If F.On Then Flag% = True
Next
End If
End With
If Flag Then
MsgBox "Ya un filtre actif !", vbCritical, "Interruption"
Cancel = True
End If
End Sub

--------

Question : Ne serait-il pas plus simple de désactiver tous les filtres auto, et de laisser se fermer le fichier ensuite ?

Cordialement

Rai

 

[Jean-Baptiste]

salut Rai,

Ta question est judicieuse. si tu as une macro qui peut y répondre je suis preneur. Le message d'alerte me permet de montrer à ma secrètaire qu'elle a encore oublier de désactiver les filtres !!!

 

[Jean-Baptiste]

Je viens d'essayer ta macro. Elle fonctionne bien mes peut on simplement desactiver le filtre plutot que de l'enlever.

Merci pour ta première macro.