Discussion :

[fabrice2205]

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

[fring]

Bonjour,

Essaye comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

Si aucun article n'est sélectionné,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List1.ListIndex

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