Problème de déplacement des courbes sur Excel VBA

Bonjour,

J'ai enregistré des macro sur un fichier excel qui trace des graphes (4 graphes). Le problème c'est quand j'exécute la macro sur d'autres PC, les courbes se déplacent aléatoirement.

Y a t'il un moyen pour figer les courbes générées par une macro vba sur n'importe quelle plateforme??

D'avance merci.

Waiting for your repay

Bonjour,

J'attends toujours vos réponses, j'en ai vraiment besoin.

Merci

Bonjour,

Un petit fichier pour exemple?

Cdlt

Bonjour,

Veuillez trouver ci-attache un fichier de démonstration. Normalement quand vous allez exécuter la macro 'Macro1' vous devez avoir deux courbes, la première sera placée dans le rectangle bleu et l'autre dans le rouge.

Mon problème, c'est quand j'exécute cette macro sur d'autres PC les deux graphes se positionnent sur aléatoirement (chaque fois dans un coin !!)

Merci pour votre aide.

Slts

Bonjour

Tu peux tester cela:

Sub Macro1()
Dim Graph As ChartObject

    Sheets("Feuil1").Select
    On Error Resume Next
    For Each Graph In ActiveSheet.ChartObjects
    Graph.Delete
    Next
    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlLine
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Name = "='IS13018'!$B$1"
        .SeriesCollection(1).Values = "='IS13018'!$B$1"
        .SeriesCollection(1).Values = "='IS13018'!$B$2:$B$52"
        .SeriesCollection(1).XValues = "='IS13018'!$A$2:$A$52"
        End With
    With ActiveSheet.Shapes(1)
        .Top = Cells(2, 3).Top
        .Left = Cells(2, 3).Left
    End With

    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlLine
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Name = "='IS13018'!$C$1"
        .SeriesCollection(1).Values = "='IS13018'!$C$2:$C$52"
        .SeriesCollection(1).XValues = "='IS13018'!$A$2:$A$52"
    End With
    With ActiveSheet.Shapes(2)
        .Top = Cells(2, 9).Top
        .Left = Cells(2, 9).Left
    End With
    Range("C23").Select
End Sub

Merci pour ton aide.

Slts