Faire apparaitre bouton si ligne selectionnée dans listbox

davidp · 29 Juillet 2008

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 · 29 Juillet 2008

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

Bonjour,

modifie le code de l'USF comme ceci :

Code:

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 · 29 Juillet 2008

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

Bonjour,

Ajouter :

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

Code:

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 · 29 Juillet 2008

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

Faire apparaitre bouton si ligne selectionnée dans listbox

davidp

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

davidp

XLDnaute Occasionnel

Discussions similaires

Faire apparaitre bouton si ligne selectionnée dans listbox

davidp

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

davidp

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency