Userform : Contrôle d'une listbox

Bonjour à tous,

j'ai une listbox à sélection multiple et j'aurai aimé pouvoir la contrôler quand je valide mon formulaire pour être sûre que la personne qui remplit le formulaire réponde bien à ma question.

J'ai essayé avec ça :

Code:

---

1 2	IsNull(lbETICS.Value) = True

---

mais ça ne fonctionne pas bien puisque le formulaire ne voit pas quand il y a une ou plusieurs sélections dans la listbox ?

Est-ce que qqn sait comment je dois faire ?

J'espère avoir été claire.

Merci

Salut,

Tu cherches à vérifier si l'utilisateur à bien fait un choix dans la listbox avant de poursuivre le code ?
Il ne faudrait pas mettre une condition ?

Tu peux essayer les différent cas suivant, en espérant que ça fonctionne et que c'est ce que tu cherchais.

Code:

---

If IsNull(lbETICS.Value) = True Then Exist Sub

---

Code:

---

1 2 3 4

If IsNull(lbETICS.Value) = True Then MsgBox "Vous devez faire un choix parmi la liste pour poursuivre" Exit Sub ' Sort de la Sub End if

---

Code:

---

1 2 3 4

If lbETICS.Value = "" MsgBox "Vous devez faire un choix parmi la liste pour poursuivre" Exit Sub ' Sort de la Sub End if

---

Code:

---

1 2 3 4

If lbETICS.Value = Null MsgBox "Vous devez faire un choix parmi la liste pour poursuivre" Exit Sub ' Sort de la Sub End if

---

A+

Bonjour,
Pour vérifier quelles sont les lignes sélectionnées dans un ListBox avec choix multiple, il faut vérifier la propriété Selected(Elem). S'il la propriété est à True cela signifie que la ligne a été sélectionnée
Exemple (Le contrôle ListBox est nommé LstBox)

Code:

---

1 2 3 4 5

Dim Elem As Byte For Elem = 0 To Me.lstBox.ListCount - 1 If lstBox.Selected(Elem) = True Then ' Code Next

---

Avec sélection simple il faut tester la propriété ListIndex. Sa valeur est à -1 s'il n'y a pas de sélection.

Bonjour,

merci pour vos réponses.

J'ai essayé vos différentes solutions, et aucune n'a fonctionné.


Sachant que j'avais utilisée celle ci mais qu'elle ne fonctionne pas sur une sélection multiple !

Code:

---

1 2 3 4

If IsNull(lbETICS.Value) = True Then MsgBox "Vous devez faire un choix parmi la liste pour poursuivre" Exit Sub ' Sort de la Sub End if

---

D'autres idées ?

Merci
Bonne journée

Bonjour,

Citation:

---

J'ai essayé vos différentes solutions, et aucune n'a fonctionné.

---

C'est que tu as mal essayé ou mal lu.

J'ai essayé votre solution comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Elem As Byte For Elem = 0 To Me.lbETICS.ListCount - 1 If lbETICS.Selected(Elem) = True Then MsgBox "Le champ ETICS est obligatoire" Me.mprisque.Value = 0 Me.lbETICS.SetFocus Exit Sub End If Next

---

Et ça n'a pas fonctionné ! Peut être une erreur dans mon code.

Bonjour,
Qu'est-ce qui ne fonctionne pas ?
Le MsgBox ne s'affiche pas lorsqu'il y a eu une sélection ?
Un message d'erreur s'affiche-t-il ? Si oui quel numéro d'erreur et quel est le texte de l'erreur.
Rien ne fonctionne ? Alors peur-être la propriété MultiSelect de l'objet ListBox n'a pas comme valeur 1 soit la valeur de la constante fmMultiSelectMulti.

Rien ne fonctionne et la propriété MultiSelect de l'objet ListBox a bien la valeur 1.
C'est comme si le code n'était pas écrit !

Bonjour,

sauf que cette procédure est faite à l'envers, la voici dans le bon sens, True vers False

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Elem As Byte For Elem = 0 To Me.lbETICS.ListCount - 1 If lbETICS.Selected(Elem) = False Then MsgBox "Le champ ETICS est obligatoire" Me.mprisque.Value = 0 Me.lbETICS.SetFocus Exit Sub End If Next

---

Merci pour cette réponse rapide.

Effectivement ça marche en revanche ça contrôle jusqu'à ce que toute la liste soit sélectionnée. Ca ne voit pas qu'en seulement il y a 1 ou 2 éléments de la liste sélectionnés.

c'était juste pour te montrer, c'est évident si tu regardes le code, maintenant fais attention à ce code

Code:

---

1 2 3 4 5

Dim Elem As Byte For Elem = 0 To Me.lbETICS.ListCount - 1 If lbETICS.Selected(Elem) = True Then 'ce que tu dois faire quand sélectionné End If

---

Bonjour,

je suis désolée, je n'ai pas compris ce que tu voulais dire dans ce message.

Bonjour,
Comme je l'ai expliqué dans cette réponse http://www.developpez.net/forums/d14...x/#post7852336 et que Dominique te le rappelle.

Citation:

---

Pour vérifier quelles sont les lignes sélectionnées dans un ListBox avec choix multiple, il faut vérifier la propriété Selected(Elem). Si la propriété est à True cela signifie que la ligne a été sélectionnée

---

Ce n'est pas suffisamment clair ?

Voici un exemple simple d'une procédure événementielle où lorsque l'on clique sur le bouton OK (Contrôle CommandButton nommé cmdOK, une boucle contrôle si la propriété Selected(x) de l'objet ListBox (ici nommé lstBox) est égal à True. Dans ce cas là on écrit sur la colonne 4 "**-**" et on met les colonnes 1 à 3 de la ligne sélectionnée en rouge.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit Public monResultat As String Dim tblSrce As String, rng As Range Private Sub cmdOk_Click() Dim Elem As Byte If Me.lstBox.ListCount = 0 Then Exit Sub For Elem = 0 To Me.lstBox.ListCount - 1 If Me.lstBox.Selected(Elem) = True Then ' Teste si la ligne du ListBox a été sélectionnée With rng .Range(.Cells(Elem, 1), .Cells(Elem, .Columns.count)).Interior.Color = vbRed .Cells(Elem + 1, .Columns.count + 1) = "** x **" End With End If Next Unload Me End Sub

---

Procédure d'initialisation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() Set rng = shtDb.Range("A1").CurrentRegion ' Utilisation du CodeName de la feuille ' Assigne à la variable rng la zone DATA excluant ainsi les étiquettes de colonnes With rng: Set rng = .Offset(1).Resize(.Rows.count - 1, 3): End With With rng: .ClearFormats: .Offset(, .Columns.count).Resize(, 1).Clear: End With ' Définir les propriétés du ListBox nommé lstBox With Me With .lstBox ' Propriété de lstBox .RowSource = rng.Address(external:=True) .ColumnCount = rng.Columns.count: .ColumnHeads = True: .ColumnWidths = "120;200;180" .MultiSelect = fmMultiSelectMulti ' Permet la multi-sélection dans lstBox End With End With End Sub

---

Bonjour,

je suis désolée mais je débute et donc oui je ne comprends pas forcément tout par manque de temps pour me former correctement à vba notamment.


En tout cas, en réessayant ce matin la solution suivante à fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Elem As Byte For Elem = 0 To Me.lbETICS.ListCount - 1 If lbETICS.Selected(Elem) = False Then MsgBox "Le champ ETICS est obligatoire" Me.mprisque.Value = 0 Me.lbETICS.SetFocus Exit Sub End If Next

---

Et ensuite ça s'est mis à bugger de nouveau et à vouloir que je sélectionne tout.

J'ai également utilisé cette solution pour des listbox sans sélection multiple et idem ça a fonctionné au début et puis bug et ça veut que je sélectionne tout.

Je ne comprends pas trop à quoi c'est dû !

Une idée ?

Merci et bonne journée

Bonjour,

Citation:

---

Et ensuite ça s'est mis à bugger de nouveau et à vouloir que je sélectionne tout.

---

Cela signifie quoi ?
Il faudrait être précis si tu veux de l'aide.
"ça s'est mis à bugger de nouveau". Cela bogue ok mais sur quelle ligne et quel message reçois-tu ?
"et à vouloir que je sélectionne tout". Tu reçois un message du programme ou de VBA te demandant de tout sélectionner ?

Alors en fait quand je dis que ça bogue, c'est juste qu'il me renvoie la msgbox "Le champ ETICS est obligatoire"
jusqu'à ce que je sélectionne toute les lignes de la listbox.

Ce qui est bizarre c'est que parfois ça fonctionne sans pb et parfois ça fait ça.

Merci pour la réponse rapide en tout cas.

Salut,

Désolé de t'avoir mis sur une mauvaise piste au départ, ce que comme toi je n'ai pas une très grande expérience de VBA.

Citation:

---

Alors en fait quand je dis que ça bogue, c'est juste qu'il me renvoie la msgbox "Le champ ETICS est obligatoire"
jusqu'à ce que je sélectionne toute les lignes de la listbox.

---

Ça veut dire que ton code fonctionne ? Il n'y a plus d'erreur de la part de VBA ?
Maintenant c'est juste qu'il ne te renvoie pas le résultat que tu souhaiterais ?

Si tu ne connais pas je te conseille de mettre un point d'arrêt de faire un exécution du code pas à pas.
Tu as les valeurs des variables dans un tableau en dessous ou quand tu laisses la souris sur variable du code.
Ça va te permettre de mieux comprendre pourquoi ça "bug"

Citation:

---

jusqu'à ce que je sélectionne toute les lignes de la listbox.

---

De ce que je vois de ton morceau de code à chaque fois qu'une ligne de ta listbox ne sera pas sélectionné, il affichera la msgbox.

Pour mettre un point d'arrêt et avoir un meilleur explication, tu peux lire ceci
http://silkyroad.developpez.com/VBA/...ros/#LII-B-3-d

En espérant que ça t'aidera cette fois ci ;)

Bonjour,

Citation:

---

Alors en fait quand je dis que ça bogue, c'est juste qu'il me renvoie la msgbox "Le champ ETICS est obligatoire"
jusqu'à ce que je sélectionne toute les lignes de la listbox.

---

C'est donc normal.
Manifestement tu ne lis pas les explications que l'on donne (Une fois par Dominique et deux fois par moi avec un rappel mis en rouge pour attirer l'attention avec en plus deux exemples de procédure) .

