[XL-2003] TCD avec des variables [Résolu]

[facteur]

Bonjour,
je souhaite créer un TCD issu d'un tableau dont les lignes et les colonnes varient en permanence.
Bien que j'ai crée des variable, mon tableau bug.

Le code bug à la création du TCD
J'ai retourné le problème dans tous les sens mais impossible de trouver la source du problème.
Un coup de main serait le bienvenu..

merci

Voici le début code :

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
Sub client()
 
 
Rows("1:3").Select ' selection des 3 premières lignes
Selection.Delete Shift:=xlUp 'suppression de ces 3 premières lignes
 
'supprimer la colonne A
Columns("A:A").Delete Shift:=xlToLeft
 
'suppression de la derniere colonne
With Range("A1").CurrentRegion.Columns(Range("A1").CurrentRegion.Columns.Count)
.Select
.Delete
 End With
 
Range("A1").Value = "code client"
Range("B1").Value = "nom client"
Range("C1").Value = "identifiant colis"
 
 
 
'création du TCD
 
Dim lastrow As Long
Dim dercol As Long
lastrow = Range("A1").End(xlDown).Row 'derniere ligne non vide du tableau
dercol = Range("A1").End(xlToRight).Column 'derniere colonne non vide du tableau
 
Range("A1").Select
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'PJ Trafic par client'!R1C1:R" & lastrow & dercol).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
 
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ' le curseur se place sur la cellule "A1"
ActiveSheet.Cells(3, 1).Select 'selection de la cellule "A1"
 
 
End Sub

J'oubliais une information,
si dans la ligne 32

Code :

 "'PJ Trafic par client'!R1C1:R" & lastrow & dercol).CreatePivotTable TableDestination:="", _

je remplace la variable dercol par un nombre fixe de colonne ( par expemple "C9").La macro fonctionne.
Mais j'aimerais une variable et nom un nombre fixe.

[gFZT82]

Bonjour,

Peut-être avec

Code :

"'PJ Trafic par client'!R1C1:R" & lastrow & "C" & dercol).CreatePivotTable TableDestination:="", _

Cordialement.

[facteur]

merci gFZT82
Tout fonctionne
je peux continuer mon exploration..
Bon week end a toi