VBA : supprimer une feuille si elle existe

vbacrumble

XLDnaute Accro

• 10 Mai 2009

• #2

Re : VBA : supprimer une feuille si elle existe

Bonsoir


Une façon de faire pour tester la présence d'une feuille.

Code:

Sub macro1()
On Error Resume Next
Worksheets("Feuil4").Activate
MsgBox (IIf(Err <> 0, "Cette feuille n'existe pas.", "Cette feuille existe.")), vbInformation, "TEST PRESENCE FEUILLE"
On Error GoTo 0
End Sub

D'autres à consulter dans les archives du forum en utilisant le moteur de recherche du forum
Excel Downloads Forums - Recherche dans les forums

 

Dernière édition: 10 Mai 2009

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 10 Mai 2009

• #3

Re : VBA : supprimer une feuille si elle existe

Bonsoir à tous,

Tu peux egalement essayer ceci :

Sub Test()
Application.DisplayAlerts = False
For Each X In Sheets
If X.Name = "Feuil4" Then X.Delete
Next
Application.DisplayAlerts = True
End Sub

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 10 Mai 2009

• #4

Re : VBA : supprimer une feuille si elle existe

Bonsoir a tous

Milles excuses de squater ce fil, mais il ce trouve que , dans un de mes programmes, je cherche justement a pourvoir ,via un Usf pouvoir supprimer une feuille que j'aurais sélectionné dans une Cbx
et que cette Cbx soit alimentée, auto, si je créé de nouvelles feuilles
Merci de votre compréhension, et de vos réponse
je vous en remercie vivement

Christian

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 10 Mai 2009

• #5

Re : VBA : supprimer une feuille si elle existe

Bonsoir,

Un exemple ci-joint

 

Pièces jointes

• Classeur1.xls

  43.5 KB · Affichages: 875
• Classeur1.xls

  43.5 KB · Affichages: 900
• Classeur1.xls

  43.5 KB · Affichages: 934

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 11 Mai 2009

• #6

Re : VBA : supprimer une feuille si elle existe

Bpnjour a tout le Forum

Merci Catrice, en fait il ne ma fallait que le Code Supprimer
le resqt je l'avais,mais j'ai omis de mettre mon fichier, exemple en piéce jointe
Si toutefois cela peut interresser une Personne , je met ce bout de Fichier,
Merci beaucoup a nouveau
Bonne journée

 

Pièces jointes

• Affiche_Masque_Suprrime Onglets.xls

  54.5 KB · Affichages: 790

Vote positif 0 Vote négatif