Message si aucun choix fait dans listbox

G

gex1403

Guest

• 29 Mars 2006

• #2

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 29 Mars 2006

• #3

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 29 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 29 Mars 2006

• #5

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

Bon on passe par le même moyen

Bonne soirée

 

Vote positif 0 Vote négatif

B

Benoit

Guest

• 29 Mars 2006

• #6

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

Bonne fin de journée !

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Mars 2006

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 29 Mars 2006

• #8

Re

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Mars 2006

• #9

rebonsoir Pascal

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


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif