Problème de msgBox

[chanu]

Bonjour le forum,
J'ai un petit soucis d'écriture dans une listbox et je n'ai pas trouvé de sujet similaire.
Voici mon code :
If lstChantier.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner un chantier au minimum")
Exit Sub ' pour sortir de la macro
ElseIf lstVille.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner un chantier au minimum")
Exit Sub ' pour sortir de la macro
ElseIf lstBat.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner un chantier au minimum")
Exit Sub ' pour sortir de la macro
Else: Call Filtre_Chantiers
End If

Ce code est activé par un bouton de commande.
Voilà mon souci c'est que le msgBox ne s'affiche que pour la lstChantier et je voudrais qu'il s'affiche également pour les deux autres.

Je suis sûr que ça vient du ElseIf, mais je ne vois pas quoi mettre, désolé pour cette demande aussi nul. ;(

 

[kjin]

Re : Problème de msgBox

Bonjour,

If lstChantier.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner un chantier au minimum")
Exit Sub ' pour sortir de la macro
End If
If lstVille.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner une ville au minimum")
Exit Sub ' pour sortir de la macro
end if
If lstBat.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner un Bat au minimum")
Exit Sub ' pour sortir de la macro
End If
Filtre_Chantiers

A+
kjin

 

[chanu]

Re : Problème de msgBox

Bonjour kjin,
j'ai essayé ta solution j'arrive au même résultat qu'avec mon code, en fait ce que je voudrais c'est que si je sélectionne rien sur ces trois listes le msgbox apparaisse sinon mon filtre appelé ici Filtre_Chantiers

 

[Compte Supprimé 979]

Re : Problème de msgBox

Bonjour Chanu, Kajin,

Peut-être comme ça

If lstChantier.ListIndex = -1 and lstVille.ListIndex = -1  and lstBat.ListIndex = -1 Then
MsgBox ("Veuillez sélectionner : un chantier, une ville ou un Bat au minimum")
Exit Sub ' pour sortir de la macro
End If
Filtre_Chantiers

A+

 

[chanu]

Re : Problème de msgBox

C'est presque ça bruno, il faudrait aucun des trois comme tu as fait combiné avec si une des trois listes n'est pas sélectionnée

 

[kjin]

Re : Problème de msgBox

re,
il faut dans ce cas boucler sur tes listbox'es) pour vérifier qu'au moins un item est sélectionné dans l'une d'elles (si j'ai pigé cette fois !)

'...
Dim ctl As Control
flag = False
For Each ctl In Me.Controls
    If TypeName(ctl) = "ListBox" Then
        If ctl.Value <> "" Then
        flag = True
        Exit For
        End If
    End If
Next
If flag = False Then MsgBox "blabla"
'...

A+
kjin

 

[chanu]

Re : Problème de msgBox

Re
cette fois avec ton code à chaque fois que je clique sur une listebox et que j'appuye sur mon bouton de commande, le msgBox apparaît à chaque fois. Il me faudrait exactement le contraire

 

[kjin]

Re : Problème de msgBox

Re,
Si j'ai bien compris (?!?), tu souhaites afficher un message si dans les 3 listbox aucun item n'est sélectionné, donc qu'au moins un item soit sélectionner dans au moins une listbox pour éviter le message !
Si c'est ça, c'est ce que fait la macro; sinon je ne sais pas et sans fichier...
A+
kjin

 

[chanu]

Re : Problème de msgBox

Bonjour,
après plusieurs essais j'ai trouvé ce qui cloche, ton code est bon sauf que dans mon cas j'ai des multisélections dans code.
Et du coup je n'arrive pas à adapter ton code

 

[kjin]

Re : Problème de msgBox

Bonjour,
Dans ce cas pas d'autre solution à mon sens que de boucler sur tous les items des listbox

Private Sub CommandButton1_Click()
Dim ctl As Control
Flag = False
For Each ctl In Me.Controls
    If TypeName(ctl) = "ListBox" Then
        For i = 0 To ctl.ListCount - 1
            If ctl.Selected(i) = True Then
                Flag = True
                Exit For
            End If
        Next
    End If
Next
If Flag = False Then MsgBox "blabla"
End Sub

A+
kjin

 

[chanu]

Re : Problème de msgBox

Je te remercie j'ai utilisé ce code :

        Dim ctl As Control
        Flag = False
        For Each ctl In Me.Controls
            If TypeName(ctl) = "ListBox" Then
                For i = 0 To lstChantier.ListIndex
                    If lstChantier.Selected(i) = True Then
                        Flag = True
                        Exit For
                    End If
                Next
            End If
        Next