macro pour creer un graphe mais affiche un autre avant [Résolu]

[totau]

salut
j'ai crée une macro qui génère un graphique"graphique 1" qui s'affiche dans la feuille sur laquelle je travaille, sauf que au moment de l'affichage de ce graphique une autre feuille se crée contenant un graphique d'un autre genre et se supprime avant l'affichage du graphe programmé

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub ari()
 
Sheets("T").Select 
ActiveWindow.SmallScroll Down:=-9
 
Dim plage As Range
Set plage = Application.Union(Range(Cells(6, 2), Cells(7, 2 + 13 - n)), Range(Cells(31, 2), Cells(32, 2 + 13 - n)))
 
Charts.Add
 
ActiveChart.SetSourceData plage
ActiveChart.ChartType = xlLineMarkers
ActiveChart.Location Where:=xlLocationAsObject, Name:="T"
ActiveChart.Parent.Name = "Graphique1"

une solution??

[MattChess]

Pour éviter l'affichage du graphique temporaire non souhaité, essayez :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit ' Cacher l'affichage d'un graphique temporaire non voulu dans Excel VBA
 
Sub ari(ByVal n As Integer)
Dim rngPlage As Range
    Application.ScreenUpdating = False ' Cache l'affichage du graphique temporaire.
    Sheets("T").Select
    ActiveWindow.SmallScroll Down:=-9
    Set rngPlage = Application.Union(Range(Cells(6, 2), Cells(7, 2 + 13 - n)), _
                                     Range(Cells(31, 2), Cells(32, 2 + 13 - n)))
    Charts.Add ' Creer graphique
    ActiveChart.Location Where:=xlLocationAsObject, Name:="T"
    ActiveChart.ChartType = xlLineMarkers   ' Remonter le type du graphique AVANT
    ActiveChart.SetSourceData rngPlage      ' la source des données
    ActiveChart.Parent.Name = "Graphique1"
    Application.ScreenUpdating = True ' Restaure l'affichage. Le graphique final apparaît.
End Sub

Concernant l'ordre des déclarations, voir également :

• Quand l'axe n'est plus légendaire
• Dessiner deux courbes sur un graphique Excel VBA

[Theze]

Bonjour,

Regarde du coté de ChartObject pour un graphique incorporé à la feuille :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Graph As ChartObject
Set Graph = Sheets("T").ChartObjects.Add(50, 50, 800, 800)
 
With Graph.Chart
 
    .SeriesCollection.Add Source:=Plage
    '.
    '.
    'etc...
 
End With

Hervé.

[totau]

la solution de MattChess a fonctionée
merci à tous pour votre aide