Discussion :

[Daniel-Gérald]

Bonjours à tous, j’ai un userform nommé DmdExtractDon avec 2 zones de texte. Une zone nommé CmdDtDebut et l’autre nommé CmdDtFin. J’aimerais en vb filtrer entre 2 date mon tableau croisé dynamique depuis mon userform.

J'ai rien trouver dans les tutos. Si vous avez quelque chose que je peut modifié.

Merci

[mercatog]

Dans ce cas de figure, l'enregistreur de macros est souvent très utile (filtrage manuelle sur dates).
Le code généré, est certes, sera sur-dimensionné, mais l'ossature sera visible pour adaptation.

[Daniel-Gérald]

J'ai essayé ceci sur Click d'un bouton de commande de mon userform mais ca ne fonctionne pas? Pourquoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CmdTriDt_Click()
Dim Debut As String, Fin As String
 
Debut = CmdDtDebut 'zone de texte du userform 
Fin = CmdDtFin 'zone de texe du userform
With Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotFields("Date")
   .ClearLabelFilters
   .PivotFilters.Add Type:=xlDateBetween, Value1:=Debut, Value2:=Fin
End With
End Sub

Merci

[mercatog]

Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CmdTriDt_Click()
Dim Debut As Date, Fin As Date
 
Debut = cdate(CmdDtDebut) ‘zone de texte du userform 
Fin = cdate(CmdDtFin) ‘zone de texe du userform
With Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotFields("Date")
   .ClearLabelFilters
   .PivotFilters.Add Type:=xlDateBetween, Value1:=Debut, Value2:=Fin
End With
End Sub

[Daniel-Gérald]

Non, toujours le même problème. La macro bug à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PivotFilters.Add Type:=xlDateBetween, Value1:=Debut, Value2:=Fin

Merci

J'ai oublié de vous indiquez le message d'erreur. Le message d'erreur est:

Erreur d'exécution '1004'

La date tapée n'est pas valide. Réessayez.

Merci

[mercatog]

Essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CmdTriDt_Click()
Dim Debut As Long, Fin As Long
 
Debut = CLng(DateValue(Me.CmdDtDebut.Value)) 'zone de texte du userform
Fin = CLng(DateValue(Me.CmdDtFin.Value)) 'zone de texe du userform
With Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotFields("Date")
   .ClearLabelFilters
   .PivotFilters.Add Type:=xlDateBetween, Value1:=Debut, Value2:=Fin
End With
Unload Me
End Sub

[Daniel-Gérald]

Merci Mercatog, avec ton dernier poste ca ma permis de voir que mes erreurs dans le TCD.

J'ai corrigé et ca fonctionne.

Encor merci