Discussion :

[Scrabblouille]

Bonjour,

Je dispose d'un fichier avec beaucoup de données avec lesquelles j'ai réalisé plusieurs tableaux croisés dans divers onglets.
Je souhaite synchroniser les TCD selon des éléments saisis dans des cellules de façon à ne pas avoir à modifier individuellement chaque tableau et à permettre à des utilisateurs non initiés de le faire.

Mes macros fonctionnent correctement mais je coince sur un point particulier.

L'utilisateur saisit une date de début dans une cellule et la date de fin se positionne automatiquement au dernier jour du 13ème mois suivant.
Ces dates se reportent très bien dans mon champ de ligne comme indiqué dans l'image ci-jointe.

Ce que je n'arrive pas à faire, malgré de nombreux essais, c'est de masquer les élement antérieurs et postérieurs aux dates de début et de fin.
Dans mon code ci-dessous il n'y a aucun souci si je mets la date en dur sous la forme ">31/01/2013" par exemple mais je ne réussis pas à le faire avec mes dates de début et de fin.

Si quelqu'un(e) arrivait à me dépatouiller ce serait formidable.

Amicalement

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
43
44
45
46
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Debut As Date
Dim Fin As Date
Dim NbJours As Byte
Dim DebutFiltre As String
Dim FinFiltre As String
 
If Not (Intersect(Target, Range("C1")) Is Nothing) Then
 
    'Désactive les événement afin de ne pas reboucler lors de la mise à jour du TCD
    Application.EnableEvents = False
 
    Origine = CDate(DateSerial(2011, 10, 1))
    Debut = CDate(DateSerial(Year(Range("C1")), Month(Range("C1")), 1))
 
    If Debut < Origine Then
        MsgBox "La date saisie est antérieure au début du contrat." & vbCrLf & vbCrLf _
        & "Veuillez saisir une autre date.", vbOKOnly, "Erreur de date"
        Exit Sub
    End If
 
    NbJours = Day(DateSerial(Year(Debut) + 1, Month(Debut) + 1, 0))
    Fin = CDate(DateSerial(Year(Debut) + 1, Month(Debut), NbJours))
    Range("C2").Value = Fin + 0.9999
    Debut = CLng(Range("C1"))
    Fin = CDec(Range("C2"))
    Range("A7").Group Start:=Debut, End:=Fin, Periods:=Array(False _
        , False, False, False, True, False, True)
     DebutFiltre = "<" & Left(Range("C1"), 10)
     FinFiltre = ">" & Left(Range("C2"), 10)
 
    'Ne pas afficher dans le TCD les valeurs < DebutFiltre et > Fin Filtre
    With ActiveSheet.PivotTables("TCD_Histo_Nb_Diag").PivotFields("Années")
        .PivotItems(DebutFiltre).Visible = False 'c'est la ligne qui coince
        .PivotItems(">31/01/2013").Visible = False
    End With
 
    Columns("C:N").AutoFit
    'Réactive les événements
    Application.EnableEvents = True
Else
    Exit Sub
End If
 
End Sub