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

[_developpeur_]

je viens d'intégrer le bout de code ci dessus, ca me positionne la légende en haut du graphique et ca cache le graphique en lui meme

[L'Albatros]

Ok, regarde ces 2 bouts de code, teste les je crois que j'ai une idée:

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet.ChartObjects(1)
        .Left = Range("A10:F40").Left
        .Top = Range("A10:F40").Top
        .Width = Range("A10:F40").Width
        .Height = Range("A10:F40").Height
    End With
End Sub

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
Sub positionGraph()
 
Private Sub Mise_en_forme_Graphiques()
Dim ch As ChartObject
Dim Graphique As String
Dim Hauteur As Long
Dim X As Long
X = 150 ' position bas du graphique
Y = 10 ' position gauche du graphique
For Each ch In ActiveSheet.ChartObjects
    Graphique = ch.Name
    ActiveSheet.ChartObjects(Graphique).Activate
    ActiveSheet.Shapes(Graphique).ScaleWidth 0.66, msoFalse, msoScaleFromTopLeft 'finir dimensions
    ActiveSheet.Shapes(Graphique).ScaleHeight 0.75, msoFalse, msoScaleFromTopLeft 'finir dimensions
    Hauteur = ActiveSheet.Shapes(Graphique).Height
    X = X + Hauteur + 10
    ActiveSheet.Shapes(Graphique).Left = Y
    ActiveSheet.Shapes(Graphique).Top = X
Next ch
End Sub

Le seul truc qu'il manque c'est de pouvoir toucher à "l'échelle".
Tu vois ce que je veux dire ? En mixant ces codes, tu devrais pouvoir t'en sortir...

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

[_developpeur_]

Bonjour, j'ai essayé ce code malheureusement ca ne fonctionne pas.

En effet j'ai 10 séries dans mon graph et il y en a que 5 qui sont affichées. En gros le height n'est pas dimmensionner correctement. Tu as une idée ?

Merci beaucoup

[L'Albatros]

Mince, non...

En fait d'habitude je ne m'y prends pas comme cela:
Je crée le graphique, je fais un peu de "tuning" dessus et par macro je ne fais que l'actualiser...

[_developpeur_]

Mince, non...

En fait d'habitude je ne m'y prends pas comme cela:
Je crée le graphique, je fais un peu de "tuning" dessus et par macro je ne fais que l'actualiser...

ok merci d'avoir essayé de m'aider *

Si quelqu'un d'autre a une idée, je suis preneur.

Merci

[Ozer45]

Salut,

je suis un peu votre discussion et je penses qu'il serait peu etre simple que tu utilise ta plage de données pour positionner ton graphe.

C'est un exemple:

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
 
    Dim rng1 As Range
    Dim rng2 As Range
    Dim DernLigne as Long
    'ici graphews represente la feuille excel surlaquelle le graphe est créé peut etre remplacé par activeworksheet
    'declarer egalement ton graphe au debut
 
    DernLigne = GrapheWs.Range("A65536").End(xlUp).Row    
    'ici tu selectionne ta plage de données de ton tableau
    'a ajuster suivant le nombre de lignes et de colonnes
    Set rng1 = GraphWs.Range(Cells(DernLigne, 4), Cells(DernLigne, 4))
    Set rng2 = GraphWs.Range(Cells(DernLigne, 4), Cells(DernLigne, 16))
 
    With Mon_Graphique
        .Top = rng1.Top
        .Left = rng.Left
        .Height = rng2.Width / 2 'hauteur
        .Width = rng2.Width 'largeur
        .Chart.HasTitle = True
        .Chart.ChartTitle.Font.Size = 10
        .Chart.ChartTitle.Shadow = True
        .Chart.ChartTitle.Top = 2
    End With

[_developpeur_]

Salut Ozer45, j'utilise déja la plage de données pour positionner le graphe voici mon code :

Code :

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

1
2
3
4
5
        gGraphique.Left = Worksheets(sNomFeuille).Columns(iColDebutPlage).Left
        gGraphique.Top = Worksheets(sNomFeuille).Rows(iLigneFinPlage + 2).Top
 
        gGraphique.Width = Range(sDebutRange & ":" & sFinRange).Width
        gGraphique.Height = 230

Avec ce code, mon graphe est :
- aligner a gauche de la plage de donnée (première colone de gauche de la plage
- positionner 2 ligne en dessous de la dernière ligne de la plage
- ajuster en largeur en fonction de la plage de donnée (si la plage va de la colonne A à F, le graphe aussi)

Ce qu'il me manque, c'est de l'ajuster automatiquement en hauteur en fonction du contenu, plus précisemment du nombre de series que contient le graphe.

Tu vois ce que je veux dire ? or la je l'ajuste en dur avec

Code :

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

gGraphique.Height = 230

ce qui n'est pas correct quand il y a un grand nombre de series.

Merci

[_developpeur_]

Bonjour,

personne n'a d'idée ? n'existe t-il pas une méthode maique qui permet de dimmensionner automatiquement un graphique en fonction qu'ils contiennent beaucoup ou peu d'informations ?

on peut ajuster automatiquement les colonnes excel en fonction de leur contenu avec la méthode

Code :

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

AutoFit

.

Mais pour les graphiques ça n'existe pas