Discussion :

[salseropom]

Bonjour,

je souhaite positionner un graphique croisé dynamique au niveau de la cellule H34 de ma feuille.

J'utilise le code suivant (qui marchait très bien dans une autre macro)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With wsGCD1.Shapes(nomGCD)
    'placement du graphique (coin superieur gauche)
    .Left = Range("H34").Left
    .Top = Range("H34").Top
 
    'redimensionnement du graphique
    .Height = 242.6456692913 '8.56 cm
    .Width = 571.7480314961 '20.17 cm
End With

ce que je ne comprends pas : les 2 lignes "height" et "width" sont bien prises en compte. Mon graphique fait la bonne taille. En revanche, les lignes "left" et "top" ne sont pas prises en compte.

Savez-vous pourquoi s'il vous plaît ?

Merci bcp

Bonne journée

[ARTURO83]

Bonjour,

Je pense qu'il faut donner une plage de cellules pour le graphique et non qu'une seule cellule, exemple:

Code :

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

1
2
3
4
With wsGCD1.Shapes(nomGCD)
    'placement du graphique (coin superieur gauche)
    .Left = Range("H34:M50").Left
    .Top = Range("H34:M50").Top

Essayez

CDlt

[salseropom]

Bonjour,
j'ai essayé une plage de cellules mais sans effet sur le placement de mon graphique.
Ceci dit, je vous confirme que mettre une seule cellule fonctionne très bien.

C'est vraiment bizarre que ce bout de code fonctionne dans une première macro mais pas dans la seconde...
Je n'arrive pas à voir ce qui change

Merci en tous cas

Bonne soirée

Cordialement

[salseropom]

Re,

je viens d'essayer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With wsGCD1.Shapes(nomGCD)
    'placement du graphique (coin superieur gauche)
    .Left = 100
    .Top = 400
 
    'redimensionnement du graphique
    .Height = 242.6456692913 '8.56 cm
    .Width = 571.7480314961 '20.17 cm
End With

et là le graphique est bien positionné (j'ai mis des nombres au pif pour tester). En revanche le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With wsGCD1.Shapes(nomGCD)
    'placement du graphique (coin superieur gauche)
    .Left = Range("H34").Left
    .Top = Range("H34").Top
 
    'redimensionnement du graphique
    .Height = 242.6456692913 '8.56 cm
    .Width = 571.7480314961 '20.17 cm
End With

ne marche pas...

[ARTURO83]

Bonsoir

Hormis le remplacement de "Shapes(nomGCD)" par "ChartObjects("Graphique 1")", ça fonctionne bien

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub e()
    Set wsGCD1 = ActiveSheet
    With wsGCD1.ChartObjects("Graphique 1")
       .Left = Range("H34").Left
       .Top = Range("H34").Top
       .Height = 242.6456692913 '8.56 cm
       .Width = 571.7480314961 '20.17 cm
    End With
End Sub

L'avez -vous fait tourner en pas à pas?

Cdlt

[salseropom]

Bonjour,

j'ai fait tourner votre code au pas à pas. Excel rentre bien dans les lignes, celles qui redimensionnent la taille du graphique sont bien prises en compte, mais pas celles qui le repositionnent au coin supérieur gauche de la cellule H34. Je n'arrive vraiment pas à comprendre ce qui bloque...