Discussion :

[grenival]

Bonjour à tous,

J'ai réaliser une macro qui génère un graphique à partir d'un TCD.
Pour placer mon graphique à l'endroit désiré j'ai cette formule

Code :

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

1
2
ActiveSheet.ChartObjects(1).Left = Range("D8").Left
ActiveSheet.ChartObjects(1).Top = Range("D8").Top

J'ai un autre TCD en dessous avec un graphique du même genre. J'ai donc le même code que pour le premier sauf qu'à la place de "D8" j'ai "D35"

Quand j'active ma première macro pas de problème mon graphique se met bien en D8, par contre dés que j'active le 2ème il chevauche le 1er.

J'ai donc pensé à les nommer et remplacer le (1) par le nom du graphique mais ca ne marche pas.

Quelqu'un voit -il de quoi il pourrait s'agir?
Merci

[J.Michel]

J'imagine que dans la 2° procédure tu utilises

Code :

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

1
2
3
 
ActiveSheet.ChartObjects(2).Left = Range("D35").Left
ActiveSheet.ChartObjects(2).Top = Range("D35").Top

Quand tu dis qu'il chevauche le 1°: il se mets en D8 également ?

Peux tu nous montrer tes 2 procédures ?

[grenival]

[Oui voila c'est exactement ca

1ère procedure :

Code :

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

1
2
ActiveSheet.ChartObjects(1).Left = Range("D8").Left
ActiveSheet.ChartObjects(1).Top = Range("D8").Top

2ème procedure :

Code :

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

1
2
 ActiveSheet.ChartObjects(2).Left = Range ("D35").Left
ActiveSheet.ChartObjects(2).Top = Range("D35").Top

Quand je réalise la 2ème procédure le graphique se chevauche sur l'autre mais en décalé il n'est même pas en "D8" C'est ca que je trouve bizarre.

J'ai essayé de nommer chacun de mes graph après Chart.add et mettre le nom attribué à la place du (1) et même chose pour le 2ème à la place du (2) Mais celà ne marche pas non plus

Merci pour ton aide

[kiki29]

Salut, à adapter

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
 
Option Explicit
 
.....
Dim Emplacement As Range
Dim Graphe As ChartObject
Dim sNomGraphe As String
 
    .....
    sNomGraphe = ActiveChart.Parent.Name
    Set Emplacement = ShDatas.Range("C4:P40")
    Set Graphe = ShDatas.ChartObjects(sNomGraphe)
 
    With Graphe
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With
 
    Set Graphe = Nothing
    Set Emplacement = Nothing
    .....

[Currahee]

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
' ********************************************************
' Fonction permettant de placer un graphique dans une page
' ********************************************************
Public Function Placer_Graphique(graphe As String, origine As Range, fin As Range)
 
    Dim x_origine As Single
    Dim y_origine As Single
 
    Dim largeur_graphe As Single
    Dim hauteur_graphe As Single
 
    x_origine = origine.Left
    y_origine = origine.Top
 
    largeur_graphe = fin.Left + fin.Width - x_origine
    hauteur_graphe = fin.Top + fin.Height - y_origine
 
    With ActiveSheet.Shapes(graphe)
        .Left = x_origine
        .Top = y_origine
        .Width = largeur_graphe
        .Height = hauteur_graphe
    End With
 
End Function

Placer_Graphique monChart.Parent.Name, Range("B2"), Range("I20")