ComboBox.Selected toujours faux

Bonjour,

Je souhaite récupérer les valeurs associées aux cases cochées dans une ComboBox à sélection multiple dans un formulaire.

Pour cela j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim ind As Integer Dim bl As Boolean ind = 0 While ind < Forms!Rec!CONTACT.ListCount bl = Forms!Rec!CONTACT.Selected(ind) If bl Then txt1 = txt1 + "Contact : " & Forms!Rec!CONTACT.Column(4, ind) & " " & Forms!Rec!CONTACT.Column(2, ind) & vbCrLf & Forms!Rec!CONTACT.Column(3, ind) & vbCrLf & Forms!Rec!CONTACT.Column(6, ind) End If ind = ind + 1 Wend

---

Cependant la valeur du booléen est toujours à FAUX même si j'ai toutes les cases cochées.

Auriez vous une piste pour m'aider ?

Merci d'avance :)

Bonjour,

1/ Depuis où est exécuté ce code pour tu aies à écrire :

Code:

---

Forms!Rec!CONTACT.ListCount

---

plutôt que

Code:

---

Me.Contact.ListCount -1 *

---

* -1 est obligatoire car l'indice commence à zéro

Si tu mets un point d'arrêt sur la première ligne de ta procédure et que dans la fenêtre de debogage, tu tapes

Code:

---

?Forms!Rec!CONTACT.ListCount

---

que te renvoie t-il ?

Argy

Bonjour, merci de votre réponse.

1. Simplement car lorsque j'utilise le mot clé Me j'ai une erreur de compilation "Utilisation incorrecte du mot clé Me".

2. La valeur renvoyée est 3 (comme le nombre de lignes de la ComboBox)

Bah c'est que le code se trouve l'extérieur.

Mais en relisant ton poste, je viens de réaliser... La case coché n'est pas une "sélection" vue par Access...

Est-ce une zone de liste ou une liste déroulante que tu utilises ?

S'il y a des cases à cocher, c'est une zone de liste et avec une telle propriété, c'est ItemsSelected qu'il faut utiliser et non Selected.

Argy

J'utilise une liste déroulante.
Le problème persiste en utilisant ItemsSelected : aucun élément n'est détecté comme sélectionné.

Je ne serais pas dire si le code est à l'intérieur ou à l'extérieur, je ne suis pas un spécialiste d'Access ...

Tout ce que je peux te dire, c'est que ton code est opérationnel avec les deux contrôles chez moi.
Donc, il y a y un truc qui tourne mal dans ton appli ; en mettant un point d'arrêt (F9) à l'entrée de ton While, que se passe t-il ?

Argy

Arf c'est rageant, peut être est-ce un soucis de structure mais j'ai le même problème en créant un second fichier de test.
Je voulais le joindre à ce post mais le fichier n'est pas accepté par le forum.

Arrrf, au temps pour moi, je viens de comprendre que c'était une liste multi valuée !

Tu ne l'a pas précisé, comme quoi, ce qui se conçoit bien s'ennonce clairement ;)

Bref pour ton cas, il te faut user de la propriété Oldvalue car il n'existe pas de Selected ou ItemsSelected pour un combobox.
D'ailleurs, pour ta gouverne, sache qu'un combobox à case à cocher est fort peu pratique car le principe des cases à cocher est d'être visible au premier coup d'oeil.

Bref, voici un exemple qui va résoudre ton problème :

Code:

---

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

Private Sub TestComboMulti() Dim ind As Integer Dim txt1 As String   If UBound(Me.CONTACT.OldValue) > 0 Then For ind = LBound(Me.CONTACT.OldValue) To UBound(Me.CONTACT.OldValue) txt1 = txt1 & "Contact : " & Me.CONTACT.Column(1, ind) & " " & Me.CONTACT.Column(2, ind) & " " & Me.CONTACT.Column(3, ind) & " " & Me.CONTACT.Column(4, ind) & vbCrLf Next End If MsgBox txt1   End Sub

---

Bon j'ai me le mot clé Me car mon code est testé au sein du formulaire lui-même;

Argy

Merci beaucoup !

J'ai un peu adapté la solution mais ca m'a débloqué :D

PS : je pensais pourtant avoir été clair dès mon premier post

Citation:

---

Je souhaite récupérer les valeurs associées aux cases cochées dans une ComboBox à sélection multiple dans un formulaire.

---