Faire apparaitre bouton si ligne selectionnée dans listbox

[davidp]

Bonjour le forum,

desole de vous ennuyer avec un petit soucis que je n'arrive pas à resoudre.


j'ai un userform contenant une listbox , actuellement j'ai un bouton qui me permets de supprimer des lignes. Afin d'éviter les erreurs , j'aimerai que le bouton "supprimer ligne" apparaisse que lorsque une ligne est sélectionnée .

Ensuite , une fois la ligne séléctionnée supprimée , le bouton redeviendra invisible.

Je remercie par avance la personne qui pourra m'aidé

A bientôt

DAVIDP

 

[Cousinhub]

Re : Faire apparaitre bouton si ligne selectionnée dans listbox

Bonjour,

modifie le code de l'USF comme ceci :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Base").Rows(ListBox1.ListIndex + 2).Delete
ListBox1.List = Sheets("BASE").Range("A2:d" & Sheets("BASE").[A65000].End(xlUp).Row).Value
Application.ScreenUpdating = True
Me.CommandButton1.Visible = False
End Sub

Private Sub ListBox1_Click()
Me.CommandButton1.Visible = True
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.List = Sheets("BASE").Range("A2:d" & Sheets("BASE").[A65000].End(xlUp).Row).Value
Me.CommandButton1.Visible = False
End Sub

 

[BOISGONTIER]

Re : Faire apparaitre bouton si ligne selectionnée dans listbox

Bonjour,

Ajouter :

Me.CommandButton1.Visible = IIf(Me.ListBox1 <> -1, True, False)

Private Sub CommandButton1_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
Me.CommandButton1.Visible = IIf(Me.ListBox1 <> -1, True, False)
End Sub

Private Sub ListBox1_Click()
  Me.CommandButton1.Visible = IIf(Me.ListBox1 <> -1, True, False)
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.List = Sheets("BASE").Range("A2:d500").Value
End Sub

JB
Formation Excel VBA JB

 

[davidp]

Re : Faire apparaitre bouton si ligne selectionnée dans listbox

Bonjour à BHBH et BOISGONTIER ,


Je vous remercie pour aide ULTRA RAPIDE , c'est exactement ce dont je désirais.
Chapeau.

Je vais décripter vos codes afin d'appronfondir mes connaissances

A tres bientôt sur le forum


DAVIDP