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