Discussion :

[GuiJenn34]

Bonjour,

Je souhaites faire remonter par VBA le détail que l'on peut afficher en double cliquant sur l'Item (Cellule) du TCD sans que cela ouvre une 2ème feuille et tout et tout... :



Exemple sur la cellule "J12" :



Avec ce code je remonte quelque chose du TCD mais pas de ma sélection :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Détail_Selection()
SelectionCell = Replace(ActiveCell.Address, "$", "")
 
MsgBox ActiveSheet.PivotTables(1).PivotFields("Ville").PivotItems(1).Name & vbLf _
& ActiveSheet.PivotTables(1).PivotFields("n° Kit").PivotItems(1).Name & vbLf _
& ActiveSheet.PivotTables(1).PivotFields("n° Dossier").PivotItems(2).Name & vbLf _
& ActiveSheet.PivotTables(1).PivotFields("Client").PivotItems(1).Name & vbLf _
& ActiveSheet.PivotTables(1).PivotFields("Adresse").PivotItems(1).Name
End Sub

Cela me remote ceci :



Je pense que le problème viendrait au niveau n° de "PivotItems(1)" mais comment faire pour obtenir le n° de l'Item de la sélection ?
J'ai trouvé plein de code pour faire une boucle, mais ce que je souhaite c'est avoir le détail comme sur l’image 2 de ma sélection de la cellule.

Merci pour votre aide.
Bien Cdt.

[GuiJenn34]

Bonjour,

Je me permet de revenir car malgré mes recherches sur le net, je n'ai toujours pas trouvé ma solution.
Quelqu'un saurait ?

Merci Cdt.

[GuiJenn34]

Bonjour,

Personne n'a la solution ?
Pouvez-vous m'aider svp ?

Merci Cdt.

[78chris]

Bonjour

J'ai un truc en cours sur le sujet.

J'essaie de le faire fonctionner aussi sur les champs regroupées (il marche sur les champs "normaux").

Je devais en voir le bout d'ici quelques jours... je le posterai alors

[GuiJenn34]

Bonjour,

Je viens de retravailler dessus, je n'y arrive pas !
Je ressort tous les Items, mes je n'ai pas celui de ma sélection de la cellule.

Je ne sais combien de site j'ai fait !
Car afficher le détail en double cliquant sur la cellule c'est facile mais le remonter en VBA par msgbox c'est compliqué !

En tout cas j'attends le retour avec impatience.

Merci Cdt.

[78chris]

Bonjour

J'ai passé par mal de temps sur le problème des groupes mais c'est peu et mal géré dans le modèle objet et on a pas mal de limites.

Je vais déjà poster ce qui marche : je vérifie ce fichier avant et poste demain soir au plus tard.