Message si aucun choix fait dans listbox

[Benoit]

Bonjour à tous,

Je cherche à valider que l'utilisateur a choisi au minimum une valeur dans un listbox qui permet la sélection multiple.

J'ai cherhché dans le forum mais je n'ai pas trouvé... peut-être que j'ai mal cherché....

Encore une fois, merci de votre aide si précieuse !

 

[gex1403]

Salut Benoit, voici un exemple avec une combobox, c'est le meme principre avec listbox.
Dans mon cas, si elle est vide ou inferieur a 1 ou superieur a 53, message s'affiche



If Me.ComboBox1.Value = '' Or Me.ComboBox1 53 Then
MsgBox ('Veuillez saisir une semaine VALIDE !!!')


@micalement

 

[Hervé]

bonsoir benoit, gex

une autre syntaxe :

Dim i As Integer
Dim ok As Boolean

With ListBox1
        For i = 0 To .ListCount - 1
                If .Selected(i) Then ok = True
        Next i
End With

If Not ok Then
        MsgBox 'Ben alors !!! on sélectionne rien ???'
        Exit Sub
End If

'suite du traitement

salut

 

[PascalXLD]

Bonjour

essaies ceci

Private Sub CommandButton1_Click()

Dim i As Integer, mabool As Boolean

For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) = True Then
mabool = True
Exit For
End If
Next
If mabool = False Then
MsgBox 'Il faut au moins selectionner une valeur'
Exit Sub
End If


End Sub

Bon courage

Message édité par: Pascal76, à: 29/03/2006 19:11

 

[PascalXLD]

Oups Hervé le temps que je tape tu as déjà frappé

Bon on passe par le même moyen

Bonne soirée

 

[Benoit]

Un grand merci à tout ceux qui ont pris quelques instants pour m'aider...

Bonne fin de journée !

 

[MichelXld]

bonsoir à tous

une autre possibilité :

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
'
'...
'
End Sub


bonne soirée
MichelXld

Message édité par: michelxld, à: 29/03/2006 19:37

 

[PascalXLD]

Re

Michel tu es sûr en selection Multiple ???

 

[MichelXld]

rebonsoir Pascal

Oouuppss...tu as raison , je n'avais pas bien lu le message de Benoit ...


bonne soirée
MichelXld