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 :

Problème Actualisation TCD


Sujet :

Macros et VBA Excel

  1. #1
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    décembre 2012
    Messages
    329
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : décembre 2012
    Messages : 329
    Points : 245
    Points
    245
    Par défaut Problème Actualisation TCD
    Bonjour,

    j'aimerais cocher automatiquement tous les champs de mon tableau de croisé dynamique.

    Pour une raison que j'ignore, les codes ci-dessous ne fonctionnent pas. Ce que je veux faire, c'est d'abord de sélectionner tous les champs et d'en décocher certains.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
     
     
     For Each Sh In Tcd
     
            With Sh
     
                    'Set P = Nothing: Set P = .Cells.Find(D_Arr, , xlValues, xlWhole)
     
                    'If P Is Nothing Then
                            With .PivotTables("TCD_Triangle")
                                .RefreshTable
                                .PivotFields("Année surv").ShowAllItems = True 'ça ne fonctionne pas
                                .PivotFields("Année surv").CurrentPage = "(All)" 'donc j'ai essayé ça
     
                                .PivotFields("Année surv").PivotItems("" & Year(Now())).Visible = True
     
                                 .PivotFields("MOIS_CPTABLE").CurrentPage = "(All)"
                                '.PivotFields("MOIS_CPTABLE").EnableMultiplePageItems = True
                               '.PivotFields("MOIS_CPTABLE").EnableMultiplePageItems = False
                               .PivotFields("MOIS_CPTABLE").ShowAllItems = True
     
                                .PivotFields("MOIS_CPTABLE").PivotItems("" & D_arr_s).Visible = False
                                .PivotFields("MOIS_CPTABLE").PivotItems("9999/01").Visible = False
                                .PivotCache.Refresh
     
                            End With
                    'Else
                       ' MsgBox "LE TCD de l'onglet " & .Name & " a été correctement mis à jour"
                    'End If
     
            End With
     
     
        Next
    Auriez-vous une solution svp ?

    Par avance, je vous remercie pour votre aide.
    Lorsque vous avez obtenu une réponse satisfaisante à votre discussion, N'oubliez pas de cliquer sur

    L'erreur n'annule pas la valeur de l'effort accompli.

  2. #2
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    décembre 2012
    Messages
    329
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : décembre 2012
    Messages : 329
    Points : 245
    Points
    245
    Par défaut
    Rebonjour,

    Il n'y a personne pour m'aider ?

    Il n'y a pas une méthode qu'on peut directement associer à Pivotfields ou bien un moyen d'afficher tous les champs sans devoir les parcourir ?

    merci
    Lorsque vous avez obtenu une réponse satisfaisante à votre discussion, N'oubliez pas de cliquer sur

    L'erreur n'annule pas la valeur de l'effort accompli.

  3. #3
    Membre actif
    Homme Profil pro
    Étudiant
    Inscrit en
    décembre 2012
    Messages
    329
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : décembre 2012
    Messages : 329
    Points : 245
    Points
    245
    Par défaut
    Bonjour,

    Toujours pas d'aide ? Aucune ? Si c'est impossible, j'aimerais au moins le savoir. Ou bien me dire ce qui est envisageable.

    Enfin, je vous remercie pour votre retour.
    Lorsque vous avez obtenu une réponse satisfaisante à votre discussion, N'oubliez pas de cliquer sur

    L'erreur n'annule pas la valeur de l'effort accompli.

  4. #4
    Expert confirmé
    Homme Profil pro
    Responsable des études
    Inscrit en
    juillet 2014
    Messages
    2 477
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Aude (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Responsable des études
    Secteur : Santé

    Informations forums :
    Inscription : juillet 2014
    Messages : 2 477
    Points : 5 353
    Points
    5 353
    Par défaut
    Bonjour,
    Citation Envoyé par aziz1015 Voir le message
    Toujours pas d'aide ?
    Un peu de patience peut-être ? c'est le deuxieme up que tu fais en 3 jours ...
    On est en périodes de vacances, ce pas la période où il y a le plus de fréquentation sur le forum

    Un peu de remise en question aussi ?
    Tu titres sur un problème d'actualisation de TCD, mais en fait ta question porte sur la sélection de tous les champs ce qui est différent et en plus en lisant attentivement ton code j'ai l'impression que ce n'est pas tous les champs que tu souhaite afficher mais tous les items d'un champ
    Une demande claire ça aide pour avoir une réponse rapide

    un exemple qui boucle sur tous les items d'un champ pour les rendre visible
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim pvtI As PivotItem
    For Each pvtI In Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotFields("Champ1").PivotItems
       pvtI.Visible = True
    Next
    J'aimerais bien aller vivre en Théorie, car en Théorie tout se passe bien.

Discussions similaires

  1. [XL-2013] Problème d'actualisation TCD avec modèle de données PowerPivot
    Par Poolipooo dans le forum Excel
    Réponses: 2
    Dernier message: 06/11/2018, 00h10
  2. [XL-2010] Problème actualisation TCD
    Par dy974 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 12/04/2017, 12h01
  3. Problème Actualisation TCD
    Par aziz1015 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/10/2015, 16h40
  4. problème d'actualisation TCD
    Par zanoubya dans le forum Excel
    Réponses: 2
    Dernier message: 30/12/2011, 16h10
  5. Problème actualisation Background-image
    Par malhivertman1 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 12/01/2007, 12h25

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