Sujet Précédent Sujet Suivant

Macro Tableau croisé dynam sous excel 2007

Fermé
mat20008 Messages postés 39 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 29 octobre 2008 - 5 août 2008 à 15:13
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 6 août 2008 à 10:29
Bonjour,

Décidemment je n'arrete plus de poser des question concernant VBA que je découvre depuis peu...
Alors voici le soucis du jour:

Je crée un tableau dynamique dans l'onglet "LILLE", j'en ai fait au passage une macro, le soucis est d'utiliser ce code sur les onglets PARIS, MARSEILLE....dans chaque onglet

En essayant le code suivant dans l'onglet PARIS, évidemment ça bloque à cause de "LILLE", j'aimerai savoir ce qu'il faut modifier pour pouvoir utiliser la macro dans les autres onglets PARIS.....

Ca doit pas être très compliqué, mais je suis novice...
Cdmt

Sub TCD()
'
' TCD Macro
'

'
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"LILLE!L1C1:L65536C20", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="LILLE!L11C22", TableName:="Tableau croisé dynamique4", _
DefaultVersion:=xlPivotTableVersion10
Sheets("LILLE").Select
Cells(11, 22).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Commercial")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Montant cde")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique4").PivotFields("Montant cde"), _
"Nombre de Montant cde", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable")
.Orientation = xlColumnField
.Position = 1
End With
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 22
ActiveWorkbook.Save
Range("X16").Select
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields( _
"Mois Comptable").PivotFilters.Add Type:=xlDateThisYear
End Sub
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
5 août 2008 à 19:18
Bonjour,

partout où tu as Lille d'écrit remplace par le nom du classeur actif.
Ex:
"LILLE!L1C1:L65536C20" devient :
activesheet.name & "!L1C1:L65536C20"
(attention aux " ")

eric
5
Réponse 2 / 3
mat20008 Messages postés 39 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 29 octobre 2008 16
6 août 2008 à 09:58
Merci pour ta réponse, j'y suis presque, mais il me mets erreur d'execution 5, voici le code, modifié comme tu me l'as indiqué, la surbrillance se fait au niveau DefaultVersion:=xlPivotTableVersion12, j'comprend rein, c'est du grèque pour moi:)

Sub TCD()
'
' TCD Macro
'

'
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
Range("W18").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
ActiveSheet.Name & "!L1C1:L1048576C20", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:=ActiveSheet.Name & "!L18C23", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets(ActiveSheet.Name).Select
Cells(18, 23).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Commercial")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Mois Comptable")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Montant cde")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Montant cde"), _
"Nombre de Montant cde", xlCount
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Mois Comptable")
.Orientation = xlColumnField
.Position = 1
End With
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 20
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Montant cde")
.Caption = "Somme de Montant cde"
.Function = xlSum
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Commercial")
.PivotItems("(vide)").Visible = False
End With
ActiveWorkbook.ShowPivotTableFieldList = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Mois Comptable").PivotFilters.Add Type:=xlDateThisYear
End Sub
0
Réponse 3 / 3
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
6 août 2008 à 10:29
Bonjour,

Aucune idée, erreur 5 n'est pas parlant du tout, le libellé est mieux....
Fais F& sur DefaultVersion et consulte l'aide.
Et puis est-ce que tous les graphiques utilisent ("Tableau croisé dynamique1") qcq soit la feuille ? Je ne pense pas...
eric
0