[VBA-Excel] Ajouter un dernier onglet

Version imprimable

24/01/2008, 09h44
Girvy

[VBA-Excel] Ajouter un dernier onglet
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:

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.
24/01/2008, 10h09
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...
24/01/2008, 10h19
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:

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

Comment je peux faire ?

Bonjour,

Tu peux décomposer l'instruction:

Code:

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/