Copier coller des graphiques en vba

[Matt51]

Bonjour à vous,

J'ai une feuille excel avec des graphiques dessus. Je désire programmer une macro qui ferait des copier coller de tous les graphes de ma feuille vers une autre.

J'ai pensé à une boucle For each mais j'achoppe sur le code.

Merci d'avance.

A+, Matt.

 

[porcinet82]

Salut Matt51,

Avec le code suivant, ca devrait faire ce que tu souhaites, reste plus qu'a gérer l'endroit ou tu colles le graphiques sur l'autre feuille 😉.

Sub LesGraphiques()
Dim Cht As ChartObject

For Each Cht In ActiveSheet.ChartObjects
    Cht.Copy
    Sheets('feuil2').Paste
Next Cht
End Sub

@+