A toutes et tous bonjour,
Je souhaite extraire les données qui constituent l'étiquette de champ de
ligne d'un TCD pour les transférer dans une autre feuille du même classeur.
Mais je ne parviens pas à générer le code ad-hoc sous VBA.
Quelqu'un peut-il m'aider ???
Merci d'avance à tous.
FF
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
lSteph
Bonjour,FF
Je souhaite extraire les données qui constituent l'étiquette de champ de ligne d'un TCD pour les transférer dans une autre feuille Exemple dans une nouvelle feuille:
Sub pivolig() Dim sh As Worksheet, pvt As PivotTable, pvtFld As PivotField, i As Long Set sh = Worksheets.Add Set pvt = Feuil1.Range("A3").PivotTable i = 0 For Each pvtFld In pvt.RowFields i = i + 1 sh.Cells(i, 1).Value = pvtFld.Name Next pvtFld
End Sub
'lSteph
Bonjour,FF
Je souhaite extraire les données qui constituent l'étiquette de champ de
ligne d'un TCD pour les transférer dans une autre feuille
Exemple dans une nouvelle feuille:
Sub pivolig()
Dim sh As Worksheet, pvt As PivotTable, pvtFld As PivotField, i As Long
Set sh = Worksheets.Add
Set pvt = Feuil1.Range("A3").PivotTable
i = 0
For Each pvtFld In pvt.RowFields
i = i + 1
sh.Cells(i, 1).Value = pvtFld.Name
Next pvtFld
Je souhaite extraire les données qui constituent l'étiquette de champ de ligne d'un TCD pour les transférer dans une autre feuille Exemple dans une nouvelle feuille:
Sub pivolig() Dim sh As Worksheet, pvt As PivotTable, pvtFld As PivotField, i As Long Set sh = Worksheets.Add Set pvt = Feuil1.Range("A3").PivotTable i = 0 For Each pvtFld In pvt.RowFields i = i + 1 sh.Cells(i, 1).Value = pvtFld.Name Next pvtFld
