Bonsoir,
J'espère trouver de l'aide afin de solutionner mon problème.
Dans un formulaire, j'ai une zone de liste dans laquelle je stocke des informations.
Je veux à partir de cette première liste basculer ces informations vers une autre liste pour ensuite faire une affectation.
Malheureusement, rien ne bascule dans ma seconde liste. Avez une idée![]()
voici le code :
Je vais continuer mes recherches en attendant.
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
19
20
21
22
23
24
25
26
27
28 Private Sub cmdCopy_Click() CopySelection Me End Sub Public Sub CopySelection(ByRef frm As Form) Dim ctlSource As Control Dim ctlDest As Control Dim strItems As String Dim intCurrentRow As Integer Set ctlSource = frm!lstComplète Set ctlDest = frm!lstTriée For intCurrentRow = 0 To ctlSource.ListCount - 1 If ctlSource.Selected(intCurrentRow) Then strItems = strItems & ctlSource.Column(0, _ intCurrentRow) & ";" End If Next intCurrentRow ctlDest.RowSource = "" ctlDest.RowSource = strItems Set ctlSource = Nothing Set ctlDest = Nothing End Sub
Merci pour vos réponses
Daniel.
Partager