Discussion :

[LeSqual]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ctac_]

Bonjour,
Ceci devrait suffire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeSqual]

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

[SfJ5Rpw8]

Bonsoir,

Sur qu'elle ligne l'erreur?

[LeSqual]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Et maplage1 comment tu la déclare

[LeSqual]

ah en effet, je ne le declarai pas

j'ai rajouté dans mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Maplage1 as Range

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

Merci bcp. Si je me trompe je relacerai la discussion

[LeSqual]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Name

avec le nom de la feuille souhaitée (

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeSqual]

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

j'ai modifié en rajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Location Where:=xlLocationAsObject, Name:=nomfeuille

donc j'ai juste à dire

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

Merci beaucoup