Macro Filtre Date avec ligne vide
Bonjour,
J'ai créer une Macro avec un bouton pour filtrer mes lignes suivant la date,
Mes je voudrais que les ligne vide apparaisse.
Ci dessous le code de ma Macro :
Sub FiltreMoisFiche()
mois = [D19]: an = [E19]
moisLib = Format(DateSerial(an, mois, 1), "yyyy/mmmm")
dateFin = mois & "/" & Day((DateSerial(an, mois + 1, 1) - 1)) & "/" & an
ActiveSheet.Range("$A$21:$W$5454").AutoFilter Field:=2, Criteria1:=Array(moisLib, "Total"), _
Operator:=xlFilterValues, Criteria2:=Array(1, dateFin)
End Sub
Merci de votre aide
Re-
une exemple
le critère pour une cellule vide est '=, ne pas oublier l'apostrophe devant égal !
Je préfère toujours mettre les paramètres dans une feuille et avoir des macros génériques.
Michel né 59126 !!