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 : Sélectionner tout - Visualiser dans une fenêtre à part
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