Dans cette ligne

Code:

---

lbETICS.Selected(Elem)

---

La propriété Selected(Elem) est à False pour les lignes non sélectionnées et à True pour celles qui sont sélectionnées.
Donc évidemment si dans ton test tu demandes "Si c'est faux alors affiche moi un texte", le programme va t'afficher un texte si c'est faux. J'avoue que je ne comprenais pas non plus l'intérêt de cette condition.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Retourne True si au moins une ligne est sélectionnée, False sinon Private Function CheckETICS() As Boolean Dim Elem As Integer For Elem = 0 To Me.lbETICS.ListCount - 1 If lbETICS.Selected(Elem) = True Then CheckETICS = True Exit Function End If Next CheckETICS = False End Function

---

Bonjour à tous et désolée pour mon temps de réponse un peu long, j'ai été prise sur d'autres projets.

Merci GoFio pour les informations.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

C'est donc normal.
Manifestement tu ne lis pas les explications que l'on donne (Une fois par Dominique et deux fois par moi avec un rappel mis en rouge pour attirer l'attention avec en plus deux exemples de procédure) .

Dans cette ligne

Code:

---

lbETICS.Selected(Elem)

---

La propriété Selected(Elem) est à False pour les lignes non sélectionnées et à True pour celles qui sont sélectionnées.
Donc évidemment si dans ton test tu demandes "Si c'est faux alors affiche moi un texte", le programme va t'afficher un texte si c'est faux. J'avoue que je ne comprenais pas non plus l'intérêt de cette condition.

---

Ok, j'ai compris maintenant que ce n'est pas ça qui va me donner ce que je veux et pourquoi.

Mais du coup je ne sais toujours pas comment faire pour faire en sorte que :
lorsque je clique sur mon bouton valider il y ait la vérification qu'au moins un des éléments de ma listbox soit sélectionné
et
si non qu'une msgBox apparaisse pour forcer l'utilisateur à sélectionner au moins un élément de la listbox.

Quelle est la condition que je dois utiliser ?

Merci