supprimer une feuille au lancement de la macro

[ptite_linda]

Bonjour,
Je voudrai supprimer un feuille au début de l'exécution de ma macro,
quelle syntaxe je peux utiliser pour dire par exemple :
si "feuil 1" existe alors la supprimer.

 

[JeanMarie]

Re : supprimer une feuille au lancement de la macro

Bonjour

Rajoute dans ton code

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

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

 

[Hervé]

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

 

[porcinet82]

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 :

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

@+

 

[ptite_linda]

Re : supprimer une feuille au lancement de la macro

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

 

[porcinet82]

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

@+

 

[j-phi]

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,

 

[porcinet82]

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.

@+