Graphique plage de données variables

Version imprimable

Bonjour à tous, et bonnne année!

J'ai réalisé il y a quelques temps un outil sur excel 2007 qui utilisait des macros dont une qui servait à afficher un graphique en histogramme avec du texte en abscisse.
Tout fonctionnait bien jusqu'à ce que je passe je lance l'outil sous excel 2003, et là ce code ne fonctionne plus..

Voici mon code:
Code:

1 2 3 4 5 Sheets("Maison").Activate b = Cells(3, 1).Value & "-" & Cells(1, 18).Value Charts("Graphique").SetSourceData Source:=Range("='Maison'!R3:R" & Cells(1, 1).Value + 2) Charts("Graphique").SeriesCollection(1).Name = b Charts("Graphique").SeriesCollection(1).XValues = "='Maison'!$B$3:$C$" & Cells(1, 1).Value + 2 '
C'est la dernière ligne de code qui pose problème sous Excel 2003 alors que tout fonctionnait sous 2007, pourriez-vous m'aider?

Merci d'avance

x0ran

quelque chose comme ceci

Code:

1
2
3
4
5
6
7
8
Dim b As String
 
With Sheets("Maison")
   b = .Cells(3, 1).Value & "-" & .Cells(1, 18).Value
   Charts("Graphique").SetSourceData Source:=.Range("R3:R" & .Cells(1, 1).Value + 2)
   Charts("Graphique").SeriesCollection(1).Name = b
   Charts("Graphique").SeriesCollection(1).XValues = .Range("B3:B" & .Cells(1, 1).Value + 2)
End With

même sujet avec 2 pseudo différents

21/01/2011, 22h13
x0ran

Merci beaucoup mercatog ça marche très bien désormais!

En fait nous sommes deux sur ce projet, et apparemment nous avons eu tous les deux la bonne idée de venir sur ce forum