Discussion :

[supertoms]

Salut à tous, ça fait un moment que je tourne en rond dans la faq mais je ne trouve pas la réponse à maquestion :
Comment récupérer la valeur de la 2eme colonne de la ligne selectionnée dans liste modifiable ?
J'ai essayé :

Code :

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

1
2
3
 
            MsgBox Me.select_flt.Column(0)
            MsgBox Me.select_flt.Column(1, 0)

Mais le deuxième Msgbox ne m'affiche pas la bonne valeur.
Merci d'avance.

[Jean-Philippe André]

salut,
et avec ceci :

Code :

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

MsgBox Me.select_flt.Column(1)

[supertoms]

J'ai essayé ca ne marche pas non plus.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
If (Me.select_flt.Value <> "") Then
            '//On met dans la variable glogale
            Msgbox Me.select_flt.Column(0)
            Msgbox Me.select_flt.Column(1)
            '//On fini de mettre dans la variable glogale
            DoCmd.Close
            DoCmd.OpenForm "modifier_flt"
        Else
            MsgBox "Vous devez selectionner une FLT pour l'ouvrir !"
        End If

Et quand je selectionne une ligne ou il y a "ligne1" sur la premier colonne et "B1" sur la deuxième colonne, ca m'affiche "ligne1", puis "A1" (il y a "A1" sur la ligne précédante...) !!!

[supertoms]

A ca y est j'ai compris, quand la premiere colonne est la meme sur plusieurs lignes, ca me prend toujours la deuxième colonne corespondant a la premiere ligne, meme quand je selectionne une ligne présente plus bas !
Vous me suivez ?!
Comment remédier à ce problème ?

Edit : j'ai déja essayé avec un ListIndex, ca ne fonctionne pas mieux : ca me renvoie le numéro de la premiere ligne qui contient ma premiere colonne et non pas le numéro de la ligne que j'ai réelement selectionné.

[azertix]

Salut. Teste ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' -- Récupérer la valeur de la ligne sélectionnée d'une zone de liste à sélection simple --
Dim ligne As Integer
Dim valeur As Variant
 
For ligne = 0 To Me.MaZoneDeListe.ListCount - 1
    If Me.MaZoneDeListe.Selected(ligne) Then
        valeur = Me.MaZoneDeListe.Column(1, ligne)
    End If
Next ligne
 
MsgBox valeur
' -- Fin du parcours de la ZdL --

[supertoms]

Merci

[azertix]

De rien
?