supprimer une feuille au lancement de la macro

JeanMarie

XLDnaute Barbatruc

• 17 Juillet 2006

• #2

Re : supprimer une feuille au lancement de la macro

Bonjour

Rajoute dans ton code

Application.DisplayAlerts = False
Sheets("Feuil4").Delete
Application.DisplayAlerts = True

Cliquez pour agrandir...

La première ligne désactive l'affichage d'une alerte de suppression de feuille, la dernière ligne réaffecte l'affichage d'alerte d'Excel.

@+Jean-Marie

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 17 Juillet 2006

• #3

Re : supprimer une feuille au lancement de la macro

bonjour ptit linda, re jean marie 🙂


en complement, à la réponse de JM, en testant préalablement l'existence de la feuille :

Sub Bouton1_QuandClic()
If feuilleexiste("feuil4") = True Then
Application.DisplayAlerts = False
Sheets("Feuil4").Delete
Application.DisplayAlerts = True
End If
End Sub

Public Function feuilleexiste(t As String) As Boolean
On Error Resume Next
feuilleexiste = Not ThisWorkbook.Worksheets(t) Is Nothing
End Function

salut

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 17 Juillet 2006

• #4

Re : supprimer une feuille au lancement de la macro

Bonjour a tous,

Entre la version de Jean Marie et celle d'Hervé, moi je te propose :

PHP:

Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
'le reste de ton code

@+

 

Vote positif 0 Vote négatif

P

ptite_linda

Guest

• 17 Juillet 2006

• #5

Re : supprimer une feuille au lancement de la macro

Merci pour vos réponses,
j'ai utilisé celle de porcinet82, ça fonctionne.
Merci encore.

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 17 Juillet 2006

• #6

Re : supprimer une feuille au lancement de la macro

re,

Apres quelques explication avec mon ami Hervé, je te conseillerai plutot d'utiliser (si vraiment tu tiens a utiliser mon code) le code avec la modif suivante. Je me suis un peu planté dans la signification de On Error Resume Next, donc il faut absolument mettre On Error Goto 0 pour ne pas avoir d'éventuel problème dans la suite de la macro en cas d'erreurs diverses.

Application.DisplayAlerts = False
On Error Resume Next
Sheets("Feuil1").Delete
On Error Goto 0
Application.DisplayAlerts = True
'le reste de ton code

@+

 

Vote positif 0 Vote négatif

J

j-phi

Guest

• 4 Janvier 2007

• #7

Re : supprimer une feuille au lancement de la macro

Bonjour,

j'ai fait la meme chose pour effacer une feuille sans alerte mais il se trouve que les lignes de code le code suivant celles de l'effacement de la feuille ne marchent pas...
Comme si la macro "perdait" la main. Est-ce qu'il y a quelque chose que je puisse faire ?

Merci d'avance pour votre aide,

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 4 Janvier 2007

• #8

Re : supprimer une feuille au lancement de la macro

Salut,

Difficile de t'aider comme ca. Met nous ton code et/ ou ton fichier et on verra ce qu'on peut faire, le problème provient peut etre d'ailleurs.

@+

 

Vote positif 0 Vote négatif