Graphiques vs VBA

bonjour,

il n'y a aucune difficulté majeure à définir pour l'axe des abscisses et
celui des ordonnées des sources différentes de feuilles. p.e dans l'exemple
qui suit PlageXVal appartient à la feuille1 et plageYval à la feuille2. Il te
suffit donc de définir correctement tes plages pour que ca fonctionne.

'déclaration des lieux de réception du graphique

Set ws = ActiveSheet
Set c = ActiveCell

'insertion du graphique et déclaration nom graphique

Set ch = ws.ChartObjects.Add(c.Left, c.Top, 600, 300)
ch.Name = "Graphtemp" ' nom du graphique

Set chson = ch.Chart

'déclaration des sources du graphique.

Set plageXval = Range(Cells(2, 1), Cells(2, 22)) ' la source pour l'axe des
abscisses
With Sheets("Feuil2")
Set plageYval = .Range(.Cells(3, 1), .Cells(3, 22)) ' la source pour l'axe
des ordonnées
End With
Set plageleg = Cells(1, 1) 'la source pour la légende du graphique

'création d'une série de données

Set s = chson.SeriesCollection.NewSeries

'affectation des données à la série créée

With s

.XValues = plageXval 'la référence à la source pour l'axe des abscisses.
On passe ici directement les éléments (affectation à un obejt range)
.Values = plageYval ' la référence à la source pour l'axe des ordonnées
.Name = plageleg ' la référence à la source pour la légende

End With

A+

Bonjour à vous,

j'ai un problème lorsque, dans VBA, je veux définir
un "range" pour des valeurs qui se trouvent dans un
onglet différent.

Exemple:

With TempChart.SeriesCollection(1)
.XValues = Rg_Title
.Values = Rg_stkSec '*** ici variable Range
End With

J'aimerais, toujours, avec une variable avoir le bon
range, mais en tenant compte de l'onglet.

Avez-vous une idée?

Merci!!!