Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer Message Alerte [VBA]

ljoue

XLDnaute Junior
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

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Occasionnel
Salut ljoue,

Tu peux faire :

Code:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…