selection de tableaux croisés dynamiques

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2011

• #2

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/

@+

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 14 Octobre 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2011

• #4

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

Cliquez pour agrandir...

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

 

Dernière édition: 14 Octobre 2011

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 14 Octobre 2011

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2011

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

A

alexane

XLDnaute Occasionnel

• 14 Octobre 2011

• #7

Re : selection de tableaux croisés dynamiques

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2011

• #8

Re : selection de tableaux croisés dynamiques

Re,

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

Code:

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
@+

 

Vote positif 0 Vote négatif