Supprimer une feuille automatiquement sans le message d'alerte

nat54

XLDnaute Barbatruc

• 27 Octobre 2006

• #2

Re : Supprimer une feuille automatiquement sans le message d'alerte

Bonjour,

C'est risqué, non ?
C'est pour appliquer comment ? via VBA ?



Sub Supprimer_feuille()

Application.DisplayAlerts = False

Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = True

End Sub

 

Vote positif 0 Vote négatif

M

Moa

XLDnaute Occasionnel

• 27 Octobre 2006

• #3

Re : Supprimer une feuille automatiquement sans le message d'alerte

Ou tout simplement, sans besoin de sélectionner la feuille d'abord :

Sub EffaceFeuille2()
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
End Sub

@ +++

ChrisOne

 

Vote positif 0 Vote négatif

lebarbo

XLDnaute Occasionnel

• 27 Octobre 2006

• #4

Re : Supprimer une feuille automatiquement sans le message d'alerte

merci nickel !!!!

 

Vote positif 0 Vote négatif