Discussion :

[zielite]

Je n'arrive pas à te joindre un fichier en message privé, je le poste donc ici.

Merci encore.

[Invité]

dans ton fichier le UsedRange retourne un plage qui n'est pas bonne!
j'ai pris le CurrentRegion !

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
Sub Zone11Lundi()
Dim TDC As New clsTdcRD
TDC.CreerTableau ActiveWorkbook, "Data!" & Sheets("Data").Range("A1").CurrentRegion.Address, "Test", "Data"
TDC.NewPivotTables "Zone", TypeFiltre
TDC.NewPivotTables "Jour", TypeFiltre
TDC.NewPivotTables "Tournee", Typeligne
TDC.NewPivotTables "Code_PDL", Typeligne
TDC.NewPivotTables "Nom_PDL", Typeligne
TDC.NewPivotTables "Article", Typeligne
TDC.NewDataField "Stock", Somme
TDC.AfficheTotal True, True
TDC.Style PivotStyleMedium9
If TDC.FiltreTypeFiltre("Zone", "11") = False Then MsgBox "Pastrouvé"
If TDC.FiltreTypeFiltre("Jour", "Lun") = False Then MsgBox "Pastrouvé"
End Sub

[zielite]

Merci rdurupt!