Supprimer feuilles actives

Salut tout le monde.

Je voulais savoir quel était le code VBA pour supprimer toutes les feuilles de mon classeur. Par exemple quand je n'avais qu'une feuille j'utilisais cette forumule "Sheets(ActiveSheet.Name).Delete" mais maintenant que j'en ai plusieurs je ne connais pas la formule pour supprimer les autres feuilles en même temps.

Merci par avance.

Bonjour,

Tu ne peux pas supprimer toutes les feuilles d'un classeur ! Un classeur doit contenir au moins une feuille, et qui plus est une feuille visible.

Ne serais-tu pas en train d'essayer de refourguer ce sujet :

https://forum.excel-pratique.com/post501315.html#p501315

sous une forme légèrement réaménagée parce que tu es infoutu d'expliquer ce que tu veux !

Je suggère donc que tu cesses de faire perdre du temps à tout le monde en multipliant les sujets et que tu mettes une bonne fois le classeur dont des feuilles sont à supprimer.

Si l'examen de ton classeur permet d'interpréter tes explications défectueuses à son propos, tu auras des réponses utilisables.

Sinon, il va falloir apprendre à t'exprimer dans un langage compréhensible par d'autres que toi-même...

Cordialement.

Bonjour,

Un premier exemple à adapter en sachant que ton classeur doit comporter au minimum une feuille.

Cdlt.

Public Sub Delete_Worksheets()
Dim ws As Worksheet
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Accueil" Then ws.Delete
    Next ws
End Sub

RE,

Bonjour MFerrand,

Pas vu ton message.

Cdlt.

Jean-Eric a écrit :

Bonjour,

Un premier exemple à adapter en sachant que ton classeur doit comporter au minimum une feuille.

Cdlt.

Public Sub Delete_Worksheets()
Dim ws As Worksheet
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "Accueil" Then ws.Delete
    Next ws
End Sub

---

RE,

Bonjour MFerrand,

Pas vu ton message.

Cdlt.

Est-il possible de rajouter des feuilles en plus de "Accueil" ?

Merci à toi.

Re,

Voir mon nouvel exemple dans ton autre message.

Cdlt.

Jean-Eric a écrit :

Re,

Voir mon nouvel exemple dans ton autre message.

Cdlt.

Merci je viens de voir ça mais je rencontre un soucis.

Re,

Si tu gardes ton souci pour toi, comment veux tu que l'on intervienne ?

Merci de joindre un fichier à ta demande.

Bon je vais prendre un café. Cela te laisse le temps de nous le joindre.

Cdlt.

J'avais posté sur l'autre sujet.

Voici le message d'erreur

"Variable objet ou variable de bloc With non définie"

Comment cela se fait-il ?

Merci

svp