Supprimer des onglets d'un classeur

[ARNAUD ZIRIPE]

Bonjour à tous. J'ai réussi à avoir un code qui me permet de créer plusieurs listes à partir dune liste.Mais je suis bloqué quand je veux réinitialiser mon travail. C'est à dire remettre le travail à zéro.
Merci de bien vouloir m'aider à partir du fichier joint.

 

[camarchepas]

Re : Supprimer des onglets d'un classeur

Bonsoir ,

Arnaud , je vois que tu n'as pas encore beaucoup de Post ,

Je pense que tu as du te tromper de forum ,

Ce n'est pas un forum de voyance , mais un site d'entr'aide sur les appli de la suite microsoft office .

Seul toi connais le sujets et les difficultés que tu rencontres .

J'ai chargé le classeur , vérifié qu'il n'y avait pas de bombe dans le code , puis exécuté celui ci ,

Pas de message d'erreur . .

Et comme je ne sais pas ce qu'il devrait faire , pour moi tout est ok ....

 

[hassan.zer]

Re : Supprimer des onglets d'un classeur

Bonsoir,

Je ne suis pas expert, mais j'ai l'impression que votre onglet BD ne renseigne pas chacun des onglets 6eme1, 6eme2 etc...
mais il reste bloqué sur l'onglet classe.
Pour votre probleme, sois précis sur ce que vous voulez atteindre :
Effacer le contenu des feuilles classes mais pas la feuille BD par exemple.
Cordialement.

 

[ARNAUD ZIRIPE]

Re : Supprimer des onglets d'un classeur

En faite à partir de la liste de "BD", et en cliquant sur le bouton " Créer liste de classe", des listes de classes se créent automatiquement en créant des feuilles dont les onglets portent les noms des classes créées. Maintenant ce que je voudrais ,c'est d'avoir la possibilité de supprimer ces feuilles et ces onglets créées si je devais reprendre mon travail.
j'espère avoir été plus claire dans mon explication

 

[DoubleZero]

Re : Supprimer des onglets d'un classeur

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Sub Onglets_supprimer()
    Dim o As Object
    Application.DisplayAlerts = False
    For Each o In Worksheets
        If o.Name <> "BD" Then o.Delete
    Next
    Application.DisplayAlerts = True
End Sub

A bientôt 🙂

 

[camarchepas]

Re : Supprimer des onglets d'un classeur

Bonjour 00 , Arnaud, Assan

un nettoyage à la javel :

Sub Nettoie()
Dim o As Worksheet
Dim Fin As Long
    Application.DisplayAlerts = False
    For Each o In ThisWorkbook.Worksheets
        If o.Name <> "BD" Then
          o.Delete
         Else
          Fin = o.Range("A" & Rows.Count).End(xlUp).Row
          o.Range("A2:F" & Fin) = ""
        End If
    Next
    Application.DisplayAlerts = True
End Sub

 

[DoubleZero]

Re : Supprimer des onglets d'un classeur

Re-bonjour,

...un nettoyage à la javel :

Code vba:
Sub Nettoie()
...
o.Range("A2:F" & Fin) = ""
...

@ camarchepas 😀,

Quelle cruche (moi 🙄, pas toi 😎) !

Ça, c'est un vrai nettoyage.

A bientôt 🙂🙂

 

[ARNAUD ZIRIPE]

Re : Supprimer des onglets d'un classeur

Bonsoir camarchepas.
Ta proposition est parfaite sauf que je souhaiterais que la colonne qui me sert de tri (colonne H de la feuille BD) soit aussi effacée sauf l'entête.
merci.

 

[camarchepas]

Re : Supprimer des onglets d'un classeur

Et voilà

Sub Nettoie()
 Dim o As Worksheet
 Dim Fin As Long
     Application.DisplayAlerts = False
     For Each o In ThisWorkbook.Worksheets
         If o.Name <> "BD" Then
           o.Delete
          Else
           Fin = o.Range("A" & Rows.Count).End(xlUp).Row
           o.Range("A2:H" & Fin) = ""
         End If
     Next
     Application.DisplayAlerts = True
 End Sub

 

[ARNAUD ZIRIPE]

Re : Supprimer des onglets d'un classeur

bonsoir camarchepas
excuse moi j'ai oublié de te dire que ça marche et je te remercie beaucoup.

 

[Staple1600]

Re : Supprimer des onglets d'un classeur

Bonsoir à tous


Si j'ai bien compris ce que doit faire le code de camarchepas, voici une variante
Pas sur qu'on voie une différence au niveau nettoyage 😉
Mais on a le droit d'utiliser chacun ses éponges 😉

Sub NettoieBis()
Dim o As Worksheet
Sheets("BD").Rows("2:" & Rows.Count).Clear
Application.DisplayAlerts = False
     For Each o In ThisWorkbook.Worksheets
        If o.Name <> "BD" Then
        o.Delete
         End If
     Next
Application.DisplayAlerts = True
End Sub

 

[camarchepas]

Re : Supprimer des onglets d'un classeur

Bonjour à Tous,

et hop un coup de Tampon gratteur,

Mooosieur propre est de retour ......

Gr rr , un jour je l'aurais ........

bravo , et respect