Discussion :

[mout1234]

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)

[decondelite]

Fais attention: tu utilise la méthode Add à la collection de feuilels de graphiques.

Il faudrait que tu fasses Sheets.Add pour positionner ton graphique après n'importe quelle feuille, que ce soit elle-même un graphique ou alors une feuille de calcul.

[mout1234]

Fais attention: tu utilise la méthode Add à la collection de feuilels de graphiques.

Il faudrait que tu fasses Sheets.Add pour positionner ton graphique après n'importe quelle feuille, que ce soit elle-même un graphique ou alors une feuille de calcul.

Merci pour cette piste intéressante, mais je viens d'essayer ceci:

Code :

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

Set oChart = Sheets.Add(,oSh,xlChart)

Cela fait la même chose: la page graphique se positionne avant ma feuille.

En testant plus finement, je viens de réaliser que

• le problème se produit uniquement lorsque la feuille référencée est en dernière position.
• Il n'y a pas de pb si j'ajoute une feuille plutôt qu'un graphique
• En faisant le mov séparément, cela marche dans tous les cas.

[decondelite]

Alors là je dis mystère...

A mon avis il s'agit d'un défaut de conception du VBA Excel, mais je préfère ne pas trop m'avancer.