OVH Cloud OVH Cloud

Listbox

4 réponses
Avatar
Didier
Bonjour
Dans un userform j'ai une listbox, et j'essaie de faire cela :
lorsque je ne choisis pas dans la liste un nom, théoriquement cela devrait
sortir de la procédure, mais voilà il y a un hic ???
Merci beaucoup
Didier

If ListBox1 = "" Then
MsgBox "Vous devez choisir un contrôleur," & vbNewLine & _
"sinon vous ne pouvez pas valider un nouveau contrôle.", vbExclamation, _
"Contrôleur manquant"
Exit Sub
End If

4 réponses

Avatar
michdenis
Bonjour Didier,


If Me.ListBox1.ListIndex = -1 Then
MsgBox "Rien de sélectionner"
Else
'code à exécuter
End If


Salutations!




"Didier" a écrit dans le message de news:
Bonjour
Dans un userform j'ai une listbox, et j'essaie de faire cela :
lorsque je ne choisis pas dans la liste un nom, théoriquement cela devrait
sortir de la procédure, mais voilà il y a un hic ???
Merci beaucoup
Didier

If ListBox1 = "" Then
MsgBox "Vous devez choisir un contrôleur," & vbNewLine & _
"sinon vous ne pouvez pas valider un nouveau contrôle.", vbExclamation, _
"Contrôleur manquant"
Exit Sub
End If
Avatar
Didier
Merci beaucoup Denis, c'est parfait
Bonne soirée
Didier

"michdenis" a écrit dans le message de news:

Bonjour Didier,


If Me.ListBox1.ListIndex = -1 Then
MsgBox "Rien de sélectionner"
Else
'code à exécuter
End If


Salutations!




"Didier" a écrit dans le message de news:

Bonjour
Dans un userform j'ai une listbox, et j'essaie de faire cela :
lorsque je ne choisis pas dans la liste un nom, théoriquement cela devrait
sortir de la procédure, mais voilà il y a un hic ???
Merci beaucoup
Didier

If ListBox1 = "" Then
MsgBox "Vous devez choisir un contrôleur," & vbNewLine & _
"sinon vous ne pouvez pas valider un nouveau contrôle.", vbExclamation, _
"Contrôleur manquant"
Exit Sub
End If





Avatar
LE TROLL
Salut, la ListBox n'est pas un conteneur unique (type TextBox), mais
multiple (liste), donc on ne peut lui demander si elle est vide "", il faut
passer par des mots clefs spécifiques, ici, tester le nombre
d'enregistrements, soit:

If Nom_liste.ListCount < 1 then: ... ' la liste est vide = 0...

----------
"Didier" a écrit dans le message de news:

Bonjour
Dans un userform j'ai une listbox, et j'essaie de faire cela :
lorsque je ne choisis pas dans la liste un nom, théoriquement cela devrait
sortir de la procédure, mais voilà il y a un hic ???
Merci beaucoup
Didier

If ListBox1 = "" Then
MsgBox "Vous devez choisir un contrôleur," & vbNewLine & _
"sinon vous ne pouvez pas valider un nouveau contrôle.", vbExclamation, _
"Contrôleur manquant"
Exit Sub
End If



Avatar
Didier
Ok merci beaucoup
Didier

"LE TROLL" <le a écrit dans le message de news:

Salut, la ListBox n'est pas un conteneur unique (type TextBox),
mais multiple (liste), donc on ne peut lui demander si elle est vide "",
il faut passer par des mots clefs spécifiques, ici, tester le nombre
d'enregistrements, soit:

If Nom_liste.ListCount < 1 then: ... ' la liste est vide = 0...

----------
"Didier" a écrit dans le message de news:

Bonjour
Dans un userform j'ai une listbox, et j'essaie de faire cela :
lorsque je ne choisis pas dans la liste un nom, théoriquement cela
devrait sortir de la procédure, mais voilà il y a un hic ???
Merci beaucoup
Didier

If ListBox1 = "" Then
MsgBox "Vous devez choisir un contrôleur," & vbNewLine & _
"sinon vous ne pouvez pas valider un nouveau contrôle.", vbExclamation, _
"Contrôleur manquant"
Exit Sub
End If