Création tableua croisé par macro

[bob]

J'essaye de créer un tableau croisé dynamique par une macro.

Mais le code généré automatiquement est érroné.

Après avoir corrigé les erreurs de format de selection, encore des messages d'erreur 1004.

J'ai ensuite essayé avec la fonction PivotTableWizard mais la encore un message d'erreur tres explicite : 'l'execution a échouée'.

J'imagine que je ne suis pas le premier à tenter cela et la création de tableau croisé dynamique me semble être une requète très classique.

Donc Messieurs, si vous aviez la gentillesse des me tuyauter, vous seriez des amours.

 

[zoulou08]

salut je suis novice mais je travaille dessus actuellement

j'en ai fait en m aidant de l enregistreur de macro mais je te mets un bout de mon code

Sheets('TDC<30j').Select 'tu selectionnes ta feuille pour ton tdc

Application.CutCopyMode = False
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
''date<30j'!R1C1:R3000C12').CreatePivotTable TableDestination:=Range('A1'), _
TableName:='Tableau croisé dynamique2'
ActiveSheet.PivotTables('Tableau croisé dynamique2').SmallGrid = False
ActiveSheet.PivotTables('Tableau croisé dynamique2').AddFields RowFields:= _
Array('Depot', 'Emb')
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields('Emb')
.Orientation = xlDataField
.Caption = 'NB Emb'
.Function = xlCount
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields('Depot')
.PivotItems('(vide)').Visible = False
End With

date<30j'!R1C1:R3000C12 ' c est ma feuille a exploiter et j'ai mis plus de cellule que le nombre de lignes car mon tableau est variable

depot, emb sont des noms de colonnes

voila, j espere que ca t aide un peu sinon ben....bon we 😉

 

[bob]

Le probleme est que justement l'enregistreur de macro me fait de la merde et après test, ton code ne déroge pas à la règle.

Mais a tu testé ce code cher zoulou08?

Car si c'est le cas, c'est que le bug est tout autre.

Je commence à méchemment desespérer.

Merci pour ton aide

 

[zoulou08]

et bien oui il marche
-verifie que ta selection de lignes est bonne
-remplace mes noms de colonnes par les tiennes
- et verifie surtout si ton code est bon avant de faire ton tdc (ex, est ce que tes cellules sont bien actives....)

je ne sais pas si ca t aide mais je tente de mettre ma petite contribution à ce forum

 

[bob]

...et je t'en remercie grandement

bon week end a toi