XL 2013 MACRO CREER TABLEAU CROISE

etrables · 2 Janvier 2021

Bonjour

Je suis a la recherche d'une macro pour pouvoir creer un tableau croisé a partir de 3 colonnes come dans l'exemple joint.
Merci beaucoup pour votre aide !

Staple1600 · 2 Janvier 2021

Bonjour le fil

=>etrables
Test OK sur un PC (avec Excel 2003)
(testé sur ton fichier exemple)

VB:

Sub TCD_OK()
Dim src$, pCache As PivotCache, pvt As PivotTable
src = [A1].Parent.Name & "!" & Range("A2:C10").Address(ReferenceStyle:=xlR1C1)
Set pCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=src)
Set pvt = pCache.CreatePivotTable(TableDestination:=ActiveSheet.[E1], TableName:="TCD")
pvt.AddFields RowFields:="CHAMP1", ColumnFields:="DATE"
pvt.PivotFields("VALEURS").Orientation = xlDataField
[D1].Select
End Sub

Lolote83 · 8 Janvier 2021

Bonjour à tous,
@etrables , un simple TCD sans macro peut le faire mais vu que tu demandes une macro, @Staple1600 (que je salue au passage) m'a devancé.
Cordialement
@+ Lolote83

XL 2013 MACRO CREER TABLEAU CROISE

etrables

Guest

Pièces jointes

Staple1600

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Discussions similaires

XL 2013 MACRO CREER TABLEAU CROISE

etrables

Guest

Pièces jointes

Staple1600

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency