Corriger l'erreur de collage de graphique VBA

Bonjour

Je voudrais vous remercier à l'avance d'avoir profité de l'occasion, pour aider à corriger une erreur de VBA que j'ai reçue.

Le code est utilisé pour copier le graphique à partir d'une feuille de calcul active et le coller sur chaque autre feuille de calcul du classeur, puis ajuste les formules de série dans chaque graphique collé pour créer un lien vers sa propre feuille de calcul. Voici le VBA ci-dessous:

Sub CopyChartFromActiveSheetToAllSheets()

' define chart to copy

Dim SheetActive As Worksheet

Set SheetActive = ActiveSheet

Dim OrigChart As ChartObject

Set OrigChart = SheetActive.ChartObjects(1)

Dim SheetTarget As Worksheet

For Each SheetTarget In ThisWorkbook.Worksheets

If SheetTarget.Name <> SheetActive.Name Then

' copy and paste chart

OrigChart.Copy

SheetTarget.Paste

Dim CopyChart As ChartObject

Set CopyChart = SheetTarget.ChartObjects(1)

CopyChart.Top = OrigChart.Top

CopyChart.Left = OrigChart.Left

' adjust series formulas

Dim srs As Series

For Each srs In CopyChart.Chart.SeriesCollection

Dim SeriesFormula As String

SeriesFormula = srs.Formula

SeriesFormula = Replace(SeriesFormula, SheetActive.Name, SheetTarget.Name)

srs.Formula = SeriesFormula

Next

End If

Next

End Sub

Si vous êtes prêt à soutenir. Veuillez consulter le lien complet du classeur Excel ci-dessous.

Merci d'avance

Le graphique se trouve dans la feuille de calcul Albanie.

Bonjour,

Peut-être parce que le code doit coller le graphique dans tous les onglets, dont le premier ("IR"), qui ne contient pas les mêmes données que les autres..

Essaie en rajoutant cette condition :

......
For Each SheetTarget In ThisWorkbook.Worksheets
    If SheetTarget.Name <> SheetActive.Name And SheetTarget.Name <> "IR" Then
    .....

Merci cousinhub.

Tu as raison. L'erreur provenait de la première feuille de calcul, cela empêchait le formulaire de se dupliquer correctement. J'apprécie vraiment le temps et les efforts nécessaires pour m'aider.

Merci pour le soutien