Supprimer des onglets générés inutiles

[Micke-31]

Bonjour le Forum,

Mon but est de créer des onglets dans un classeur à partir d'une liste qui se complète dans le temps.
Dans l'exemple ci joint, j'ai deux codes qui gèrent assez bien mes attentes, le problème est que si je réactive le code pour compléter la liste d'onglet soit le premier code plante, soit le deuxième génère des onglets inutiles.

Je n'arrive pas à créer une ligne de commande pour palier à ce problème.
J'espère que mon problème inspirera un expert

En attendant, je vos remercie de votre concours

A+

 

[jp14]

Re : Supprimer des onglets générés inutiles

Bonjour

En utilisant "on error goto" on évite l' arrêt de la procédure.

Private Sub CommandButton1_Click()
Dim i As Long
Dim j As Long
Dim erreur As Boolean

For Each c In Sheets("feuil1").Range("B2:B100")
    If c.Value <> "" Then
    On Error GoTo erreur1
    Sheets(c.Value).Select
    If erreur = True Then Sheets.Add.Name = c.Value
    erreur = False
    End If
Next
                         'Tri les onglet
  Application.ScreenUpdating = False
  For i = 1 To Sheets.Count
     For j = i To Sheets.Count
        If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
          Sheets(i).Move before:=Sheets(j)
          Sheets(j).Move before:=Sheets(i)
        End If
     Next j
  Next i
                         'Place la Feuille1 en tête
  Sheets("Feuil1").Move before:=Sheets(1)
Exit Sub
erreur1:
erreur = True
Resume Next
End Sub

A tester

JP

 

[Micke-31]

Re : Supprimer des onglets générés inutiles

Salut JP,

Tu es un chef, merci pour cette précision et tes talents.

Je vais essayer de modifier le code du deuxième bouton et si je rencontre un problème je reviendrai sur la discussion.
Encore merci

 

[pierrejean]

Re : Supprimer des onglets générés inutiles

Bonjour Micke

Salut JP

Un essai avec un seul bouton pour ajouter/supprimer les feuilles

A tester !!!

 

[Micke-31]

Re : Supprimer des onglets générés inutiles

Bonjour et merci Pierre-Jean pour ta proposition et un grand merci à tous ceux qui font la renommée de ce Forum.

Avec tous mes vœux