3 pièce(s) jointe(s)
VBA Récupération Détail TCD de la sélection
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... :
Pièce jointe 320842
Exemple sur la cellule "J12" :
Pièce jointe 320844
Avec ce code je remonte quelque chose du TCD mais pas de ma sélection :
Code:
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 :
Pièce jointe 320856
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.
VBA Récupération Détail TCD de la sélection
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.
VBA Récupération Détail TCD de la sélection
Bonjour,
Personne n'a la solution ?
Pouvez-vous m'aider svp ?
Merci Cdt.
VBA Récupération Détail TCD de la sélection
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.
VBA Récupération Détail TCD de la sélection
Bonjour,
J'ai trouvé ce petit bout de code sympa, mais il est fait que pour le TCD, enfin pas la récupération de toutes les données de la sources du TCD de la sélection de la cellule :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub TCD()
Set pt = ActiveSheet.PivotTables(1)
With ActiveCell.PivotCell
Données = "Doonées : " & vbLf _
& "Nom TCD = " & .Parent.value & vbLf _
& "Nom Colonne = " & .ColumnItems(1).Parent.SourceName & vbLf _
& "Item Colonne = " & .ColumnItems.Item(1) & vbLf _
& "Position = " & .PivotCellType & " " & ActiveCell.PivotItem.Position & vbLf _
& "Nom Ligne = " & .RowItems(1).Parent.SourceName & vbLf _
& "Item Ligne = " & .RowItems(1) & vbLf _
& "Valeur = " & ActiveCell & vbLf _
& "Data = " & .DataField & vbLf _
& "Field = " & .PivotField & vbLf _
& vbLf & "Filtre : " & vbLf
End With
For Each pf In pt.PageFields
Données = Données & pf.Name & " = " & pf.CurrentPage.Name & vbLf
Next
MsgBox Données, vbInformation
End Sub |
VBA Récupération Détail TCD de la sélection
Bonjour,
Voir les images de mon 1er post.
Je n'ai peut-être pas les mots approprié pour expliquer.
Quand on double clic sur une cellule du TCD, ça ouvre un nouvel onglet avec les données qui y sont associé de la sources du TCD.
C'est ce que je veux récupérer en VBA. En MsgBox ou bien en listbox, ou encore en variable Etc...
Bien Cdt.
VBA Récupération Détail TCD de la sélection
Bonjour 78chris,
As tu pu faire quelque chose ?
Car j'ai épuisé toutes mes recherches :(
Bien Cdt.
VBA Récupération Détail TCD de la sélection
Ha oui dsl.
Bon finalement j'ai tenté un truc dans ce genre et cela fonctionne correctement :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub Extraire()
SelectionCell = Replace(ActiveCell.Address, "$", "")
Range(SelectionCell).ShowDetail = True
temp = ActiveSheet.Name
'Affiche le détail dans un nouvel onglet
Code [...] 'Pour extraire ce sur l'on veut
'Suppression de la feuille créé :
Application.DisplayAlerts = False
Sheets(temp).Select
Sheets(temp).Delete
Application.DisplayAlerts = True
End Sub |
Pour moi, comme c'est un ligne simple j'ai tout remonté dans un USF.
Exemple :
Code:
USF.TextBox1.value = Sheets(temp).[A2]
Bien Cdt.
VBA Récupération Détail TCD de la sélection
Bonjour,
Non mais comme je ne trouvé pas j'ai procédé pour le moment comme ceci.
J'attends des retours car surement plus tard j'aurais plus de filtre dans mes colonnes.
Bien Cdt.
