Autofilter sur plusieurs feuilles

[pascals]

Bonjour à tous

je suis confronté à un problème et j'avoue que je n'arrive pas à trouver la solution.

J'ai un fichier composer d'un certains nombres de feuilles toutes identiques. ET je souhaite mettre en place un filtre automatique sur l'ensemble des feuilles à l'exception des feuilles Z1, Z2 ET Z3

J'ai une macro qui sélectionne l'ensemble des feuiles mais lorsque j'applique le filtre automatique j'ai un message d'erreur.

Ci dessous le code :

Sub selection_feuille()
'
' selection_feuille Macro
'Selectionne l'ensemble des feuilles sauf les feuilles nommées toto, titi, tata


Dim feuille As Worksheet, t() As Variant, i As Byte
ReDim t(1 To Worksheets.Count - 3)

For Each feuille In Worksheets
If feuille.Name <> "Z1" And feuille.Name <> "Z2" And feuille.Name <> "Z3" Then i = i + 1: t(i) = feuille.Name
Next feuille
Worksheets(t).Select

'selection des celulles sur lesquelles va s'appliquer le filtre

Range("C9:F9").AutoFilter


End Sub

Merci d'avance de votre aide

 

[kjin]

Re : Autofilter sur plusieurs feuilles

Bonjour,

Dim feuille As Worksheet
For Each feuille In Worksheets
If feuille.Name <> "Z1" And feuille.Name <> "Z2" And feuille.Name <> "Z3" Then
    feuille.AutoFilterMode = False
    On Error Resume Next 's'il n'y a rien a filtrer !
    feuille.Range("C9:F9").AutoFilter
    On Error GoTo 0
End If
Next feuille

A+
kjin

 

[pascals]

Re : Autofilter sur plusieurs feuilles

Bonjour

Je me suis remis aujourd'hui sur mon problème. Merci ta solution marche à merveille. Par contre peux tu m'expliquer la ligne.

On error goto 0

Merci d'avance.

 

[kjin]

Re : Autofilter sur plusieurs feuilles

Bonsoir,

peux tu m'expliquer la ligne.
On error goto 0

touche F1 dans vbe

On Error, instruction
L'instruction On Error GoTo 0 permet de désactiver la gestion d'erreur dans la routine en cours

S'il n'y avait rien à filtrer, il y aurait erreur d'exécution....s'il n'y avait pas de gestion d'erreur
A+
kjin

 

[pascals]

Re : Autofilter sur plusieurs feuilles

Bonjour

Merci pour l'explication.

Bonne soiréee