Supprimer Message Alerte [VBA]

[ljoue]

Bonjour à tous,

J'ai dans une de mes Macro un bout de code(Cf Code) qui Supprime plusieurs Feuilles du Classeur.
Le problème est qu'avant toute suppression des feuilles même par Macro Excel envoie un Message d'alerte 'Les feuilles sélectionnées contiennent des données. Pour supprimer définitivement cliquer sur Supprimer....'

Comment Faire pour désactiver ce Message d'alerte ?

Code :
Sheets('Liste Finale2').Select
ActiveWindow.SelectedSheets.Delete
'Envoie Message Alerte
Sheets('Liste Finale1').Select
ActiveWindow.SelectedSheets.Delete
'Envoie Message Alerte
Sheets('NAV N-1').Select
ActiveWindow.SelectedSheets.Delete
'Envoie Message Alerte
Sheets('NAV N').Select
ActiveWindow.SelectedSheets.Delete
'Envoie Message Alerte


Merci d'avance.
Cordialement,
Laurent

 

[Robert]

Bonsoir Laurent, bonsoir le forum,

place : Application.DisplayAlerts = False avant la suppression mais n'oublie surtout pas de rétablir par Application.DisplayAlerts = True après.

 

[Simons]

Salut ljoue,

Tu peux faire :

application.displayalerts = false

Par contre je n'ai pas tout ton code donc je ne sais pas ou placer la ligne..
A la rigueur tape cette ligne dans un module et cherche de l'aide pour savoir où la placer exactement..

Voila

 

[laurent45]

Bonsoir Laurent,

Je te propose ça. Mais il faut que le DisplayAlerts soit réactivé juste après. Sinon, tu n'auras plus un seul message d'alerte.

Sub Efface_Feuilles
Application.DispalyAlerts = False
Sheets('Liste Finale2').Delete
Sheets('Liste Finale1').Delete
...
Application.DisplayAlerts = True

End Sub

Voila.

@+

Laurent

Autant pour moi. J'ai été trop long à la frappe

Message édité par: Laurent45, à: 06/09/2005 17:24

 

[ljoue]

Bonsoir Robert, Laurent45, Simons,

Génial...Ca fonctionne parfaitement ! 😉

Merci à vous trois pour ces réponses !

@+
...et bonne soirée !

Laurent