Insertion d'un feuille excel par vb

[Clo]

Bonjour Forum,


J'aimerais savoir comment insérer une nouvelle feuille via VB et que cette feuille se retrouve à la fin de tout mes onglets.

Voci ce que j'ai pu faire :

Sheets.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Move After:=Sheets(4)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "223"


Par contre je ne peux effectuer l'opération suivante :
Sheets("Feuil1").Move After:=Sheets(4)

car les # de feuilles vont toujours changer dans le temps, ce qui me demanderait d'effectuer du VB cas par cas. Peut-on plutôt définir dans cette dernière opération, un code qui ressemblerais comme suit :

Sheets("Feuil1").Move After:=" dernière feuille "

Merci grandement pour votre aide et vos suggestions.

Clo 🙂

 

[lacorse33]

Re : Insertion d'un feuille excel par vb

Bonsoir Clo,

Peux-tu essayer ce qui suit ?

Sheets("Feuil1").Move After:=Sheets(Sheets.Count)

A+

 

[Pierrot93]

Re : Insertion d'un feuille excel par vb

Bonjour Clo, Lacorse, le Forum

Pour insérer une nouvelle feuille tu peux aussi utiliser le code ci dessous :

Sub test()
Dim MaFeuille As Worksheet

Set MaFeuille = Sheets.Add(, Sheets(Sheets.Count))
MaFeuille.Name = "toto"

End Sub

A noter la méthode "MOVE" déplace une feuille mais n'en insére pas de nouvelle.

Bonne journée à tous
@+