naru31
XLDnaute Nouveau
Bonjour à tous,
Voilà, je suis bloqué sur mon code VBA sous Excel 2007 depuis quelques jours. Je souhaiterais effectuer un filtrage de mon TCD via des dates inscrites dans 2 TextBox sur un UserForm donnant la date d'entrée et la date de sortie entre lesquelles le filtre doit cocher que cette période et me décocher les autres.
J'ai voulu adapté un code que j'utilise déjà pour effectuer une recherche via les numéros de semaine (ce code est opérationnel) mais cela me met une Erreur d'exécution '1004' : Impossible de définir la propriété Visible de la classe PivotItem.
Je sais que les dates des TextBox sont au format en anglais donc je les écrit en anglais pour l'instant. (d'ailleur, si quelqu'un à une idée, je veux bien la solution)
Et je sais que lors de la phase de filtre, il me les recouche toutes sauf la vide.
Merci d'avance
Voilà, je suis bloqué sur mon code VBA sous Excel 2007 depuis quelques jours. Je souhaiterais effectuer un filtrage de mon TCD via des dates inscrites dans 2 TextBox sur un UserForm donnant la date d'entrée et la date de sortie entre lesquelles le filtre doit cocher que cette période et me décocher les autres.
J'ai voulu adapté un code que j'utilise déjà pour effectuer une recherche via les numéros de semaine (ce code est opérationnel) mais cela me met une Erreur d'exécution '1004' : Impossible de définir la propriété Visible de la classe PivotItem.
Je sais que les dates des TextBox sont au format en anglais donc je les écrit en anglais pour l'instant. (d'ailleur, si quelqu'un à une idée, je veux bien la solution)
Et je sais que lors de la phase de filtre, il me les recouche toutes sauf la vide.
Code:
'=========================================================
'Statements
'-------------------------------------------------------------------------------------------------
Dim graph As Object 'selection old graphic
Dim NDateF 'selection date From
Dim NDateT 'selection date To
Dim FdateF As Object 'filter TCD
'=========================================================
'=========================================================
'Boots
'-------------------------------------------------------------------------------------------------
NDateF = From_T_D.Value 'TextBox1
NDateT = To_T_D.Value 'TextBox2
'=========================================================
' initialization Table Activity
Sheets("Activity").Select
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("Table Activity").PivotFields("Date")
For Each FdateF In .PivotItems
FdateF.Visible = False
Next
' filter Week Number
On Error Resume Next
For Each FdateF In .PivotItems
If FdateF.Name > NDateF And FdateF.Name < NDateT Then FdateF.Visible = True
Next
End With
Application.ScreenUpdating = True
ActiveSheet.PivotTables("Table Activity").PivotCache.Refresh
End If
Merci d'avance