VBA Suprime onglet selon liste

[Arcangeli]

Bonjour le forum. J'ai bricolé un bout de code qui permets de supprimer des onglets selon une liste de création.
J'aimerais que cette liste suive aussi la suppression.
Plus de détails en pièce jointe.
Je vous remercie d'avance de me dire si une possibilité existe

 

[phlaurent55]

Re : VBA Suprime onglet selon liste

Bonjour Arcangeli,

en remplaçant ton code par celui-ci, l'usf disparaitra à chaque suppression de feuille
et sera automatiquement remis à jour à la prochaine ouverture
il serait utile de prévoir un test pour empêcher la suppression de la première feuille

Private Sub CommandButton1_Click()
Dim i As Integer
With ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).Delete 'Preview:=True
  Next
End With
Unload Me
End Sub

à+
Philippe

 

[Arcangeli]

Re : VBA Suprime onglet selon liste

Merci phlaurent55 pour cette rapide réponse, mais je me rend compte que je me suis mal exprimé.
En fait, j'aimerais que le ou les noms disparaissent aussi de la liste pricipale.
Encore merci si c'est posible