Suppression suivie d'une création de feuille

Dull

XLDnaute Barbatruc

• 29 Septembre 2011

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #3

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

Bonjour


On peut encore simplifier la simplification de Dull

Code:

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 29 Septembre 2011

• #4

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 29 Septembre 2011

• #5

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif