Question sur les filtres automatiques

Modeste

XLDnaute Barbatruc

• 20 Mai 2010

• #2

Re : Question sur les filtres automatiques

Bonjour Marc et bienvenue,

Pour répondre à ta question, oui, c'est possible! ... La question subsidiaire est: "pourquoi veux-tu fermer le fichier, puis le ré-ouvrir ensuite??"
Une fois le(s) critère(s) de filtre activé(s), il suffirait d'aller dans Données --> Filtrer --> Afficher tout ... le tout sans devoir fermer le fichier.
Si tu veux activer la cellule A1, appuye sur Ctrl+Home.
Tu peux aussi "figer les volets" pour que la (les) première(s) ligne(s) reste(nt) affichée(s) en permanence.

En tout état de cause, il suffirait de fermer ton fichier sans enregistrer les modifications, pour que l'intégralité de tes données ré-apparaissent à l'ouverture.

... Ou alors, il y a quelque chose qui m'échappe?

 

Vote positif 0 Vote négatif

M

marcdelagarde

XLDnaute Nouveau

• 20 Mai 2010

• #3

Re : Question sur les filtres automatiques

Merci pour ton aide. C'est justement pour eviter à la personne qui révouvre le fichier de faire Données --> Filtrer --> Afficher tout enfait que ca se fasse automatiquement.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 20 Mai 2010

• #4

Re : Question sur les filtres automatiques

re-bonjour,

Sans grande conviction quant à l'intérêt de la chose, tu peux mettre le code suivant dans l'objet ThisWorkbook:

Code:

Private Sub Workbook_Open()
With Sheets("[B]Feuil1[/B]") '[B]A adapter à la situation[/B]
If .AutoFilterMode = True Then .AutoFilterMode = False
.[A1].AutoFilter
.[A1].Activate
End With
End Sub

... Il y a peut-être plus simple, mais ça fonctionne chez moi!

 

Vote positif 0 Vote négatif

M

marcdelagarde

XLDnaute Nouveau

• 20 Mai 2010

• #5

Re : Question sur les filtres automatiques

ca marche genial

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 20 Mai 2010

• #6

Re : Question sur les filtres automatiques

re²,

Il y a plus court ... et moins "tordu" 😱

Code:

Private Sub Workbook_Open()
With Sheets("Feuil1") 'A adapter à la situation
If .FilterMode = True Then .ShowAllData
End With
End Sub

La solution se trouvait dans les liens vers des discussions similaires en bas de cette page !!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mai 2010

• #7

Re : Question sur les filtres automatiques

Bonsoir à tous


Modeste:
j'utiliserai ta solution comme ceci plutôt
(avantage toutes les feuilles du classeur seront prises en compte)

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sh
    If .FilterMode Then .ShowAllData
End With
End Sub

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 20 Mai 2010

• #8

Re : Question sur les filtres automatiques

Salut Staple1600,

Comme quoi, il y avait non seulement moins "tordu", mais il y avait aussi plus pertinent !

Merci à toi 🙂

 

Vote positif 0 Vote négatif