[FAQ] Comment récupérer la valeur de la ligne sélectionnée d'une zone de liste ?

[azertix]

Dim ligne As Integer
Dim valeur As Variant
Dim colonne As Integer
 
' Colonne de la zone de liste dans laquelle se situe l'information
colonne = 0
 
' Parcours de la zone de liste
For ligne = 0 To Me.MaZoneDeListe.ListCount - 1
    If Me.MaZoneDeListe.Selected(ligne) Then
        ' Si la ligne est sélectionnée, on stocke sa valeur dans la variable "valeur"
        valeur = Me.MaZoneDeListe.Column(colonne, ligne)
        ' Mettre valeur = CInt(Me.MaZoneDeListe.Column(colonne, ligne)) si la valeur est numérique
    End If
Next ligne
 
' On affiche le contenu de la ligne sélectionnée
MsgBox valeur

[FreeAccess]

Bonjour......

Je n'ai pas bien saisie cette "contribution".....

Car si l'on souhaite récupérer la valeur de la ligne sélectionnée d'une zone de liste [lstChoix] dans une zone de texte [txtChoixValeur]....le plus simple semble être de passer par l'événement "Après MAJ" de la ZdL......

Private Sub lstChoix_AfterUpdate()
'Ici la zone de texte [txtValeurChoix] affichera la valeur
'de la colonne 1 sélectionnée dans la ZdL
 
Me.txtValeurChoix.Value = Me.lstChoix.Column(0)
End Sub
 

.....ou alors je n'ai pas correctement compris ton code.....

[azertix]

Oui mais si je ne me trompe pas, ta proposition ne marche pas quand plusieurs éléments sont sélectionnés ?

[jpcheck]

Salut,
tu peux utiliser la propriété ItemsSelected directement sinon, non ?

[Philippe JOCHMANS]

Bonjour

Envoyé par azertix

Oui mais si je ne me trompe pas, ta proposition ne marche pas quand plusieurs éléments sont sélectionnés ?

Si je ne m'abuse, ton code aussi, car à chaque fois que l'on trouve une ligne sélectionnée on écrase la variable valeur par la nouvelle donnée. Non ?

Starec

[azertix]

Oui, il faut utiliser un tableau si l'on veut stocker les données. Je l'ai pas mis mais je peux le rajouter, éventuellement ?

@jpcheck : je connais cette propriété mais j'ai parfois eu des soucis avec, donc j'en suis revenu à mon ListCount, mais pourquoi pas après tout, c'est peut-être moi qui avais mal codé ...

Je propose un code, après on le prend ou on le prend pas, ça me dérange pas. Je suis débutant, donc c'est normal que mes codes ne soient pas toujours super clean ou super optimisés, mais je suis ouvert à toute remarque ou critique constructive, il n'y a pas de soucis

Dans tous les cas, il serait intéressant que l'un d'entre vous propose un code pour cette question, parce que j'ai remarqué que ça revenait souvent sur le forum (bien que des questions semblables existent déjà dans la FAQ ).

[jpcheck]

Au lieu d'un tableau, j'utiliserai à ce moment là une collection :

Dim tempoCol as Collection
Dim ligne As Integer
Dim valeur As Variant
Dim colonne As Integer
Dim i as Integer
 
' Colonne de la zone de liste dans laquelle se situe l'information
colonne = 0
 
' Parcours de la zone de liste
For ligne = 0 To Me.MaZoneDeListe.ListCount - 1
    If Me.MaZoneDeListe.Selected(ligne) Then
        ' Si la ligne est sélectionnée, on stocke sa valeur dans la variable "valeur"
        tempoCol.Add Me.MaZoneDeListe.Column(colonne, ligne)
        ' Mettre valeur = CInt(Me.MaZoneDeListe.Column(colonne, ligne)) si la valeur est numérique
    End If
Next ligne
 
For i = 0 To UBound(tempoCol)
    MsgBox tempoCol(i)
Next i

[azertix]

Ah tiens, je ne connaissais pas cette méthode, c'est intéressant, je prends note
Quel intérêt d'utiliser une collection plutôt qu'un tableau ?

Sinon la question est publiable, à présent ?

[jpcheck]

Je n'aime pas les

Redim Preserve

^^

[azertix]

Argument convaiquant

[azertix]

Et hop ! Je commente les nouveaux ajouts

Dim tempoCol As Collection
Dim ligne As Integer
Dim valeur As Variant
Dim colonne As Integer
Dim i as Integer
 
' Colonne de la zone de liste dans laquelle se situe l'information
colonne = 0
 
' Parcours de la zone de liste
For ligne = 0 To Me.MaZoneDeListe.ListCount - 1
    If Me.MaZoneDeListe.Selected(ligne) Then
        ' Si la ligne est sélectionnée, on stocke sa valeur dans la collection tempoCol
        tempoCol.Add Me.MaZoneDeListe.Column(colonne, ligne)
    End If
Next ligne
 
' On affiche les valeurs en parcourant la collection
For i = 0 To UBound(tempoCol)
    MsgBox tempoCol(i)
Next i

Question : il n'y a pas de référence à cocher pour utiliser les collection ?

[jpcheck]

c'est déjà intégré dans les bibliothèques par défaut

[azertix]

Ok, c'est niquel ça, les collections.
J'ai bien fait de poster