[EXCEL VBA] creé tableau croisé dynamique avec code

Question

salut pour tous
j'ai crée un tableau dynamique croisé avec ce code 
[b]Sub tableau_dinamique_croisé()
    Sheets("feuil1").Select
    Range("a1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "feuil1!R1C1:R136C10").CreatePivotTable TableDestination:="feuil2!R1C1", _
   TableName:="Tableau croisé dynamique1", _
 DefaultVersion:=xlPivotTableVersion12
  ActiveWorkbook.ShowPivotTableFieldList = True
End Sub/b
et mon problème ce que la limite de mon tableau est variante
j'ai essayer avec cette fonction  
Range("A1").CurrentRegion.Select  
mais ça n'a pas marché
Aidez moi SVP et merci beaucoup

cs_Jack · Answer

Salut

Pas clair.
"La limite de ton tableau est variante"
Qu'appelles-tu "la limite" ?
Celle des données source ou celle que le tableau représente ?
Et que veux-tu y mettre ?
Que veux-tu faire ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

c148270 · Answer

Bonjour
Voici pour un nombre de lignes variables et un positionnement variable.
A toi d'adapter.

            WkbClasseur.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
                "Perma1!R1C1:R" & nblignesa1 + 1 & "C6").CreatePivotTable TableDestination:=.Range("A" & nblignes + 1 & ""), _
                TableName:="Tableau croisé dynamique2"

Bonne journée

[EXCEL VBA] creé tableau croisé dynamique avec code

2 réponses

Votre réponse

Discussions similaires