Bonjour à tous,
Je viens vers vous car une difficulté se pose à moi. En effet, je me sert d’une macro pour crée un TCD, mais je souhaiterais que la destination de mon TCD ne soit pas sur une nouvelle feuille, mais au même endroit que ma source de données (TCD frais annexes), cependant même si je mets :
cela ne marche pas.
Mon code actuel est :
L’un d’entre vous pourrez t’il m’aider ?
Je viens vers vous car une difficulté se pose à moi. En effet, je me sert d’une macro pour crée un TCD, mais je souhaiterais que la destination de mon TCD ne soit pas sur une nouvelle feuille, mais au même endroit que ma source de données (TCD frais annexes), cependant même si je mets :
Code:
TableDestination:="TCD frais annexes"Mon code actuel est :
Code:
Private Sub CommandButton22_Click()
Dim tableau()
i = 0
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "TCD frais annexes"
Sheets("Base").Select
Range("A1:AJ1").Select
Selection.Copy
Sheets("TCD frais annexes").Select
Range("A59").Select
ActiveSheet.Paste
If TextBox800.Text <> "" And TextBox801.Text <> "" Then
With Sheets("Base")
For Each c In .Range("N2:N" & .Range("N65000").End(xlUp).Row)
If c.Value >= CDate(TextBox800.Text) And c.Value <= CDate(TextBox801.Text) Then
ReDim Preserve tableau(i + 1)
tableau(i) = .Range("a" & c.Row & ":" & "AJ" & c.Row).Value
i = i + 1 ' espace entre les lignes copiées
End If
Next c
End With
With Sheets("TCD frais annexes")
.Range("A60:AJ65536").Clear
For i = 0 To UBound(tableau)
.Range("A" & i + 60 & ":AJ" & i + 60) = tableau(i)
Next i
End With
End If
Sheets("TCD frais annexes").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"TCD frais annexes!R59C1:R65536C36", Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Coût salarial ind."), _
"Somme de Coût salarial ind.", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Coût hébergement ind.") _
, "Somme de Coût hébergement ind.", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Coût transport ind."), _
"Somme de Coût transport ind.", xlSum
End Sub