Sélection d'items dans TCD
Bonjour,
Le code suivant me permet d'ouvrir un UserForm qui me permet de sélectionner :
- le nom d'un salarié,
- une date de début
- une date de fin
La code modifie un TCD qui affiche les données sélectionnées dans le UserForm.
Tout fonctionne bien sauf que la première date de mes données n'est jamais sélectionnée.
Exemple : si je veux afficher les saisies journalières pour la période du 12/02/2015 au 15/02/2015 de ma table de données, je code me sélectionne du 12/02/2015 au 15/02/2015. Il exclue Systématiquement la première date.
Avez-vous une piste de travail à me donner?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Sheets("Graphique Salarié").Select
ActiveWorkbook.RefreshAll
'ActiveSheet.PivotTables("Tableau croisé dynamique3").ManualUpdate = True
'ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date").ShowAllItems = True
DD = Format(Me.DTPicker1, "dd/mm/yyyy")
DF = Format(Me.DTPicker2, "dd/mm/yyyy")
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
ShowAllItems = False
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Date")
ActiveSheet.PivotTables("Tableau croisé dynamique3").NullString = "(Blank)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").DisplayNullString = False
For Each Pi In .PivotItems
Pi.Name = Pi.SourceNameStandard
MsgBox Pi.Name
If Format(Pi.Name, "dd/mm/yyyy") >= DD And Format(Pi.Name, "dd/mm/yyyy") <= DF Then .PivotItems(Pi.Name).Visible = True Else .PivotItems(Pi.Name).Visible = False
Next Pi
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Salarié"). _
CurrentPage = nomsal
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").ClearAllFilters
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Tâches").PivotFilters.Add Type:=xlCaptionDoesNotEqual, Value1:="(vide)"
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
Range("C10").Activate
MenuGraphique.Hide
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub |