Suppression Onglet

Bonjour

serait -il possible de faire un code vba qui me supprime tout les onglet à part 2

voici le code que j'ai fait mais ça me supprime tout les onglet

Sub Supprimer_Onglet()
Dim Ctr As Integer

  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
   End With

  For Ctr = Sheets.Count To 1 Step -1
    If Sheets(Ctr).Name <> ActiveSheet.Name Then
      Sheets(Ctr).Delete
    End If
  Next

End Sub

Bonjour

Normal. Tu supprimes tout sauf la feuille active.

Pour ne pas supprimer un second onglet, peut-être

 If Sheets(Ctr).Name <> ActiveSheet.Name Or Sheets(Ctr).Name <> Ton_Onglet

Cordialement

merci de ton aide

je dois faire comme ca?

    
For Ctr = Sheets.Count To 1 Step -1
        If Sheets(Ctr).Name <> ActiveSheet.Name Or Sheets(Ctr).Name <> "Feuil4" Then
        Sheets(Ctr).Delete
        End If
    Next

j'ai une erreur 1004

la methode Delete de la classe Worsheet a echoué

Bonjour

Sub Supprimer_Onglet()
Application.DisplayAlerts = False
Dim W As Worksheet
For Each W In ActiveWorkbook.Worksheets
If W.Name = ActiveSheet.Name Or W.Name = "Feuil4" Then
Else: W.Delete
End If
Next W
Application.DisplayAlerts = True
End Sub

Cordialement

merci beaucoup ton code marche très bien

Bonjour,

Essaie ainsi :

Public Sub DeleteSheets()
Dim ws As Worksheet
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    For Each ws In ActiveWorkbook.Sheets
        Select Case ws.Name
            Case ActiveSheet.Name, "Feuil4":
            Case Else: ws.Delete
        End Select
    Next ws
End Sub

merci beaucoup Jean-Eric

votre code marche également très bien