Problème date VBA sur procédure évenementielle

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

Bonjour,
Et en utilisant un segment?
Pièce jointe 659901

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.

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

Citation:

---

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"?

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.

Hello,

ça sent l'IA générative cette procédure :D
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 :ptdr: mais plutôt ".Value"

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 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

---

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