Supprimer un Onglet si il existe

[sonskriverez]

Bonjour le forum,

J'ai un nom d'onglet dans une variable "flag" et je voudrais en pouvoir deleter l'onglet si il porte le même nom que ma variable.

Merci de votre aide

 

[Pierrot93]

Re : Supprimer un Onglet si il existe

Bonjour,

regarde peut être ceci :

Option Explicit
Sub test()
Dim flag As String
flag = "NomOnglet"
On Error Resume Next
Sheets(flag).Delete
On Error GoTo 0
End Sub

bonne journée
@+

Edition : bonjour PierreJean, aarf oublié le "displayalerts" moi....

 

[pierrejean]

Re : Supprimer un Onglet si il existe

Bonjour sonskriverez

A tester

Sub efface()
flag = "Feuil1"
For Each sh In Sheets
 On Error Resume Next
   Application.DisplayAlerts = False
     If sh.Name = flag Then sh.Delete
   Application.DisplayAlerts = True
 On Error GoTo 0
Next
End Sub

Edit : Salut Pierrot

 

[sonskriverez]

Re : Supprimer un Onglet si il existe

Bjr Les pierrots

Merci beaucoup les 2 solutions fonctionnent

 

[Si...]

Re : Supprimer un Onglet si il existe

salut

sans boucle !

Sub efface()
  'Flag étant initialisée
  On Error Resume Next
  Application.DisplayAlerts = 0
  Sheets(Flag).Delete
  Application.DisplayAlerts = -1
  On Error GoTo 0
End Sub