Range en parametre d'appel pour graphe

bonjour,

néophyte sur le sujet, évidement je bloque et je ne trouve pas de solution.

Je voudrais créer une fonction ayant en paramètre la zone source des données, le titre du graphe .Je me dis que ca doit bien exister comme méthode.

Si vous avez une solution, des idées, je suis preneur. En vous remerciant par avance

L'idée de mon code était la suivante :oops: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim n as integer n=3 Set Maplage1 = Sheets('Feuil1').Range(Cells(2 * n + 23, 2), Cells(2 * n + 27, 11))   Call ajout_graphe(Maplage1, "nom1", "Evolution")   Sub ajout_graphe(Maplage1 As Range, nomgraph As String, titre As String)   Charts.Add   ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Maplage1, PlotBy:=xlRows ActiveChart.Location Where:=xlLocationAsObject, Name:=nomgraph     With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = titre .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With End Sub

---

Bonjour,
Ceci devrait suffire

Code:

---

1 2 3 4 5 6 7 8 9

Sub ajout_graphe(Maplage1 As Range, nomgraph As String, titre As String) With Charts.Add .ChartType = xlLineMarkers .SetSourceData Source:=Maplage1, PlotBy:=xlRows .Name = nomgraph .HasTitle = True .ChartTitle.Text = titre End With End Sub

---

cordialement
ctac

Bonsoir

Merci beaucoup de votre réponse...mais sauf erreur de code de ma part ca ne marche pas

en effet, j'ai le message suivant :

"type d'argument ByRef incompatible"

je reste coincé...on doit pas etre loin d'une "solution"....mais j'y pige rien :oops:

Bonsoir,

Sur qu'elle ligne l'erreur?

Code:

---

Call ajout_graphe(Maplage1, "nom1", "Evolution")

---

Et maplage1 comment tu la déclare

ah en effet, je ne le declarai pas

j'ai rajouté dans mon code

Code:

---

Dim Maplage1 as Range

---

je pense que grace à vous, la solution est enfin là

Merci bcp. Si je me trompe je relacerai la discussion

:(

le seul hic, c'est qu'il em crée le graph sur uen nouvelle feuille et non pas sur la feuille où se trouve ma plage de données source (Maplage1)

si vous avez uen idée de la raison, je suis preneur.

En effet si je renomme la section

Code:

---

.Name

---

avec le nom de la feuille souhaitée (

Code:

---

nomfeuille

---

) il bugge en m'indiquant à juste titre qu'il est impossible de renommer uen feuille comme une autre ... grrrrrrrrrrr


je suis pas loin de ce que je souhaite mais grrrrrr

après petite réflexion évidemment que ca ne marchait pas

j'ai modifié en rajoutant

Code:

---

.Location Where:=xlLocationAsObject, Name:=nomfeuille

---

donc j'ai juste à dire :ccool:

pour moi le problème est entièrement résolu

Merci beaucoup