Déplacer un graphique avec une macro

[Romai]

Bonjour,
j'ai réaliser une macro qui crée plusieur graphiques.
Le problème est qu'ils se mettent les un sur les autres.
Comment faire pour pouvoir les déplacés.

 

[Pierrot93]

Re : Déplacer un graphique avec une macro

Bonjour,

peut être comme ceci, positionne le 1er graph par rapport à la cellule B2 :

Sub test()
Dim c As ChartObject, c1 As ChartObject
With Sheets("NomFeuille")
    For Each c In .ChartObjects
        If c.Index = 1 Then
            c.Top = .Range("B2").Top
            c.Left = .Range("B2").Left
        Else
            Set c1 = .ChartObjects(c.Index - 1)
            c.Top = c1.BottomRightCell.Offset(2, 0).Top
            c.Left = c1.Left
        End If
    Next c
End With
End Sub

bon après midi
@+

 

[Romai]

Re : Déplacer un graphique avec une macro

Merci,
mais je viens d'essayer, sa ne marche pas pour moi.

Ma macro crée un certain nombre de graphiques, j'arrive à déplacer les deux premiers avec

ActiveSheet.ChartObjects(i).Top = Emplac_haut
ActiveSheet.ChartObjects(i).Left = Emplac_gauche

ensuite je change la colonne de données pour deux nouveaux graphique mais ceux-là je n'arrive pas à les déplacés.

 

[Pierrot93]

Re : Déplacer un graphique avec une macro

Re,

cela veut dire quoi ?

mais je viens d'essayer, sa ne marche pas pour moi.

message d'erreur ou pas le résultat attendu ??? pour ce dernier cas quel est t'il ?

 

[Romai]

Re : Déplacer un graphique avec une macro

Alors pour ce que vous m'avez donné, ça marche, j'ai du me tromper. Donc oui sa fonctionne 🙂. Merci.
Donc je vais l'adapté à ma macro.

Dans mon cas à moi, dans mon premier tour je donne des valeurs dans Emplac_haut et Emplac_gauche, le tableau vas au bon endroit, au second tous de ma boucle pareil, mais après au tours suivants ils se situent tous au même endroit.

 

[Pierrot93]

Re : Déplacer un graphique avec une macro

Re,

comprends pas trop... pour t'en dire plus, il faudrait connaitre précisement la logique de détermination du positionnement de tes graph sur la feuille...

 

[Romai]

Re : Déplacer un graphique avec une macro

Bonjour,

Explication: sur ma feuille, j'ai une colonne date et heure, deux colonnes Valeurs. Ensuite j'ai deux boutons: l'un crée des graphiques pour la premiere valeur suivant le nombre de valeur et les place les un apres les autres correctement. J'ai un deuxieme bouton qui crée des graphiques pour la deuxieme valeur.

Quand j'appuie sur le bouton 1, mes graphiques (valeur1) s'affichent correctement. Ensuite quand je clique sur le second bouton, les graphiques (Val2) s'affichent les un sur les autres (endroit par defaut à la création d'un graphique) et mes graphes (val1) prennent les places qui sont normalement pour les graphes val1.

Merci.

 

[Romai]

Re : Déplacer un graphique avec une macro

Bon j'ai reussi 😀
Le veritable probleme etait que enfin de compte quand je donnai l'odre de deplacer le graphique precedement créé il ne savait pas lequelle déplacer alors il déplacer le premier.

J'ai trouver sur un autre forum comment faire pour savoir le dernier graphe créé

'Initialisation des valeurs d'emplacement des graphiques
    Emplac_haut = 90
    Emplac_gauche = 525
         
'Compte le nombre de graphiques dans la feuille
        NbGraph = ActiveSheet.ChartObjects.Count

'Le nouveau graphique correspond à l'index le plus élevé
        With ActiveSheet.ChartObjects(NbGraph)
                .Top = Emplac_haut
                .Left = Emplac_gauche
        End With

'Augmentation emplacement des graphiques
Emplac_gauche = Emplac_gauche + 375

Est voila j'ai resolu mon probleme.