selection de tableaux croisés dynamiques

[alexane]

Bonjour à tous
Je cherche à obtenir une variable tableau qui me permettrait de stocker l'adresse de chaque première cellule de tous mes tcd présents sur 1 feuille du classeur

qqn peut m'aider ?

(je ne connais pas d'instruction qui permettent d'atteindre chq premiere cellule d'un tcd et je ne maitrise pas très bien les variables tableaux)

Merci

 

[Pierrot93]

Re : selection de tableaux croisés dynamiques

Bonjour,

peut être déjà signaler si les réponses apportées te vont avant de crééer d'autre fil... sinon à quoi bon te répondre si tu ne lis pas les réponses...

https://www.excel-downloads.com/threads/pivottable-actif.171353/

@+

 

[alexane]

Re : selection de tableaux croisés dynamiques

Bonjour
Non l'idée n'est pas la même
Le problème c'est justement l'activecell
Je souhaite que la procédure permette de se positionner automatiquement sur la cellule active du tcd
donc il faut que cette cellule active / 1ere cellule du tcd soit automatiquement détectée
Merci

 

[Pierrot93]

Re : selection de tableaux croisés dynamiques

Re,

Je souhaite que la procédure permette de se positionner automatiquement sur la cellule active du tcd
donc il faut que cette cellule active / 1ere cellule du tcd soit automatiquement détectée

et pour quoi faire ?? en vba il est rarement utile d'effectuer des sélections...

 

[alexane]

Re : selection de tableaux croisés dynamiques

J'ai un classeur avec plusieurs tcd qui ont pour source une liste de données située sur un autre classeur

J'aurais voulu une macro qui redefinissent la source pour tous les tcd du classeur et je sais pas faire
Comme ma source est externe, je peux pas utiliser une plage nommée dynamique

J'ai regardé un peu avec l'enregistreur de macro et dans l'aide
J'ai vu que SourceData pouvait redéfinir la plage mais qu'il faut être positionné sur le tcd à actualiser et je ne veux pas être obliger de selectionner l'un après l'autre mes tcd

mais peut être il y a une autre façon d'aborder le problème
Merci

 

[Pierrot93]

Re : selection de tableaux croisés dynamiques

Re,

regarde ceci, le classeur source est ouvert, la plage de données est également sur la feuille active :

    ActiveSheet.PivotTables(1).SourceData = Range("A1").CurrentRegion.AddressLocal(ReferenceStyle:=xlR1C1, external:=True)

 

[alexane]

Re : selection de tableaux croisés dynamiques

ok
j'avais pas vu le parametre external
je suis cette piste ce soir
merci

 

[Pierrot93]

Re : selection de tableaux croisés dynamiques

Re,

si tu veux boucler sur tous les tcd d'une feuille :

Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
    pt.SourceData = Range("A1").CurrentRegion.AddressLocal(ReferenceStyle:=xlR1C1, external:=True)
End With

bon après midi
@+