Discussion :

[shadjire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GoFio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[shadjire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

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

[shadjire]

J'ai essayé votre solution comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[shadjire]

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.

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[shadjire]

Bonjour,

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

[Philippe Tulliez]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[shadjire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 ?