supprimer les filtres sur toutes les feuilles

Le
Tendasque
Bonjour,
Cette macro permet de supprimer les filtres automatiques sur une feuille:

On Error Resume Next
ActiveSheet.ShowAllData


Je voudrais le faire pour toutes les feuilles à l'ouverture du classeur pour
être sûr que toutes les lignes sont affichées
"Thisworkbook.ShowAllData"
me plante le classeur
Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #5143611
Bonjour,

Private Sub Workbook_Open()
For Each f In ActiveWorkbook.Sheets
On Error Resume Next
f.ShowAllData
Next
End Sub

Camille

"Tendasque" %
Bonjour,
Cette macro permet de supprimer les filtres automatiques sur une feuille:

On Error Resume Next
ActiveSheet.ShowAllData


Je voudrais le faire pour toutes les feuilles à l'ouverture du classeur
pour
être sûr que toutes les lignes sont affichées
"Thisworkbook.ShowAllData"
me plante le classeur...
Merci de votre aide






Tendasque
Le #5143601
Parfait, merci beaucoup !

"Ellimac"
Bonjour,

Private Sub Workbook_Open()
For Each f In ActiveWorkbook.Sheets
On Error Resume Next
f.ShowAllData
Next
End Sub

Camille

"Tendasque" %
Bonjour,
Cette macro permet de supprimer les filtres automatiques sur une feuille:

On Error Resume Next
ActiveSheet.ShowAllData


Je voudrais le faire pour toutes les feuilles à l'ouverture du classeur
pour
être sûr que toutes les lignes sont affichées
"Thisworkbook.ShowAllData"
me plante le classeur...
Merci de votre aide










Publicité
Poster une réponse
Anonyme