Bouton pour supprimer ligne sélectionnée dans listbox

CBernardT

XLDnaute Barbatruc

• 13 Février 2008

• #2

Re : Bouton pour supprimer ligne sélectionnée dans listbox

Bonsoir davidp et le forum,

Je pense que le code suivant sera suffisant :

Private Sub CommandButton3_Click()
Dim Indexlist
'Détermination de la ligne dans la feuille de base
Indexlist = ListBox1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("Base").Rows(Indexlist).Delete
Application.ScreenUpdating = False
Unload UserForm1
UserForm1.Show
End Sub


Cordialement

Bernard

 

Pièces jointes

• supprimerligneLisbox.xls

  29 KB · Affichages: 294

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 13 Février 2008

• #3

Re : Bouton pour supprimer ligne sélectionnée dans listbox

Bonsoir Cbernard,

tout d'abord un grand merci. Visiblement cela fonctionne impeccable.

je vais étudier ton code et je te tiendrai au courant.

Merci pour ton aide

Bonne nuit

DAVID

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 13 Février 2008

• #4

Re : Bouton pour supprimer ligne sélectionnée dans listbox

Bonsoir David, Bernard,

Tu peux aussi essayer comme çà :

Code:

Private Sub CommandButton3_Click()

Application.ScreenUpdating = False
Sheets("Base").Rows(ListBox1.ListIndex + 2).Delete
ListBox1.RemoveItem (ListBox1.ListIndex)
ListBox1.List = Sheets("BASE").Range("A2:d500").Value
Application.ScreenUpdating = True


End Sub

A+

Edit : Bernard, la ligne "Application.ScreenUpdating = False" provoque des problèmes d'affichage chez moi. J'ai deux userform qui s'affiche.

 

Dernière édition: 13 Février 2008

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 13 Février 2008

• #5

Re : Bouton pour supprimer ligne sélectionnée dans listbox

Bonjour BQTR,

désolé de te répondre si tard (la fatigue l'a emporté sur moi).

je te remercie pour ton code , il fonctionne à merveille.
je vais aussi pouvoir l'adapter à d'autre projet.

UN GRAND MERCI

Bonne journée

DAVID

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 13 Février 2008

• #6

Re : Bouton pour supprimer ligne sélectionnée dans listbox

Bonjour David, bqtr et le forum,

Un code encore plus simple qui fait la synthèse :

Private Sub CommandButton3_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets("Base").Rows(ListBox1.ListIndex + 2).Delete
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

La ligne de code :
If ListBox1.ListIndex = -1 Then Exit Sub
Pour éviter les bug en cas de non sélection d'une ligne de la Lisbox.

Cordialement

Bernard

 

Vote positif 0 Vote négatif