Discussion :

[JFV__]

Bonjour,

Cela fait plusieurs jours que j'essaye d'obtenir le résultat escompté en travaillant différents codes VBA mais sans succès, je fais donc appel à votre expertise

Dans le fichier joint j'aimerais extraire en automatique la donnée "étiquettes de lignes" d'une valeur du TCD...Par exemple, si je clique sur la cellule B82 de la feuille TCD 1 je voudrais extraire la donnée d'étiquettes de lignes "103 : Employé absent sans justificatif"..et si possible que l'on m'explique la solution pour "pêcher seul mon poisson" la prochaine fois merci

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Pvt As PivotTable
 
Set Pvt = ActiveSheet.PivotTables(1)
If Not Intersect(Target, Pvt.DataBodyRange) Is Nothing Then
    MsgBox Pvt.RowRange(Intersect(Target, Pvt.DataBodyRange).Row - Pvt.TableRange1.Row - 1)
End If
Set Pvt = Nothing
End Sub

[JFV__]

Merci pour ta réponse mercatog, mais as-tu testé ton code avec le fichier joint?
Cela ne revoie pas le résultat escompté, ton code me renvoie l'équivalent d'un MsgBox ActiveCell.Offset(0, -1).Value.. soit dans mon exemple, je clique sur la cellule B82, cela me donne la valeur en A82...

[78chris]

Bonjour à tous

La question n'est pas claire du tout !

En A82 on a 310 : Motif non-autorisé pour la region de cet agent et non 103 : Employé absent sans justificatif et A82 correspond bien à l'étiquette de ligne de la valeur située en B82

En plus tu évoques un filtre mais ton TCD n'est pas filtré

[JFV__]

[QUOTE=78chris;10889663]

La question n'est pas claire du tout !

Alors dans un TCD il y a ce que l'on appelle développer/réduire...alors si tu veux bien faire "développer tout" auparavant tu comprendras ma question désolé. J'ai également modifié le titre pour parler d'étiquettes de lignes.
Je veux connaitre la première étiquette de ligne d'une donnée prise au hasard dans un TCD pour résumer ma question. La première, la deuxième, ou troisième selon les cas si plusieurs étiquettes de lignes existent...

Ce n'était pas clair j'ai allumé la lumière

[78chris]

Re

Si tu veux faire de l'humour à 2 balles, OK mais alors utilise la terminologie adéquate.

Réduire et développer n'est un filtre mais une option d'affichage.

Ce que tu veux obtenir est la valeur du champ placé en niveau 1 des étiquettes de lignes pour la valeur sélectionnée

Par ailleurs si tu fournis un fichier (ce que l'on évite ici) mets-le au moins sous une forme correspondant à la question posée

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Intersect(Target, PivotTables("TCD2").DataBodyRange) Is Nothing Then Exit Sub
If Target.PivotCell.RowItems.Count > 0 Then MsgBox Target.PivotCell.RowItems(1)
End Sub