Listbox supprimer ongler

[apdf1]

Bonjour,

Je voudrais effacer tous mes onglets qui se trouvent dans ma listBox1

Ci joint mon Formulaire qui seras plus parlant.

Merci d'avance

Max

 

[pierrejean]

Re : Listbox supprimer ongler

Bonjour apdf1

Private Sub CommandButton3_Click()
Dim n As Integer
For n = 0 To ListBox1.ListCount - 1
Application.DisplayAlerts = False
Sheets(ListBox1.List(n)).Delete
Application.DisplayAlerts = True
Next
End Sub

 

[apdf1]

Re : Listbox supprimer ongler

Bonjour PierreJean

Et merci d'avoir répondu. Pour le code super sa marche nickel pas de probléme, mais et-il possible d'effacer la listbox et par la même occasion d'effacer dans la feuille liste.

Merci d'avance et bonne journée

Max

 

[Pierrot93]

Re : Listbox supprimer ongler

Bonjour,

en l'absence de PierreJean🙂 que je salue au passage, peut être ainsi, enfin si j'ai bien compris :

Option Explicit
Private Sub CommandButton3_Click()
 Dim n As Integer
 For n = ListBox1.ListCount - 1 To 0 Step -1
 Application.DisplayAlerts = False
  Sheets(ListBox1.List(n)).Delete
ListBox1.RemoveItem (n)
 Application.DisplayAlerts = True
 Next
End Sub

bonne journée
@+

 

[apdf1]

Re : Listbox supprimer ongler

Bonjour Pierrot

Je te remercie beaucoup, mais comme j'avais demandé a PierreJean s'il était possible d'éffacer la liste des tables qu'il se trouve dans la feuille "Liste" en "A3:A10" pour le reste super sa marche nickel.

Je te souhaite une bonne journée

Max