Discussion :

[J.Michel]

Bonjour,
Je souhaites tout simplement ajouter un graphique après une feuille Excel.
Je précise que mon classeur ne contient qu'une seule feuille (donc index 1).

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub AddChart()
    Charts.Add(After:=Sheets(1)).Name = "MonGraph"
End Sub

Et bien le graphique se créé systématiquement avant la feuille

[Godzestla]

Toi y en avoir trouvé bug.

Meme chose chez moi.

Solution cucu (qui marche aussi quand-meme):

Tu ajoutes un sheet
Tu tournes ta macro
Tu Supprimes le sheet nouveau.

Merci bill gates !!!

[J.Michel]

Toi y en avoir trouvé bug.

Eh ben moi y a n'a ben content

Par contre ta solution fonctionne (même si elle est cucu mais il faut bien palier l'ingéniosité Microchiot ), mais aurais tu une idée pour ne pas avoir le message de confirmation de suppression lors du delete.

Edition:
DisplayAlerts

Autant pour moi il va être temps d'aller au dodo

[tirex28]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Charts.Add
    .Name = "Mongraph"
    .Move after:=Sheets(2)
End With

Sinon pour supprimer une feuille sans message de confirmation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

A remettre a True ensuite bien evidemment.

Cordialement,

Tirex28/

[J.Michel]

Salut Tirex28

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Charts.Add
    .Name = "Mongraph"
    .Move after:=Sheets(2)
End With

Ca marche

Merci