Filtre sur plusieurs onglets
Bonjour,
Je souhaiterai savoir comment faire pour filtrer plusieurs onglets selon un critère porté sur une colonne ?
Ce que je fais actuellement : pour chaque mois je met un filtre en colonne A et je décoche "ne pas imprimer" et je répète l'opération sur 12 mois.
Je pensais qu'avec du VBA c'était possible qui fasse soit un filtre des 12 mois d'un coups ou soit une sélection du mois à filtrer, j'ai essayé avec l'enregistreur de macro mais ça n'a rien donné de concluant.
Mon fichier est assez volumineux j'ai dû le mettre en ligne sur Cjoint.
Merci d'avance.
Bonne journée
Bonsoir,
un essai :
Sub Filtrage()
'
' LouReeD
'
' définition des variables
Dim i As Long
' on arrête la mise à jour de l'écran pour éviter le "scintillement"
Application.ScreenUpdating = False
' on boucle sur les feuilles allant de la feuille 12 (celle après la feuille "menu" et toutes celles qui sont masquées !!!) à la feuille X
' où X est le nombre total de feuille dans le classeur
For i = 12 To Worksheets.Count
Sheets(i).Activate ' on active la feuille n° i
ActiveSheet.Range("$A$1:$A$141").AutoFilter Field:=1, Criteria1:="=" ' on filtre la colonne A avec pour critère "vide" (="=")
Next i ' on passe à la feuille suivante
' on sélectionne aléatoirement la première feuille mensuelle
Sheets(12).Select
' on remet la mise à jour de l'écran
Application.ScreenUpdating = True
End Subreste à vous de créer un bouton pour appeler la macro
@ bientôt
LouReeD
Merci pour votre aide, trop fort.
j'avais bricolé cette macro et elle fonctionne aussi,
Sub Filtre_tous_les_mois()
Application.ScreenUpdating = False
Dim DerLig As Long, An
An = Array("", "Septembre", "Octobre", "Novembre", "Décembre", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout")
For i = 1 To 12
With Sheets(An(i))
DerLig = .Cells(.Rows.Count, 2).End(xlUp).Row
.AutoFilterMode = False
.Range(.[A1], .Cells(DerLig, 1)).AutoFilter 1, "<>ne pas imprimer"
End With
Next i
Application.ScreenUpdating = True
End Sub