Discussion :

[Invité]

Bonjour,

J'aimerais recuperer un ou plusieurs elements sélectionnés à partir d'une liste l1 et les "transvasé" vers une liste l2 d'un autre formulaire.

le probleme étant que j'ai essayé les méthodes (que j'ai trouvé dans l'aide de VBA) maListe.ItemsSelected , ou ma Maliste.SelectedItem ainsi que l'aide support de microsoft : http://support.microsoft.com/kb/461495/fr

il me dit que les méthodes sont incorrectes ou introuvables.

Merçi de m'éclairer
Cordialement.

[helas]

L1 etant la liste source et L2 la destination et si L2 a comme source la table tbTransvases alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Dim v As Variant, t As DAO.Recordset
 
 Set t = CurrentDb.OpenRecordset("tbTransvases")
 For Each v In Me!L1.ItemsSelected
  t.AddNew
  t!donnee = Me!L1.ItemData(v)
  t.Update
 Next v
 t.Close

donnee est le champ de la table tbTransvases qui va recuillir les items sélectionnés

[Faw]

Salut,
1- je ne vois vraiment pas le rapport entre le lien microsoft (pas compris ) et ta problématique.

2- Avant de se lancer dans le transfert, deux précisions s'imposent:
2-1- Le rowsourcetype de L2 est "Liste valeurs" ou "Table/Requête"?
le deuxième cas serait compatible avec le code de helas mais pas
le premier...
2-2- Tu veux transférer 1 ou plusieurs colonnes par ligne sélectionnée? (si "Liste valeurs")

[Invité]

Re,

Bon j'ai avancé un peu , à savoir quand je selectionne un ou plusieurs films de la liste_films (source) du Formulaire Menu , et quand je clique sur le bouton emprunter , mon autre formulaire "emprunter" s'ouvre et affiche dans une liste de films à emprunter , l'index de chaque films precedemment selectionnés . Ma liste de films à emprunter à comme source une liste de valeurs. Et je voudrais en fait afficher le titre correspondant à l'index de chaque ligne dans ma liste de films a emprunter.





Voici le code dans mon Form_Emprunter lorsqu'il est chargé:

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 Form_Load()
 
Dim ctl As Control
Dim varItm2 As Variant
Set ctl = Form_Menu!Liste_Films
 
For Each varItm2 In ctl.ItemsSelected
 
ListeFilmsEmprunter.AddItem (varItm2)
Next varItm2
 
End Sub

Liste_films: source
ListeFilmsEmprunter: Destination

[Faw]

Essaye comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim ctl As Control
Dim varItm2 As Variant
Set ctl = Form_Menu!Liste_Films
 
For Each varItm2 In ctl.ItemsSelected
 
ListeFilmsEmprunter.AddItem ctl.ItemData(varElt)
Next varItm2
 
End Sub

[Invité]

Essaye comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Dim ctl As Control
Dim varItm2 As Variant
Set ctl = Form_Menu!Liste_Films
 
For Each varItm2 In ctl.ItemsSelected
 
ListeFilmsEmprunter.AddItem ctl.ItemData(varElt)
Next varItm2
 
End Sub

alors cette fois - ci il m'ajoute le numero du film et plus l'index on y est presque j'essaye de recuperer le titre grâce au numero avec une requete mais je vois pas comment recuperer chaque numero ^^

[Faw]

Oui itemdata retourne la valeur de la colonne liée.

Code :

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

ListeFilmsEmprunter.AddItem ctl.Column(1, ctl.ItemsSelected(varElt))

[Invité]

Oui itemdata retourne la valeur de la colonne liée.

Code :

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

ListeFilmsEmprunter.AddItem ctl.Column(1, ctl.ItemsSelected(varElt))

il me dit que je fais reference à une propriété à l'aide d'un argument numérique qui ne fait pas partie des numeros de propriété de la collection

il y aurait t'il un rapport avec le nombre de colonne de ma liste destination , j'ai actuellement une seule colonne ...

ps : quand je selectionne le premier film sa marche mais pas quand j'en prend un deuxieme ...

[Faw]

Arf!!!

Code :

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

ListeFilmsEmprunter.AddItem ctl.Column(1,(varElt))

[Invité]

Arf!!!

Code :

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

ListeFilmsEmprunter.AddItem ctl.Column(1,(varElt))

Merci mille fois c'est ok !!!!

[Faw]

Pas de quoi.
Pense au tag [Résolu] quand c'est ok pour toi.