Discussion :

[DOMCEL]

Bonjour,

Je suis débutant et j'ai crée un tableau croisé dynamique avec vba. En fonction des fichiers le nb de lignes est variable et par conséquent ma plage dans mon code étant fixe si mon fichier à un nb de lignes inférieures il m'indique dans le résultat final des lignes vide

Ci-dessous le code

Code :

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

1
2
3
4
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
         "'Bilan Noémie'!R1C1:R6317C101").CreatePivotTable TableDestination:="", _
        TableName:="Tableau croisé dynamique1", DefaultVersion:= _
        xlPivotTableVersion10

J'ai vu sur internet la notion de lastrow ou de range("a1").currentregion mais cela ne fonctionne pas.

Merci d'avance de votre aide

[Minick]

Salut,

Essaie ceci (a voir si ca passe sous XL97):

Code :

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

1
2
3
4
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Bilan Noémie'!R1C1:R" & Sheets("Bilan Noémie").Range("A65536").End(Xlup).Row & "C101").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10