Filtrer TCD depuis userform

Version imprimable

27/02/2011, 12h55
Daniel-Gérald

Filtrer TCD depuis userform

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
27/02/2011, 16h35
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.

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

Code:

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

Peut être

Code:

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

28/02/2011, 18h55
Daniel-Gérald

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

Code:

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

Merci

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

Citation:

Erreur d'exécution '1004'

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

Merci

Essaies ceci

Code:

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

01/03/2011, 21h22
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