XL 2019 Bloquer une feuille en dernière position d'un classeur

[Nando71]

Bonjour

Je souhaite lors de l'ajout automatique de nouvelle feuille dans un classeur la feuille nommée index soit toujours en dernier

Merci pour votre aide

 

[Jacky67]

Bonjour

Je souhaite lors de l'ajout automatique de nouvelle feuille dans un classeur la feuille nommée index soit toujours en dernier

Merci pour votre aide

Bonjour,
Ce code à placer dans le Thisworkbook du classeur en question
Le feuille nommée "index" doit exister

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sheets("index").Move After:=Sheets(Sheets.Count)
End Sub

 

[Nando71]

Bonsoir

Cela fonctionne très bien quand j'ajoute une feuille en manuel mais lorsque j'active ma macro pour générer automatiquement un feuille la feuille créer s'ajoute après l'index

 

[Jacky67]

Bonsoir

Cela fonctionne très bien quand j'ajoute une feuille en manuel mais lorsque j'active ma macro pour générer automatiquement un feuille la feuille créer s'ajoute après l'index

RE..
Sans voir la macro, ou mieux le classeur, ce sera difficile de répondre

 

[Nando71]

En quelques mots si tu inserts un chiffre à partir de C5 dans la feuille Synthèse cela te crée une nouvelle feuille et cette feuille dois s'insérer entre la feuille Type et la feuille Index.

Par la suite je bloque aussi sur le fait d'afficher la valeur S67 de la feuille concernée par la cellule C8 de la feuille tableau de bord. Cette valeur doit être affichée sous la colonne dépense en N8 du TB.

Merci infiniment

 

[Jacky67]

En quelques mots si tu inserts un chiffre à partir de C5 dans la feuille Synthèse cela te crée une nouvelle feuille et cette feuille dois s'insérer entre la feuille Type et la feuille Index.

Par la suite je bloque aussi sur le fait d'afficher la valeur S67 de la feuille concernée par la cellule C8 de la feuille tableau de bord. Cette valeur doit être affichée sous la colonne dépense en N8 du TB.

Merci infiniment

RE..
Il y a des formules dans le classeur qui ne fonctionne pas sur ma version xl et une erreur sur
==>miseencirculation = Valeur.Offset(0, 11)
Néanmoins, le code

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

Placer en fin de la macro ==>Sub Creer_Supprimer(ByVal Valeur As Range)
devrait faire

 

[eriiic]

Bonsoir à tous,
ou placer ta feuille crée ici

Sheets("ta_feuille").Move After:=Sheets(Sheets.Count-1)

pour la mettre en avant-dernier.
ou before:=Sheets(Sheets.Count)
eric

 

[Nando71]

RE..
Il y a des formules dans le classeur qui ne fonctionne pas sur ma version xl et une erreur sur
==>miseencirculation = Valeur.Offset(0, 11)
Néanmoins, le code

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

Placer en fin de la macro ==>Sub Creer_Supprimer(ByVal Valeur As Range)
devrait faire

Super merci beaucoup pour ton aide