Salut,
Existe il um moyen de sélectionner toutes les valeurs d'un champs d'un
tableau croisé dynamique à l'aide d'une fonction vba
Le nom du champs sera un des parametres de la fonction qui va copier les
valeurs obtenues dans une autre feuille
Merci.
Dim Champ As Object With Worksheets(Feuille) With .PivotTables(NomTDC).PivotFields(NomChamp) For Each Champ In .PivotItems ReDim Preserve Tblo(A) Tblo(A) = Champ A = A + 1 Next End With End With
'Copie les valeurs ailleurs With Worksheets("Feuil1") .Range("A1").Resize(UBound(Tblo)) = Application.Transpose(Tblo) End With
End Sub '-------------------------------
Salutations!
"Mike" a écrit dans le message de news:ulxLa% Salut, Existe il um moyen de sélectionner toutes les valeurs d'un champs d'un tableau croisé dynamique à l'aide d'une fonction vba Le nom du champs sera un des parametres de la fonction qui va copier les valeurs obtenues dans une autre feuille Merci.
PS: mes valeurs sont en colonnes
Bonjour Micke,
Ne pas oublier de renseigner les variables selon ton application.
Une façon de faire ....
'-------------------------------
Sub TDC()
Dim A As Integer, Tblo()
Dim Feuille As String, NomTDC As String
Dim NomChamp As String
Dim Champ As Object
With Worksheets(Feuille)
With .PivotTables(NomTDC).PivotFields(NomChamp)
For Each Champ In .PivotItems
ReDim Preserve Tblo(A)
Tblo(A) = Champ
A = A + 1
Next
End With
End With
'Copie les valeurs ailleurs
With Worksheets("Feuil1")
.Range("A1").Resize(UBound(Tblo)) = Application.Transpose(Tblo)
End With
End Sub
'-------------------------------
Salutations!
"Mike" <mike@perchoir.com> a écrit dans le message de news:ulxLa%23BPEHA.252@TK2MSFTNGP10.phx.gbl...
Salut,
Existe il um moyen de sélectionner toutes les valeurs d'un champs d'un
tableau croisé dynamique à l'aide d'une fonction vba
Le nom du champs sera un des parametres de la fonction qui va copier les
valeurs obtenues dans une autre feuille
Merci.
Dim Champ As Object With Worksheets(Feuille) With .PivotTables(NomTDC).PivotFields(NomChamp) For Each Champ In .PivotItems ReDim Preserve Tblo(A) Tblo(A) = Champ A = A + 1 Next End With End With
'Copie les valeurs ailleurs With Worksheets("Feuil1") .Range("A1").Resize(UBound(Tblo)) = Application.Transpose(Tblo) End With
End Sub '-------------------------------
Salutations!
"Mike" a écrit dans le message de news:ulxLa% Salut, Existe il um moyen de sélectionner toutes les valeurs d'un champs d'un tableau croisé dynamique à l'aide d'une fonction vba Le nom du champs sera un des parametres de la fonction qui va copier les valeurs obtenues dans une autre feuille Merci.
