Discussion :

[Guillaume1077]

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 :

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

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

[argyronet]

Bonjour,

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

Code :

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

Forms!Rec!CONTACT.ListCount

plutôt que

Code :

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

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 :

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

?Forms!Rec!CONTACT.ListCount

que te renvoie t-il ?

Argy

[Guillaume1077]

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)

[argyronet]

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

[Guillaume1077]

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 ...

[argyronet]

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

[Guillaume1077]

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.

[argyronet]

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 :

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

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

[Guillaume1077]

Merci beaucoup !

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

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

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