Listbox supprimer ongler

pierrejean

XLDnaute Barbatruc

• 6 Mai 2011

• #2

Re : Listbox supprimer ongler

Bonjour apdf1

VB:

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 6 Mai 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Mai 2011

• #4

Re : Listbox supprimer ongler

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 6 Mai 2011

• #5

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

 

Vote positif 0 Vote négatif