Suppression suivie d'une création de feuille

[CHALET53]

Bonjour,

J'avais une procédure que j'ai simplifiée et qui fonctionnait sans problème.
Pouvez-vous m'expliquer pourquoi cette procédure s'arrête après le Delete de la feuille et n'exécute pas la suite de la procédure (la phase création d'une nouvelle feuille).

Merci d'avance

 

[Dull]

Re : Suppression suivie d'une création de feuille

Salut CHALET53, le Forum

Ta proc fonctionne sans problème avec Excel 2003 et 2010 et elle peut être encore simplifiée 🙂

Sub SUPPRIMER_FEUILLE()

Application.DisplayAlerts = False
Sheets("TOTO").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "TATA"
End Sub

Bonne Journée

 

[TempusFugit]

Re : Suppression suivie d'une création de feuille

Bonjour


On peut encore simplifier la simplification de Dull

Sub SUPPRIMER_FEUILLE()
Application.DisplayAlerts = False
Sheets("TOTO").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "TATA"
End Sub

 

[CHALET53]

Re : Suppression suivie d'une création de feuille

Re,

Elle ne fonctionnait toujours pas. J'ai fermé Excel, réouvert Excel et là ça marche.
Le fait de m'avoir confirmé qu'elle fonctionnait m'a mis sur cette piste (puisqu'elle fonctionnait par le passé)

Merci Dull et TempusFugit

 

[Dull]

Re : Suppression suivie d'une création de feuille

Re le Fil, TempusFugit 🙂, le fil

Avait même pô vu 😕😡😛🙂

Sub SUPPRIMER_FEUILLE()
Application.DisplayAlerts = False
Sheets("TOTO").Delete
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "TATA"
End Sub

Bonne Journée