Listbox

[chanu]

Bonjour à tous,
j'ai un soucis tout bête : lorsque je clique sur un bouton de commande et que j'ai cliqué sur ma listbox cela me lance ma recherche. Dans le cas contraire je voudrais qu'il y ait un msgBox pour me demander de ckiquer sur ma listbox. J'ai fait quelque chose comme :

If lstChantier_Click = False Then
MsgBox ("Veuillez sélectionner un chantier au minimum")
End If

Le soucis c'est que même si j'ai cliqué sur ma listbox le msgbox s'affiche. 😕
Que faire?

 

[wilfried_42]

Re : Listbox

bonjour

essaye ca, quand rien n'est selectionné dans une listbox sa propriete listindex est egale à -1

If lstChantier.listindex = -1 Then
       MsgBox ("Veuillez sélectionner un chantier au minimum")
       exit sub ' pour sortir de la macro
End If

 

[RENAUDER]

Re : Listbox

Bonjour,
En complément de Wilfried

Private Sub CommandButton1_Click()
    If Me.lstChantier.ListIndex = -1 Then
        MsgBox ("Veuillez sélectionner un chantier au minimum")
        Me.lstChantier.SetFocus
        Exit Sub
    Else
        MsgBox "Vous avez sélectionné " & Me.lstChantier.Text
        Unload Me
    End If
End Sub

 

[chanu]

Re : Listbox

Merci à tous les deux, j'ai vais adopter la solution Wilfried elle convient bien