Bonjour,

Je cherche à créer un graphique (sur sa propre page), en le positionnant aprés une page donnée.

J'ai essayé en utilisant l'argument after de la méthode Add, mais il me place toujours la page avant et non aprés

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim oSh     As Worksheet
Dim oChart As Chart
 
    Set oSh = Sheets("Prev_Et_Vtes")
    Set oRg = oSh.Cells(1, 1).CurrentRegion
    oSh.Activate
    oRg.Activate
 
 
    Set oChart = Charts.Add(after:=oSh)
J'ai essayé aussi en plaçant en dernière position
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set oChart = Charts.Add(after:=Sheets(Sheets.Count))
Même résultat


Je vais me débrouiller autrement... mais j'aimerai bien comprendre où est ma boulette

EDIT:
ça marche en le faisant aprés coup:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Set oChart = Charts.Add
oChart.Move , Sheets(Sheets.Count)