On Error Resume Next For i = 1 To Sheets.Count With Sheets(i) .Select .ShowAllData End With
a+ rural thierry
"Aurélien29" a écrit dans le message de news:
Bonjour a tous,
J'ai un filtre sur plusieurs colonnes. Je voudrais que, à la fermeture du classeur, les filtres soient tous mis à "(tous)".
Je sais que je dois m'être ma maccro dans Workbook_BeforeClose mais pour les filtres j'ai essayé tout plein de choses et rien à faire. :-@
Merci d'avance pour ceux qui vont essayer de m'aider et Gros bisous pour ceux qui vont réussir
-- Aurélien29
Cage à lapins
Bonjour,
Voici une solution si on a des filtres sur les 4 premières colonnes de la feuille 1 : Private Sub Workbook_BeforeClose(Cancel As Boolean) Worksheets(1).Activate Selection.AutoFilter field:=1 Selection.AutoFilter field:=2 Selection.AutoFilter field:=3 Selection.AutoFilter field:=4 End Sub Attention la macro plante si l'une des quatre colonnes n'a pas de filtre.
"Aurélien29" wrote:
Bonjour a tous,
J'ai un filtre sur plusieurs colonnes. Je voudrais que, à la fermeture du classeur, les filtres soient tous mis à "(tous)".
Je sais que je dois m'être ma maccro dans Workbook_BeforeClose mais pour les filtres j'ai essayé tout plein de choses et rien à faire. :-@
Merci d'avance pour ceux qui vont essayer de m'aider et Gros bisous pour ceux qui vont réussir
-- Aurélien29
Bonjour,
Voici une solution si on a des filtres sur les 4 premières colonnes de la
feuille 1 :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets(1).Activate
Selection.AutoFilter field:=1
Selection.AutoFilter field:=2
Selection.AutoFilter field:=3
Selection.AutoFilter field:=4
End Sub
Attention la macro plante si l'une des quatre colonnes n'a pas de filtre.
"Aurélien29" wrote:
Bonjour a tous,
J'ai un filtre sur plusieurs colonnes.
Je voudrais que, à la fermeture du classeur, les filtres soient tous
mis à "(tous)".
Je sais que je dois m'être ma maccro dans Workbook_BeforeClose mais
pour les filtres j'ai essayé tout plein de choses et rien à faire. :-@
Merci d'avance pour ceux qui vont essayer de m'aider et Gros bisous
pour ceux qui vont réussir
Voici une solution si on a des filtres sur les 4 premières colonnes de la feuille 1 : Private Sub Workbook_BeforeClose(Cancel As Boolean) Worksheets(1).Activate Selection.AutoFilter field:=1 Selection.AutoFilter field:=2 Selection.AutoFilter field:=3 Selection.AutoFilter field:=4 End Sub Attention la macro plante si l'une des quatre colonnes n'a pas de filtre.
"Aurélien29" wrote:
Bonjour a tous,
J'ai un filtre sur plusieurs colonnes. Je voudrais que, à la fermeture du classeur, les filtres soient tous mis à "(tous)".
Je sais que je dois m'être ma maccro dans Workbook_BeforeClose mais pour les filtres j'ai essayé tout plein de choses et rien à faire. :-@
Merci d'avance pour ceux qui vont essayer de m'aider et Gros bisous pour ceux qui vont réussir
-- Aurélien29
Aurélien29
ru-th a bien travaillé:
Salut
sans chercher à tendre vers le beau !
On Error Resume Next For i = 1 To Sheets.Count With Sheets(i) .Select .ShowAllData End With
a+ rural thierry
"Aurélien29" a écrit dans le message de news:
Merci Thierry,
Ta solution est parfaite!! :-)
NB: Le .Select n'est pas utile et je travaille sur une seule feuille (j'ai pas du le préciser) donc la boucle for n'est pas utile.
Merci encore!!!!!!
-- Aurélien29
ru-th a bien travaillé:
Salut
sans chercher à tendre vers le beau !
On Error Resume Next
For i = 1 To Sheets.Count
With Sheets(i)
.Select
.ShowAllData
End With
a+
rural thierry
"Aurélien29" <aurelienporcheray@hotmail.com> a écrit dans le message de
news: mn.8ba67d522f9744aa.0@hotmail.com...
Merci Thierry,
Ta solution est parfaite!! :-)
NB: Le .Select n'est pas utile et je travaille sur une seule feuille
(j'ai pas du le préciser) donc la boucle for n'est pas utile.
