Discussion :

[_developpeur_]

Bonjour,

j'ai une macro qui crée sur une feuille des graphiques.

je peux avoir plusieurs graphique horizontalement et verticalement.

J'ajuste le graphique avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
            Set gGraphique = Worksheets(sNomFeuille).ChartObjects.Add(100, 100, 100, 100)
 
            gGraphique.Chart.ChartType = xlLineMarkers
            gGraphique.Chart.SetSourceData source:=Sheets(sNomFeuille).Range(sDebutRange & ":" & sFinRange), PlotBy:= _
                xlRows
            gGraphique.Chart.Location Where:=xlLocationAsObject, Name:=sNomFeuille
            'gGraphique.Left = Worksheets(sNomFeuille).Columns(iColFinPlage).Left
            'gGraphique.Top = Worksheets(sNomFeuille).Rows(iLigneDebutPlage).Top
            gGraphique.Left = Worksheets(sNomFeuille).Columns(iColDebutPlage).Left
            gGraphique.Top = Worksheets(sNomFeuille).Rows(iLigneFinPlage + 2).Top
 
            gGraphique.Width = Range(sDebutRange & ":" & sFinRange).Width
            gGraphique.Height = 130

Pour le moment les graph sont ajustés par rapport au tableau source de donnée.

Cependant, je viens de me rendre compte que parfois quand j ai beaucoup de données le graphique n'affiche pas tout. il faut le redimmensionner à la main ce qui n'est pas correct.

Il me faudrait une méthode qui permette d'ajuster automatiquement la taille des graph mais ensuite il faut que par rapport a cette taille je puisse continuer a créer des graph sur la droite de la feuille, je sais pas si je suis très clair.

Si je donne un exemple je crée un graphique qui est ajusté automatiquement, ce graph va de la colonne A à F. Le tableau source va de la colonne A à C.

Le deuxième graph doit donc être crée après la colonne F et je ne vois pas comment faire.

Si quelqu'un pourrait m'aider ça serait cool.

Merci beaucoup.

[L'Albatros]

Essaie le bout de code ci-dessous, je me rappelle avoir fait un truc dans le genre:

Code :

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

1
2
3
4
5
6
7
8
9
Position = Range("A20").End(xlDown).Row -10
 
With ActiveSheet.ChartObjects(1) 'graph 1 de ta feuille active
.Top = Cells(Position, 10).Top 'position verticale graphique
.Left = Cells(Position, 10).Left 'position horizontale graphique
.Width = 300 ' largeur du graph
.Height = 250 'hauteur du graph
'...
End With

'----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce

[_developpeur_]

Bonjour, je ne comprends pas bien ce code, je ne sais si ça correspond à ce que je veux faire.

A quoi correspond la cellule "A20"?

Moi ce que je veux faire c'est d'ajuster automatiquement le graphique en fonction des données qu'il contient, pour exemple s'il y aurait une méthode comme Autofit pour ajuster automatiquement les colonnes, tu vois ?

La je vois que tu donne une dimension en dur

Code :

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

1
2
.Width = 300 ' largeur du graph
.Height = 250 'hauteur du graph

ce n'est pas ce que je veux faire, enfin peu etre que j'ai pas bien compris ton code auquel cas quelques explications serait super cool.

Merci.

[L'Albatros]

Bonjour,

Ce bout de code permet de générer un graphique à un emplacement donné.
Je m'en sers souvent pour mes rapports financiers.

Maintenant, "il n'y a plus qu'à" trafiquer ce code pour remplacer les données en dur par un redimensionnement automatique.

Je n'ai fait que la moitié du travail

'----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce vert

[_developpeur_]

D'accord merci, j'ai déja positionné les graphiques à un emplacement donné, c'est à dire qu'ils sont dimmensionner en fonction de la plage source de donnée.

Exemple si la plage source de donnée va de la colonne A à F le graphique aura la largeur de la colonne A à F. Mais ce n'est pas bon puisque les graphiques n'affichent pas toutes les données.

Et c'est exactement ce que tu dis qu'il reste çà faire que je ne sais pas faire c'est à dire dimmensionner automatiquement les graphiques en fonction des données qu'ils contiennent.

Si tu as un bout de code qui le permet je suis preneur.

Merci beaucoup

[L'Albatros]

Essaie d'intégrer ceci et de le bricoler:

Code :

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

1
2
3
4
5
6
7
8
9
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Titre Graphique"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .HasLegend = True
        .Legend.Select
            Selection.Position = xlTop
    End With

Alors ?

'----------------------------------------------------------------------
Si j'ai pu vous aider, merci de me le dire avec 1 pouce