Discussion :

[Girvy]

Bonjour à tous,

J'ai un problème sur mon fichier Excel et je ne sais pas d'où il vient.

Je souhaite ajouter un onglet après le dernier, mais même avec le code identique au tutoriel Excel, il me le place toujours avant le dernier onglet.

Code :

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

1
2
 
ThisWorkbook.Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count), Type:=xlChart

J'ai essayé avec Before, et il me le place au même endroit.

Que dois-je faire pour que ça marche bien ?

PS: Quand je remplace "Sheets.Count" par le nom de mon premier onglet, il me le place bien après ce dernier. Donc le code marche, sauf pour le dernier.

[canichon]

ça ne marche pas parce que tu as bougé les onglets... et ton "dernier" onglet représenté par ThisWorkbook.Sheets.Count n'est, en fait, pas le dernier onglet physiquement représenté

C'est pas tres clair... j'explique :
tu as 3 onglets : feuil1, feuil2, feuil3

si tu appliques ton code, ça marche... feuil1, feuil2, feuil3, feuil4

MAINTENANT, tu as 3 onglets : feuil1, feuil3, feuil2

si tu appliques ton code, ça marche pas... feuil1, feuil3, feuil4, feuil2

remets tes onglets dans le bon ordre...

[Girvy]

En fait, ce n'est pas exactement ça.

J'ai une liste d'onglet, comme la suivante:
Feuil1, Feuil2, ..., Feuil 8, Graph1

Et je souhaite ajouter une feuille graphique après Graph1, et ensuite en insérer d'autres, toujours après les autres.

Je croyais que le .Count du code suivant marchait pour tous les types de feuilles (worksheet ou Graph) mais apparement pas.

Code :

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

ThisWorkbook.Sheets.Add after:=Sheets(ThisWorkbook.Sheets.Count), Type:=xlChart

Comment je peux faire ?

[tirex28]

Bonjour,

Tu peux décomposer l'instruction:

Code :

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

1
2
3
4
5
    Dim MyChart As Chart
    With ThisWorkbook
        Set MyChart = .Sheets.Add(Type:=xlChart)
        MyChart.Move after:=.Sheets(.Sheets.Count)
    End With

Cordialement,

Tirex28/