Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Filtrer TCD entre 2 Dates

sams96

XLDnaute Nouveau
Bonjour a tous ,
Je cherche à filtrer tous les TCD de mon classeur entre 2 dates , mais malheureusement quand j 'exécute ma macro , je tombe sur l'erreur "1004"" La méthode ADD2 de l'Objet Pivotfilters a échoué "
Est ce qu'il serait possible de m'aider à résoudre ce problème .
Je vous remercie d'avance .
VB:
Sub actiu()

Dim Sheet As Worksheet, pi As PivotTable, pd As PivotField
Dim pvI As PivotItem
For Each Sheet In ThisWorkbook.Worksheets
 For Each pi In Sheet.PivotTables
   Set pd = pi.PivotFields("date annonce")
   pd.ClearAllFilters
   pd.PivotFilters.Add2 Type:=xlDateBetween, Value1:="04/01/2014", Value2:= _
        "12/01/2019"
 
  
Next
Next
End Sub
 

Hasco

XLDnaute Barbatruc
Repose en paix
bonjour,

Je travail également sous excel 2010 et n'ai aucune méthode Add2 comme membre de l'objet PivotFilters.
Méthode Add Oui mais Add2 Non.

Chez moi cette ligne fonctionne depuis des années ou début et fin sont des dates bien entendu :
VB:
.PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Debut,"dd/mm/yyyy"), Value2:=Format(Fin,"dd/mm/yyyy")

Bonne soirée
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…