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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager