Bouton pour supprimer ligne sélectionnée dans listbox

[davidp]

Bonsoir à tous,

j'ai avancé dans un programme grace à votre aide, maintenant je bute sur un soucis qui est le suivant.

Comment faire pour effacer à l'aide d'un bouton ,une ligne sélectionnée dans la listbox (qui effacera la même ligne dans la feuille "base").

Nb : j'ai trouvé dans l'historique des choses qui ressemblait ,mais je n'ai pas réussit à l'adapter.

Ce n'est pas pressé , je vous souhaite une bonne nuit et merci pour ceux qui m'aideront.

DAVID

 

[CBernardT]

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

 

[davidp]

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

 

[bqtr]

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

Bonsoir David, Bernard,

Tu peux aussi essayer comme çà :

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.

 

[davidp]

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

 

[CBernardT]

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