Discussion :

[yzf-r]

Bonjour,

je souhaite afficher grâce à une macro les inputs qui sont derrière une cellule d'un TCD.
Il s'agit de l'action de double-click sur une cellule d'un TCD qui affiche les inputs correspondants. Ou de l'action "Show details" du click droit.
Cela créé une nouvelle feuille avec ces fameux inputs.

En résumé, si mon test est vrai sur la valeur de la cellule du TCD, je voudrais lancer ce "show details" pour créer cette nouvelle feuille.

J'ai tenté ceci mais sans succés:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Sheets("Weekly").Select
    Set pt = ActiveSheet.PivotTables("W-0-1-bis")
    Dim nbOut As Integer
    nbOut = 0
    nbOut = pt.GetPivotData("Number", "Creation Week", WeekReported)
 
    If nbOut > 0 Then
		ActiveSheet.PivotTables("W-0-1-bis").Item("Number", "Creation Week", WeekReported).ShowValuesRow = True
    End If

une idée svp

[yzf-r]

J'ai essayé cela, mais pas mieux

Code :

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

ActiveSheet.PivotTables("W-0-1-bis").PivotItems.Item("Number", "Creation Week", WeekReported).ShowDetail = True

je sens que j'approche quand même, un petit coup de pouce svp

[Daniel.C]

Bonjour,

Mets :

Code :

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

1
2
3
4
5
    nbOut = pt.GetPivotData("Number", "Creation Week", WeekReported).Cells.Count
 
    If nbOut > 0 Then
        pt.GetPivotData("Number", "Creation Week", WeekReported).ShowDetail = True
    End If

[yzf-r]

tout simplement!

Merci bcp Daniel
Pourquoi faire simple quand on peut faire compliqué

[palmito40]

Bonsoir,

Où as tu rentré ce code?

Et surtout qu'es ce que je dois modifier entre celui ci et celui applicable dans mon cas. (https://www.developpez.net/forums/d1.../#post10828848)

Merci de votre aide

Palmito