création de graphiques "dynamiques"

Version imprimable

02/09/2009, 09h20
canichon

création de graphiques "dynamiques"

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

Bonjour,

un exemple pour un graphique dans une nouvelle feuille :

Code:

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.

02/09/2009, 12h05
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
02/09/2009, 12h19
aalex_38

Citation:

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.

Citation:

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

bon... voilà ce que je fais :
Code:

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

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:

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

03/09/2009, 10h42
canichon

OK...

J'arrive a me demerder pour créer ce que je veux... merci pour ton aide...

question suivante... désolé...

quand je cré les graphiques, ils se mettent au milieu de la page. je voudrais les deplacer dans la page pour qu'ils ne se superposent plus...

J'ai bien trouver :

Code:

ActiveChart.Application.Left

et

Code:

ActiveChart.Application.Top

mais ça ne fonctionne pas...

merci de votre aide...

Re,

fait avec l'enregistreur de macro (Increment) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro3()
' ---------------------- '
' Position du graphique
' ---------------------- '
 
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Columns("A:B"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveSheet.Shapes("Graphique 1").IncrementLeft -28.5
    ActiveSheet.Shapes("Graphique 1").IncrementTop -121.5
End Sub

03/09/2009, 11h20
canichon

ben ça marche pas...

comment je peux savoir que "Graphique1" est le bon graphique... en plus C pas le bon...

avec l'enregisteur, il te donne graphique1 parce que C le 1er graphique que tu cré...

moi aujourd'hui, j'en suis au Graphique33...

Je dois utiliser, soit MyG.quelquechose soit activechart.quelquechose...

Deplacement graphiques d'une feuille

Re,

Mon exemple etait uniquement pour te montrer comment déplacer ton graphique, les boucles tu l'a déjà pour la création.

Edit : un exemple à adapter pour déplacer un graphique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Application.ScreenUpdating = False ' arret mise a jour écran
Dim wk As Worksheet, x As ChartObject, MyCell As Range
Set wk = Worksheets("Feuil1") 'instance de la feuille
 
For i = 1 To wk.ChartObjects.Count ' on boucle sur les graphiques de la feuille
    Set x = wk.ChartObjects(i)  ' instance du graphique
    j = 100 ' facteur a modifier ou adapter
    Set MyCell = Range("B" & i * j) ' instance de la cellule de reference, a adapter
    x.Left = MyCell.Left 'on positionne le graphique par rapport à la cellule
    x.Top = MyCell.Top
Next
Application.ScreenUpdating = True 'remise à jour écran