Discussion :

[Marilo44]

Bonjour,

Je souhaite filtrer un TCD grâce à une procédure évènementielle sur changement d'une cellule d'une feuille.
Plus précisément, lorsque je renseigne une date dans la cellule D3, je souhaite que cette date soit reportée dans le filtre de mon TCD.
J'ai conscience qu'il s'agit d'un problème de format. J'ai testé plusieurs conversions : Cdate, CStr, Format(date, "dd/mm/yyyy") et aussi à l'américaine "m/d/yyyy" sans succès.

Je vous mets le fichier en PJ. Le code est contenu dans la feuille TCD.

Merci d'avance pour votre aide

[mapeh]

Bonjour,
Et en utilisant un segment?

[Marilo44]

L'idée c'est que la cellule en jaune contienne une formule qui va chercher une date calculée dans un autre tableau.
C'est la raison pour laquelle je n'utilise pas de segment dans cette feuille.

[mapeh]

Re-,
Donc, l'énoncé du problème était erroné....

Je souhaite filtrer un TCD grâce à une procédure évènementielle sur changement d'une cellule d'une feuille.
Plus précisément, lorsque je renseigne une date dans la cellule D3, je souhaite que cette date soit reportée dans le filtre de mon TCD.

Tu ne modifies aucunement cette cellule D3.
Et la procédure événementielle n'est donc plus un "Change", mais un "Calculate"?

[Marilo44]

Re,
Oui, au départ, j’ai testé avec Calculate.
Mon problème n’est pas lié à l’événement mais au passage de la date dans le filtre du TCD. Un problème de format pour lequel j’ai testé plusieurs options, comme je l’explique dans mon premier message.
Dans le fichier joint, j’ai mis un exemple avec un événement sur Change pour des tests plus simples, je modifie manuellement la cellule D3.
Merci pour votre aide à tous.

[Nain porte koi]

Hello,

ça sent l'IA générative cette procédure
et comme souvent (pour ne pas dire autre chose) c'est plein de concetés

ça n'est certainement pas avec la propriété ".Name" que vous allez récupérer la valeur qui est dans le champ mais plutôt ".Value"

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
47
48
49
50
51
52
53
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TCD As PivotTable       'TCD à modifier
    Dim FILTRE As PivotField    'Champ de filtre à modifier
    Dim ValeurFiltre As String  'Valeur filtre de la cellule D3
    Dim Item As PivotItem
 
     'Définir la feuille contenant le TCD
    Set FEUILLE = Sheets("TCD") 'Nom de la feuille
 
     'Vérifier si la cellule modifiée est celle qui déclenche le filtre (ici, D3)
    If Not Intersect(Target, FEUILLE.Range("D3")) Is Nothing Then
 
        If Not IsDate(Target.Value) Then
 
            MsgBox "La valeur dans la cellule D3 n'est pas une date valide.", vbExclamation
            Application.EnableEvents = False
            FILTRE.ClearAllFilters
            Application.EnableEvents = True
            Exit Sub ' pas propre mais simple
 
        End If
 
        ' Formate la date comme attendue
        ValeurFiltre = Format(Target.Value, "m/d/yyyy")
 
        'Définir le TCD et le champ de FILTRE
        Set TCD = FEUILLE.PivotTables("TCD_VENDEUR") 'Nom du TCD
        Set FILTRE = TCD.PivotFields("Date Facture")     'Nom du champ mis dans la zone filtre
 
         'Vérifier si la valeur existe dans le champ de filtre
        For Each Item In FILTRE.PivotItems
 
            If Item.Value = ValeurFiltre Then
 
                ' applique le filtre et sort de la procédure
                Application.EnableEvents = False
                FILTRE.CurrentPage = ValeurFiltre
                Application.EnableEvents = True
                Exit Sub ' pas propre mais simple
 
            End If
 
        Next Item
 
        MsgBox "La valeur dans la cellule D3 n'existe pas dans la liste.", vbExclamation
 
        'Effacer le filtre actuel
        Application.EnableEvents = False
        FILTRE.ClearAllFilters
        Application.EnableEvents = True
 
    End If
End Sub

[Marilo44]

Merci Nain porte koi
Oui démasqué, j'ai fait appel à l'IA...
Merci pour la précision, cela fonctionne très bien !
Marilo