XL 2013 MACRO CREER TABLEAU CROISE

[etrables]

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]

Bonjour le fil

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

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]

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