Rafraichir filtre automatiquement en activant une feuille
Fermé
Mrauth
Messages postés
1
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
4 août 2016
-
4 août 2016 à 15:08
via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 - 4 août 2016 à 15:44
via55 Messages postés 14506 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 décembre 2024 - 4 août 2016 à 15:44
A voir également:
- Excel actualiser filtre automatique
- Liste déroulante excel - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Si et excel - Guide
- Message automatique thunderbird - Guide
- Word et excel gratuit - Guide
1 réponse
via55
Messages postés
14506
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
27 décembre 2024
2 738
4 août 2016 à 15:44
4 août 2016 à 15:44
Bonjour
Utilises l'enregistreur de macro pour obtenir la macro de ton filtre :
En étant placé dans ta feuille dans le ruban tu vas dans Developpeur et Enregistrer une macro puis tu effectue manuellement ton filtre et tu arrêtes l'enregistrement
Ensuite avec ALT+F11 tu ouvres l'éditeur VBA et dans le Module 1 tu dois trouvé ta macro enregistrée, quelque chose comme ceci :
Ensuite pour faire appliquer le filtre à chaque ouverture du fichier tu copies les lignes de ta macro
dans l'arborescence à gauche tu double clic sur This workbook puis à la place de Général tu selectionnes Workbook, tu as alors affiché :
Tu colles tes lignes de macro à l'intérieur de cette Sub puis tu remplaces la ActiveSheet (feuille active) par Sheets(le nom de ta feuille entre "")
Au final tu as quelque chose comme :
Cdlmnt
Via
Utilises l'enregistreur de macro pour obtenir la macro de ton filtre :
En étant placé dans ta feuille dans le ruban tu vas dans Developpeur et Enregistrer une macro puis tu effectue manuellement ton filtre et tu arrêtes l'enregistrement
Ensuite avec ALT+F11 tu ouvres l'éditeur VBA et dans le Module 1 tu dois trouvé ta macro enregistrée, quelque chose comme ceci :
Sub Macro1() ActiveSheet.Range("$A$7:$GD$34").AutoFilter Field:=2, Criteria1:="F" End Sub
Ensuite pour faire appliquer le filtre à chaque ouverture du fichier tu copies les lignes de ta macro
dans l'arborescence à gauche tu double clic sur This workbook puis à la place de Général tu selectionnes Workbook, tu as alors affiché :
Private Sub Workbook_Open() End Sub
Tu colles tes lignes de macro à l'intérieur de cette Sub puis tu remplaces la ActiveSheet (feuille active) par Sheets(le nom de ta feuille entre "")
Au final tu as quelque chose comme :
Private Sub Workbook_Open() Sheets("Feuil1").Range("$A$7:$GD$34").AutoFilter Field:=2, Criteria1:="F" End Sub
Cdlmnt
Via