Discussion :

[lepiou]

Bonjour tout le monde.

J'ai un petit soucis, j'ai une zone de liste qui contient 3 colonnes.

-NumCommande
-NumLigneCommande
-DescriptionCommande

J'ai mis la possibilité d'une selection etendu sur la liste. Ce qui fait qu'avec la touche ALT, l'utilisateur peut selectionner plusieurs lignes (en noir).

Le truc c'est que lorsqu'il appuie sur la touche 'Entrée', un formulaire s'ouvre. J'aimerai recuperer à l'ouverture de ce formulaire les valeurs de la deuxieme colonnes (NumLigneCommande) selectionnée. Je suis parti du coté ListeCommande.selected mais je nage un peu.

J'espere avoir été clair.

Merci du coup de main.

[wulfram]

Pour récupérer la valeur d'une colonne, au niveau de la ligne sélectionnée

nomduform.nomdelaliste.Column(i)
i = 0 ==> première colonne (affichée ou non)
i = 1 ==> deuxième colonne (affichée ou non)
i = listcount - 1 ==> dernière colonne
i = listcount ==> erreure


Avec plusieurs lignes, pourquoi pas un

Code :

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

1
2
 
nomduform.nomdelaliste.column(lacolonnevoulue).selected(i)

Une petite boucle
for i = 0 to nbrdeligneselect, et tu récupères la valeur à chaque tour...

[lepiou]

Je suis parti sur ca donc :

Code :

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

1
2
3
4
5
6
7
8
Dim i As Integer
Dim vartemp As String
 
For i = 0 To [Infos Usine].[Form_Infos Usine].Liste58.ListCount
    If [Infos Usine].[Form_Infos Usine].Liste58.Selected(i) = True Then
        vartemp = [Infos Usine].[Form_Infos Usine].Liste58.Column(2).Selected(i)
    End If
Next

J'ai une erreur sur :

Code :

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

vartemp = [Infos Usine].[Form_Infos Usine].Liste58.Column(2).Selected(i)

Erreur d'execution 424 :
Objet requis

[wulfram]

Tu peux tenter en utilisant des msgbox pour cibler ce que tu cherches :

msgbox(liste.selected(i))
msgbox(liste.column(x))
msgbox(liste.column(a).selected(i)) ==> apparement, ce n'est pas la bonne méthode vu le message d'erreure, mais autant vérifier...

Selon les résultats obtenus, tu peux peut-être envisager de créer une liste à colonne unique, reprenant ta colonne (2), que tu alimentes sur l'évènement clic de la liste, et alt+clic...

[lepiou]

Trouvé !

Code :

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

1
2
3
4
5
6
7
8
Dim i As Integer
Dim vartemp As String

For i = 0 To [Infos Usine].[Form_Infos Usine].Liste58.ListCount
    If [Infos Usine].[Form_Infos Usine].Liste58.Selected(i) = True Then
        MsgBox ([Infos Usine].[Form_Infos Usine].Liste58.Column(2, i))
    End If
Next

La propriété Column permet de désigner une colonne spécifique ou une combinaison de colonnes et de lignes dans une zone de liste modifiable ou une zone de liste multicolonne. Variant en lecture seule.

expression.Column(Index, Ligne)
expression Requise. Expression renvoyant l'un des objets figurant dans la liste Application.

Index Long obligatoire. Entier de type long compris entre 0 et la valeur de la propriété ColumnCount moins un.

Ligne Variant facultatif. Entier compris entre 0 et la valeur de la propriété ListCount moins un.

Le paramétrage de cette propriété n'est accessible qu'à l'aide d'une macro ou de Visual Basic. Il n'est pas accessible en mode Création et est en lecture seule dans les autres modes.

Suffisait de rajouter la ligne

Merci pour l'aiguillage

[wulfram]

Han, j'avais mal cerné la question, mais ce n'est pas plus mal, ça t'a permi de trouver tout seul !