Problème listbox vba

Bonjour, J'ai un problème avec mon programme.J'utilise une userform avec une listbox et un bouton valider. J'aimerais connaitre quelle est la valeur sélectionner par l'utilisateur dans la listbox.J'ai essayé If (Me.ListBox1.Value = -1) Then MsgBox "Il faut faire une sélection"" dans mon code mais ce ne marche pas

Voici le bout de code. Merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub UserForm_Initialize() Dim i As Integer Dim ref As String Workbooks.Open ("C:\PROGRAMMES\référence.xls") Workbooks("Référence.xls").Sheets("Feuil1").Select For i = 1 To 25 ref = Sheets("Feuil1").Cells(i, 1) If (ref = "") Then GoTo finboucle End If Me.ListBox1.AddItem ref Next i finboucle: End Sub Private Sub CommandButton1_Click() If (Me.ListBox1.Value = -1) Then MsgBox "Il faut faire une sélection"" End If Unload UserForm End Sub

Bonjour,

Essaye comme ceci:

Code:

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    If Me.ListBox1.Value = "" Then
        MsgBox "Il faut faire une sélection"
        Exit Sub
    Else
        MsgBox Me.ListBox1.Value
    End If
Unload UserForm
End Sub

Bonjour,

Si aucun article n'est sélectionné,

Code:

List1.ListIndex

est égal à -1
Sinon : indice de l'article sélectionné ...;)