Discussion :

[Pix_elle]

Bonjour à tous,

Je me prends la tête sur le contrôle de sélection d'une listbox : en effet, je voudrai bloquer le lancement d'un traitement si l'utilisateur n'a sélectionné aucun champ de la listbox.

Du coup, j'utilise ce code :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
If IsNull(ListBox1.Value) = True Then MsgBox "Vous devez sélectionner qqch"
End Sub

Alors, ça m'affiche effectivement le message d'erreur lorsque je n'ai aucun champ de sélectionné... Mais aussi quand j'en ai 1 ou plus.
Je tiens à préciser que j'ai activé la multi-sélection sur ma ListBox, si jamais ça peut avoir une incidence.

"ListBox1" Correspond bien au nom de ma listbox.


Si vous pouvez m'aider à résoudre mon problème..
Merci et bon week-end !

[Jean-Philippe André]

Salut,

tu es dans le cas de figure d'une listbox multi selection =]

Tu dois passer par une boucle pour tester si une valeur est selectionnee ou non

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim bOK as Boolean
For i = 0 to ListBox1.ListCount -1
    If ListBox1.Selected(i) Then 
        bOK=True
        Exit For
    End If
Next i
If bOK Then
    Msgbox "valeur selectionnee"
End if

[Pix_elle]

Salut !

Super merci de ta réponse rapide, ça fonctionne super !