Boucle Changement type graphique

Bonjour à tous !

Je cherche à changer le type de graphique selon un modèle défini d'une centaine de graphiques. je voulais savoir s'il était possible de faire une boucle a partir de ce modèle pour que cela me change tous les graphiques d'un coup.

Sub ChangementGraphique()

For i = 1 To 80

ActiveSheet.ChartObjects("Graphique i").Activate

ActiveChart.PlotArea.Select

ActiveChart.ApplyChartTemplate ( _

"C:\Users\fr101812\AppData\Roaming\Microsoft\Templates\Charts\Graphique etiquetes penchées.crtx" _

)

Next

End Sub

j'ai vu la solution de la boucle "For" mais cela ne fonctionne pas. Est ce que quelqu'un aurait une solution ?

Joyeuse fêtes à tous et bonne soirée !

Bonjour,

essaie ainsi :

Sub ChangementGraphique()
Dim objChart As ChartObject, i As Long
    With ActiveSheet
        For i = 1 To 80
            Set objChart = .ChartObjects(i)
            objChart.Chart.ApplyChartTemplate ("C:\Users\fr101812\AppData\Roaming\Microsoft\Templates\Charts\Graphique etiquetes penchées.crtx")
        Next
    End With
End Sub

Bonjour,

Merci pour votre réponse rapide.

l'execution m'affiche le message d'erreur " erreur d'exécution '1004' : Erreur définie par l'application ou par l'objet avec la ligne "Set objChart = .ChartObjects(i)" surligner en jaune

Avez vous une idée de ou cela peut venir ?

Bonjour,

Quelle est la valeur de i quand le message apparaît ?

Cdlt.