PROBLEME GRAPHE TDC

[pedro123456]

Bonjour,


On veut faire un graphique croise dynamique a partir de la feuille Reservation

En effet, il faudrait un graphique avec Pour un abonné spécifique, le nombre de voyages réalisés par mois pendant une
année.

Le ficheir excel est joint.
Macro dans le module 4 ( avec deux macros qui sont des essais différents....)

Code au k ou....
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 15/05/2006 par pszyikag
'

'
Range('A1').Select
Selection.CurrentRegion.Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Reservation!R14C4:R17C9').CreatePivotTable TableDestination:=Range('A1'), _
TableName:='Tableau croisé dynamique3'
ActiveSheet.PivotTables('Tableau croisé dynamique3').SmallGrid = False
ActiveWindow.SmallScroll Down:=-3
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields( _
'Numéro d'abonné')
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Mois')
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Année')
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('Mois')
.Orientation = xlDataField
.Position = 1
End With
Charts.Add
ActiveChart.SetSourceData Source:=Sheets('Graphe_Utilisateur').Range('A1')
ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub


Merci pour votre réponse
pszyikag@etu.utc.fr

 

[Dan]

Bonsoir,

Heu le fichier il est où ??

 

[pedro]

[file name=projet2_20060516111840.zip size=37002]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/projet2_20060516111840.zip[/file]

Message édité par: Pascal76, à: 16/05/2006 13:28

 

[Dan]

Bonjour,

J'ai peut être pas saisit ta demande mais ta macro 2 à l'air de fonctionner il me semble.

Pour faire un graphique par utilisateur il suffit, une fois le TCD fait et le graphique (qui se place dans une nouvelle feuille), de sélectionner le champ de page dans le TCD pour que le graphique s'adapte automatiquement.

Qu'attends-tu exactement ... :sick:

 

[pedro]

esassaie de lancer la marco, tu verra ca marche pas, excel me dit erreur!!!
(j'ai associé la macro au bouton Command button 2 de la feuille reservation, mais au pire lance la juste comme ça,, es ce que tu arrive a avoir le graphique?)
De mon coté j'ai l'erreur 1004 qui s'affiche....c'est la tout mon problème.!!!!
Merci pour l'aide que tu peux m'apporter Dan!

 

[Dan]

Bonjour,

désolé pour le retard mais j'ai pas pu regradé ton pb hier soir.

Bon le TCD a besoin de place et là je vois que tes objets gênent. Déplace tous les boutons à droite et tu verras que ta macro fonctionne.

Evite aussi de mettre la base de données sur la même feuille.

Vois toujours cela et dis moi si c'est OK. On peut améliorer par la suite.