Discussion :

[drthodt]

Bonjour à tous,
ma macro doit créer un graphique à partir d'une liste de longueur variable.
Je dois donc faire référence à cette plage,que ej détermine en calculant la dernière ligne du tableau.
Je n'arrive pas malgré tout à faire référence à cette plage lors de l'insertion du graphique,voici le code que j'utilise et qui ne fonctionne pas:

Code :

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

1
2
3
4
5
6
    'Creation du graphe
    DerniereLigneF2 = FL2.Range("B65535").End(xlUp).Row
     Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("bilan").Range(Cells(2, 1), Cells(2, DerniereLigneF2)), PlotBy _
        :=xlColumns

me donne une erreur (la méthode Cells de l’objet global a échoué) à ce niveau :

Code :

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

 ActiveChart.SetSourceData Source:=Sheets("bilan").Range(Cells(2, 1), Cells(2, DerniereLigneF2)), PlotBy _

Que dois-je écrire pour pouvoir correctement faire référence à ma plage de cellules et insérer mon graphique ?
Merci d’avance pour vos conseils,
M

[maleo833]

Bonjour,
as-tu essayé avec Currentregion ?
C'est-a-dire que si tu connais la premiere ligne de données,
tu ecris "1ere_ligne.Currentregion.select" et cela te selectionnera automatiquement toutes les lignes de tongraphique, si j'ai bien compris ton problème.

[drthodt]

Bonjour,
as-tu essayé avec Currentregion ?
C'est-a-dire que si tu connais la premiere ligne de données,
tu ecris "1ere_ligne.Currentregion.select" et cela te selectionnera automatiquement toutes les lignes de tongraphique, si j'ai bien compris ton problème.

Mon souci c'est que ma liste, qui se trouve dans une colonnea une taille variable car elle provient d'u bilan qui est dans ma macro aussi.
J'ai donc besoin de sélectionner la plage de cellules qui sera dans mon graphique mais avec ma méthode j'obtiens un msg d'erreur.
Je n'ai pas compris l'utilisation de currentregion comment cela marche?

[drthodt]

J'y suis bien arrivé avec CurrentRegion, mais par contre j'ai un souci, c'est-à-dire que lorsque j'exécute ma macro le graphique n'a pas la même aparrence que lorsue j'ai enregistrée ma macro: après exécution mon graphique est tout petit et presque illisible,alors qu'avec l'enregistreur lorsque j'ai fait ça en manuel le graphique était impec,vous pouvez comparer les deux sur le fichier joint ci-dessous (avec ma macro c'est le deuxième).
Le code de la macro:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Macro21()
'
' Macro21 Macro
' Macro enregistrée le 29/11/2007 par XER5
'
 
'
    ActiveCell.CurrentRegion.Select
    ActiveCell.CurrentRegion.Name = "selection"
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("bilan").Range("selection"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="bilan"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With
    ActiveChart.Legend.Select
    Selection.Delete
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.Orientation = xlUpward
    Selection.TickLabels.Orientation = xlHorizontal
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
        AutoText:=True, LegendKey:=False
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 19
        .Background = xlAutomatic
    End With
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 6
        .Background = xlAutomatic
    End With
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
End Sub

Qu'ajouter pour avoir une bonne mis ene forme?
Merci d'avance,
M

[maleo833]

Essaie de jouer avex les propriétés ScaleWidth et ScaleHeight de ton graphique.

exemple :

ActiveChart.Scalewidth 1.5, msoFalse, msoScalefromTopLeft
ActiveChart.Scaleheight 1.5, msoFalse, msoScalefromBottomRight

Essaie de rajoutter ces 2 lignes à la fin de ton code
1,5 etant l'echelle et msoScalefromTopLeft,msoScalefromBottomRight la direction vers laquelle tu agrandi ton graphe

Tiens moi au courant.

[cb_60]

Bonjour
regarde si cela te convient?

[drthodt]

Bonjour
regarde si cela te convient?

Salut,
effectivement avec tes paramètres mon graphique est "propre".
Par contre j'aimerais qu'il soit un peu plus grand en largeur,quel paramètre dois-je modifier?
@maleo: j'ai essayé ta technique mais j'obtiens un message d'erreur au niveau de scalewidth et scaleheight qui ne sont pas reconnus.

[cb_60]

Bonsoir
Voici ton fichier
Pour modifier la grandeur du graph:

Code :

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

1
2
3
4
5
6
  With ActiveChart.Parent
        .Left = Range("d2").Left 'Position sur ta feuille
        .Top = Range("d2").Top
        .Height = 500 ' hauteur
        .Width = 720 ' largeur
  End With

J'ai nettoyé un peu la macro

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
23
24
25
26
27
28
29
30
31
32
Sub Macro21()
'
' Macro21 Macro
' Macro enregistrée le 29/11/2007 par XER5
 
Application.ScreenUpdating = False
    Range("a1").CurrentRegion.Name = "selection"
    Charts.Add
    ActiveChart.Location Where:=xlLocationAsObject, Name:="bilan"
    With ActiveChart
       .ChartType = xl3DColumnClustered
       .SetSourceData Source:=Sheets("bilan").Range("selection"), PlotBy:=xlColumns
       .HasTitle = False
       .HasLegend = False
       .SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, AutoText:=True, LegendKey:=False
       .RightAngleAxes = True
       .HeightPercent = 100
       .Walls.Interior.ColorIndex = xlNone
       .SeriesCollection(1).DataLabels.Font.Size = 10
       .SeriesCollection(1).DataLabels.Font.ColorIndex = 6
       .SeriesCollection(1).DataLabels.Font.Background = xlAutomatic
    End With
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "graph_1"
    With ActiveChart.Parent
        .Left = Range("d2").Left
        .Top = Range("d2").Top
        .Height = 500
        .Width = 720
     End With
    Range("a1").Select
 Application.ScreenUpdating = False
End Sub