Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Suppression d'une feuille sans msgbox

Suppression d'une feuille sans msgbox

3 réponses
Avatar
Isa
Bonjour,

Je veux pouvoir supprimer une feuille si elle existe déjà sans que
l'utilisateur ait à répondre au message affiché.
J'ai donc fait le code suivant :
Application.DisplayAlerts = False
ActiveSheet.Delete 'Détruit la feuille créée
Application.DisplayAlerts = True

Ca ne marche pas. Ca marche si j'enlève les DisplayAlerts et que je réponds
à la question.

J'ai également pensé à une autre solution.
C'est de ne pas effacer ma feuille mais de la remettre à blanc.
Comment peut-on faire cela ?

D'avance merci.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Remet à blanc les cellules:

Cells.Clear

JB

On 4 avr, 15:40, Isa wrote:
Bonjour,

Je veux pouvoir supprimer une feuille si elle existe déjà sans que
l'utilisateur ait à répondre au message affiché.
J'ai donc fait le code suivant :
        Application.DisplayAlerts = False
        ActiveSheet.Delete                  'D étruit la feuille créée
        Application.DisplayAlerts = True

Ca ne marche pas. Ca marche si j'enlève les DisplayAlerts et que je ré ponds
à la question.

J'ai également pensé à une autre solution.
C'est de ne pas effacer ma feuille mais de la remettre à blanc.
Comment peut-on faire cela ?

D'avance merci.


Avatar
Tatanka
Salut Isa,

Curieux, chez moi pas de problème!

Sub Détruit_Feuille_Active()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

Serge

"Isa" a écrit dans le message de news:
Bonjour,

Je veux pouvoir supprimer une feuille si elle existe déjà sans que
l'utilisateur ait à répondre au message affiché.
J'ai donc fait le code suivant :
Application.DisplayAlerts = False
ActiveSheet.Delete 'Détruit la feuille créée
Application.DisplayAlerts = True

Ca ne marche pas. Ca marche si j'enlève les DisplayAlerts et que je réponds
à la question.

J'ai également pensé à une autre solution.
C'est de ne pas effacer ma feuille mais de la remettre à blanc.
Comment peut-on faire cela ?

D'avance merci.


Avatar
Philippe.R
Bonjour,
Pour effacer les données de la feuille :
Sheets("machin").Activate
Cells.clear
devrait convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Isa" a écrit dans le message de
news:
Bonjour,

Je veux pouvoir supprimer une feuille si elle existe déjà sans que
l'utilisateur ait à répondre au message affiché.
J'ai donc fait le code suivant :
Application.DisplayAlerts = False
ActiveSheet.Delete 'Détruit la feuille créée
Application.DisplayAlerts = True

Ca ne marche pas. Ca marche si j'enlève les DisplayAlerts et que je
réponds
à la question.

J'ai également pensé à une autre solution.
C'est de ne pas effacer ma feuille mais de la remettre à blanc.
Comment peut-on faire cela ?

D'avance merci.