Discussion :

[lbar012001]

Bonjour à tous,

J'ai une zone de liste (simple) A qui lorsqu'on y sélectionne une valeur rafraichit une seconde zone de liste B fonction de la valeur renvoyée par ma liste A.

Si je bascule ma zone de liste A en mode multiselect, je perds la valeur (car de ce que j'ai vu en mode multiselect la valeur renvoyée est null) et donc je ne peux plus rafraichir ma zone de liste B.

Y a t il un moyen, en mode multiselect, de récupérer la valeur de la première ligne sélectionnée de ma liste A en mode multiselect, donc rafraichir ma liste B et ne rien faire pour les lignes suivantes sélectionnées dans A ?

J'ai essayé de jouer avec la propriété multiselect mais je n'y arrive pas, à priori on ne peut la modifier qu'en mode création.

Si vous avez une idée...

Merci

Laurent

[Muhad'hib]

Salut,

Tu peux connaitre l'index de la première ligne sélectionnée avec

Code :

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

Ctl.ItemsSelected(0)

Pour récupérer la donnée correspondante à cet index

Code :

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

Ctl.ItemData(Ctl.ItemsSelected(0))

[pier.antoine]

Bonjour.

Quelque chose comme cela?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
 
Dim Item As Variant
Dim strSQL1 As String
Dim strSQL2 As String ' sql de la listeB
 
For Each Item In Me.ListeA.ItemsSelected
strSQL1 = strSQL1 & " Or ((RefListeA) = " & Me.ListeA.ItemData(Item) & ")"
Next
 
strSQL1 = Right(strSQL1, Len(strSQL1) - 3)
 
strSQL2 = "Select ListeBID.tListeB, RefListeA.tListeB from tListeB Where ("
strSQL2 = strSQL2 & strSQL1 & ");"
Stop
 
Me.ListeB.RowSource = strSQL2

Pierre