IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Changer la source d'une table pivot vers une autre pivot d'une autre feuille


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    190
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 190
    Points : 59
    Points
    59
    Par défaut Changer la source d'une table pivot vers une autre pivot d'une autre feuille
    Bonjour,

    J'ai sur la sheet "Feuil1" deux tables pivot (PivotTable1 et PivotTable2).
    J'ai sur la sheet "Feuil2" une troisieme table pivot (PivotTable1).

    J'aimerai avoir un code qui me permette de changer la source de la deuxieme pivot de ma premiere feuille (PivotTable2) avec celle de la deuxieme feuille (PivotTable1)

    Si les deux pivots sont sur la meme feuille, je peux utiliser ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil1").PivotTableWizard SourceType:=xlPivotTable, SourceData:="PivotTable1"
    Mais comment faire pour lier la Pivotable1 de la deuxieme feuille ??

    Merci d'avance.

    apnw7931

  2. #2
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2013
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Janvier 2013
    Messages : 23
    Points : 34
    Points
    34
    Par défaut il faut lui préciser sur quelle feuille se trouve ton tableau croisé!
    Bonjour apnw7931,

    il faut simplement lui renseigner sur quelle feuille se base ta source.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sheets("Feuil1").PivotTableWizard SourceType:=xlPivotTable,_
    'Pour utiliser le tableau croisé 1 de la feuille sur laquelle tu te trouves
    SourceData:= "PivotTable1"
    'Pour utiliser le tableau croisé 1 de la feuille "Feuil2"
    SourceData:=Sheets("Feuil2").PivotTable("PivotTable1")
    J'espère t'avoir aidé

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    190
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 190
    Points : 59
    Points
    59
    Par défaut
    Merci pour votre aide.

    Par contre, êtes-vous sur ?
    Cela ne semble pas fonctionner chez moi.

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2013
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Eure (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Tourisme - Loisirs

    Informations forums :
    Inscription : Janvier 2013
    Messages : 23
    Points : 34
    Points
    34
    Par défaut
    Bonjour apnw7931,

    Je suis pas expert en Tableaux croisés dynamiques via VBA, mais voici un tuto qui pourrai t'aider :
    VBA Pivot Table

Discussions similaires

  1. Réponses: 7
    Dernier message: 16/05/2013, 16h37
  2. Réponses: 5
    Dernier message: 28/11/2011, 15h47
  3. Réponses: 3
    Dernier message: 15/10/2010, 12h18
  4. Réponses: 3
    Dernier message: 05/02/2010, 04h45
  5. Réponses: 1
    Dernier message: 26/03/2008, 23h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo