Discussion :

[antonysansh]

Bonjour à tous,

J'aimerais automatiser l'affichage et le masque des détails d'un champs dans un Tableau Croisé Dynamique.

Manuellement je passe par l'onglet données -> menu plan -> Afficher / Masquer mais j'aimerais mettre à disposition un bouton en haut de la feuille (plus rapide et plus simple pour les utilisateurs finaux).

J'ai donc écris dans une premier temps les deux codes suivants (utilisation de l'enregistreur de macro et nettoyage) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Masquer_Details()
    ThisWorkbook.Sheets("Mafeuille").PivotTables("MonTCD").PivotFields("MonChamps").ShowDetail = False
End Sub
 
Sub Afficher_Details()
    ThisWorkbook.Sheets("Mafeuille").PivotTables("MonTCD").PivotFields("MonChamps").ShowDetail = True
End Sub

Cela fonctionne très bien mais deux macro impliquent deux boutons. Or j'aimerais un seul bouton pour passer d'un état à l'autre.
J'ai donc écris le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim oPvtTbl As PivotTable, oPvtFld As PivotField
        Set oPvtTbl = ThisWorkbook.Sheets("Mafeuille").PivotTables("MonTCD")
        Set oPvtFld = oPvtTbl.PivotFields("MonChamps")
        With oPvtFld
            .ShowDetail = Not .ShowDetail
        End With
fin:
    Set oPvtTbl = Nothing
    Set oPvtFld = Nothing
End Sub

Etonnamment j'ai le message d'erreur :

Erreur d'exécution '1004':

Erreur définie pas l'application ou par l'objet

sur la ligne .ShowDetail = Not .ShowDetail
Je dois avouer ne pas comprendre cette erreur.



L'explorateur d'objets VBA m'indique ça :

Property ShowDetail As Boolean
Membre de Excel.PivotField

La propriété ShowDetail n'a donc pas l'air d'être en écriture seule.

Pendant le Débogage, la fenêtre des variables locales indique : <Erreur définie par l'application ou par l'objet> pour ShowDetail de l'objet oPvtFld


Merci d'avance pour le temps que vous passerez à m'expliquer ce comportement et m'apporter une solution.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Afficher_Details()
If Afficher_Details.caption="Masquer" then
    ThisWorkbook.Sheets("Mafeuille").PivotTables("MonTCD").PivotFields("MonChamps").ShowDetail = false
Afficher_Details.caption="Afficher"
Else
    ThisWorkbook.Sheets("Mafeuille").PivotTables("MonTCD").PivotFields("MonChamps").ShowDetail = True
.    Afficher_Details.caption="Masquer" 
End Sub

[antonysansh]

Bonjour Robert,

Très jolie cette astuce de modifier le texte du bouton et de changer le comportement en fonction
Je n'y avais pas pensé.

Je vais modifier le code en fonction. Merci

Mais pour le coups je ne sais toujours pas pourquoi je n'arrive pas à récupérer la valeur de la propriété ShowDetail.
As-tu des info à ce sujet ?

[Invité]

Bonjour,
le génie, c'est proposer des solutions simples aux quelle personne n'a pensées!

il te reste 2 veux!

[antonysansh]

Oui c'est vrai !

Si j'ai vraiment le droit à un deuxième vœux, j'aimerais comprend pourquoi il n'est pas possible de lire cette fichu propriété ShowDetail ?

[Invité]

https://msdn.microsoft.com/fr-fr/lib.../ff197861.aspx

ShowDetail

Obtient ou définit si le spécifié PivotField affiche les détails. En lecture/écriture booléen.

[antonysansh]

J'avais bien regardé la doc mais elle n'est pas plus précise que les infos fournis par l'explorateur d'objet VBA.

Lecture / Ecriture de type Booléen OK !

Alors pourquoi .ShowDetail = Not .ShowDetail ne fonctionne pas ?

[Invité]

j'ai pas la réponse, j'utilise Excel en touriste!

[antonysansh]

Bonjour à tous,

Je n'ai toujours pas trouvé d'info mais après quelques tests je pense avoir un début de réponse.

La propriété .ShowDetail peut être écrite directement sur le champs (PivotField) et dans ce cas tous les détails sont affichés ou masqués.
Par contre la lecture doit se faire Item par Item sur le Champs.

En définitif :
Property ShowDetail As Boolean Membre de Excel.PivotField est en Ecriture seule
Property ShowDetail As Boolean Membre de Excel.PivotItem est en Lecture / Ecriture

[Invité]

bonjour Antony,
je note ça dans mes tablettes!