Déplacer un graphique avec macro

Bonjour à tous,

J'essaye de déplacer un graphique automatiquement à l'aide d'une macro mais malheureusement j'ai un problème concernant le nom du graphique. ça me sélectionne à chaque fois le nom complet mais les noms changent tous les jours du coup je cherche une formule générique ...

VOila mon code

Code:

---

1 2 3 4 5 6 7

ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 15").ScaleWidth 1.7916666667, msoFalse, _ msoScaleFromBottomRight ActiveSheet.Shapes("Graphique 15").ScaleHeight 1.39409704, msoFalse, _ msoScaleFromBottomRight

---

Je souhaiterai qu'au lieu d'avoir "Graphique 15" que ce soit pour le graphique qui vient d'être créé ou celui que je sélectionne ...

Merci de votre aide

Bonjour

Code:

---

1 2 3 4 5 6 7

Dim a As Chart   Set a = ActiveChart a.ChartArea.Height = 105 a.ChartArea.Width = 320 a.ChartArea.Left = 130 a.ChartArea.Top = 100

---

Pas besoin du reste
Une autre methode consisterait a compter le nombre de chart sur la feuille pour modifié celui dont le nombre est le plus grand(donc le dernier créer)

le precedent post et pour modifier le graphique selectionner
Pour modifier le dernier graphique

Code:

---

1 2 3 4 5 6 7

Dim a As Chart i = Shapes.Count Set a = Me.Shapes(i).Chart a.ChartArea.Height = 320 a.ChartArea.Width = 320 a.ChartArea.Left = 130 a.ChartArea.Top = 100

---

Impeccable !

Merci :)