Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtre automatique

  • Initiateur de la discussion Initiateur de la discussion Lighter
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

Lighter

Guest
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.
 

Pièces jointes

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
16
Affichages
507
Réponses
16
Affichages
1 K
Réponses
9
Affichages
301
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…