[TCD et VBA] Sélection de données

Bonjour le forum,

J'ai une question concernant le tableau VBA et le un TCD.

Dans mon TCD il y a deux lignes nommées "RBS N°1" et "RBS N°2" placé dans la liste des champs.

Je souhaiterai extraire la colonne du TCD avec le nom des lignes du RBS N°1 et du RBS N°2 pour les mettre ailleurs.

Pour l'instant mon code ressemble à ça :

    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotSelect _
        "'RBS N°1'[All]", xlLabelOnly + xlFirstRow, True
    Selection.Copy

Je ne sais pas comment faire pour séléctionner les deux critères en même temps. La j'ai uniquement le RBS N 1.

Je vous remercie !

Julien

Bonjour,

Merci de joindre un fichier exemple avec les résultats escomptés.

Cdlt.

Bonjour Jean-Eric,

Voici un exemple : sur la feuille 4 il y a un TCD et le resultat que je souhaite avoir à droite de ce tableau.

Merci.

Julien

Re,

Essaie ceci dans ton fichier exemple :

Option Explicit

Public Sub DEMO()
Dim pt As PivotTable
Dim rng As Range, rng2 As Range, rngGroup As Range

    Application.ScreenUpdating = False

    Set pt = ActiveSheet.PivotTables(1)

    With pt
        .RowAxisLayout xlOutlineRow 'format plan
        Set rng = .PivotFields("RBS1").DataRange
        Set rng2 = .PivotFields("RBS2").DataRange
    End With

    Set rngGroup = Union(rng, rng2)

    rngGroup.Copy
    Cells(4, 8).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

    pt.RowAxisLayout xlCompactRow   'format compact (initial)

    Set rngGroup = Nothing: Set rng2 = Nothing: Set rng = Nothing
    Set pt = Nothing

End Sub

Super , ca marche bien sur le fichier exemple, je teste sur le fichier d'origine demain.

Merci beaucoup et bonne soirée!