macro pour creer un graphe mais affiche un autre avant
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??
Cacher l'affichage d'un graphique temporaire non voulu dans Excel VBA
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 :
