Filtre automatique

[Lighter]

Bonjour au forum et joyeuses fêtes à tou(te)s

Je cherche à trouver le moyen de défiltrer automatiquement un fichier qui est sauvegardé avec un filtre.
Mon problème étant que ce fichier sert dans une application VBA et doit être pris dans sa totalité. Or, quand un utilisateur le sauvegarde avec un filtre il n'est pris que pour la partie filtrée.
Je pense que le mieux est que je puisse trouver un code à l'ouverture testant l'état du fichier (filtré ou non) et que dans le cas où le fichier possède un filtre, le code le supprime.
Merci d'avance pour votre aide dans la réalisation de mon problème.

 

[jeanpierre]

Re : Filtre automatique

Bonjour Lighter,

Vite fait avec l'enregistreur de macro.

Private Sub Workbook_Open()
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
End Sub

A placer dans ThisWorkbook.

Alt F11, Affichage Explorateur de projet, tu développes les petits plus (au besoin) sur ton fichier. Doucle clic sur Thisworkbook et tu colles.

Bonne journée.

Jean-Pierre

 

[jeanpierre]

Re : Filtre automatique

Re,

Il est même préférable de désactiver à la fermeture, ainsi, si le fichier est ouvert sans activer les macros la liste sera défiltrée.

Donc, à la place et toujours dans ThisWorkbook :

Private Sub Workbook_beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
End Sub

Jean-Pierre

 

[Staple1600]

Re : Filtre automatique

Bonjour Lighter, jeanpierre

Une autre possibilité

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).AutoFilterMode = False
End Sub

 

[Lighter]

Re : Filtre automatique

Jean Pierre , JM

Merci infiniment m'avoir apporter la solution. C'est super.
Bonne fin d'année à vous.
Bien cordialement
Lighter