Discussion :

[canichon]

Bonjour a tous,

J'ai fait un petit programme qui suit des données sur plusieurs sociétés et je voudrais mettre ces données sur des graphiques.
Mon probleme est que je sais créer des graphiques par : Charts.Add mais je ne sais pas les renommer pour pouvoir les "retrouver" et les mettre a jour par la suite.

est ce que quelqu'un pourrait me donner la syntaxe pour renommer un graphique et changer les fameux "Graphique X"

Merci d'avance

[aalex_38]

Bonjour,

un exemple pour un graphique dans une nouvelle feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MyG As Chart
Dim MyChartName As String 'le nom du graphique 
Set MyG = Charts.Add(After:=ThisWorkbook.Sheets(Sheets.Count))
 
With MyG
    .Name = MyChartName
    .ChartType = xl3DColumnClustered
    .SetSourceData Source:=MyCell, PlotBy:=xlColumns 'ici Mycell represente la source
    .Location Where:=xlLocationAsNewSheet
    .HasTitle = True
    .HasDataTable = True
    .ChartTitle.Characters.Text = "Activité.." & "  " &     
    .RightAngleAxes = True
End With

Tu peux aussi utiliser l'enregistreur de macro et adapter à ce que tu veux faire.

[canichon]

OK... je vais voir ce que je peux faire avec ça... merci...

une question cependant...

là, le graphique est créé dans un onglet specifique... Je voudrais créé des graphiques dans une feuille "normale"...

j'imagine que c'est possible...

De plus, je ne sais pas combien de graphiques je vais créer ( suivant le nombre de société que j'ai à traiter, nombre qui change a chaque fois )

donc, le fait de créer des variables "graphique" en nombre fini me pose un petit probleme...

Merci encore

[aalex_38]

là, le graphique est créé dans un onglet specifique... Je voudrais créé des graphiques dans une feuille "normale"...

j'imagine que c'est possible...

Oui c'est possible.

De plus, je ne sais pas combien de graphiques je vais créer ( suivant le nombre de société que j'ai à traiter, nombre qui change a chaque fois )

donc, le fait de créer des variables "graphique" en nombre fini me pose un petit probleme...

Tout cela n'est pas très comprenhensible pour quelqu'un qui n'est pas dans ton projet.

Par rapport a ce que tu dis, commence par faire dans excel ce que tu veux faire exactement en commencant par un graphique avec l'enregistreur de macro.
Tu vas obtenir une trame que tu pourras utiliser.
Ensuite tu nous dis là ou tu coinces.
Merci

[canichon]

bon... voilà ce que je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To nbcompany - 1
 
    Set MyG = Charts.Add
 
    With MyG
        .Name = tabl(i, 1)
        .ChartType = xlLineMarkers
        .HasTitle = True
        .ChartTitle.Characters.Text = tabl(i, 1)
        .Location Where:=xlLocationAsObject, Name:="GRAPHIQUE par société"
    End With
 
Next i

lors de la premiere boucle, ça marche... il me cré le graphique
lors de la seconde boucle il me met un erreur en arrivant sur ".hastitle = true" !!!

Maintenant, je voudrais aussi pourvoir deplacer les graphique que le systeme cré pour ne pas les avoir superposés.

Voilà où j'en suis...

Merci a aalex_38

[aalex_38]

En fait si tu mets le nom dans location et le nom dans name, il y a un plantage c'est ou l'un ou l'autre.
j'ai repris ton code, un exemple a adapter qui fonctionne :

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
Dim Myg As Chart
'...
For i = 1 To nbcompany - 1
 
    Set Myg = Charts.Add(After:=ThisWorkbook.Sheets(Sheets.Count))
 
    With Myg
    ' .Name = tabl(i)
        .ChartType = xlLineMarkers
        .SetSourceData Source:=Sheets("Feuil1").Range("A1:B19"), PlotBy:=xlColumns
        .HasTitle = True
        .ChartTitle.Characters.Text = tabl(i)
        .Location Where:=xlLocationAsNewSheet, Name:=tabl(i)
    End With
 
Next i