Discussion :

[Daniel MOREAU]

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 :

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

Je vais continuer mes recherches en attendant.

Merci pour vos réponses

Daniel.

[cafeine]

Hello,

je ne comprends pas, dans la mesure où le type de source est une liste de valeurs, pourquoi tu ne fais pas tout simplement.

Code :

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

1
2
Me.MaListeCible.RowSourceType = Me.MaListeSource.RowSourceType
Me.MaListeCible.RowSource = Me.MaListeSource.RowSource

Sinon, ton code ne s'assure pas que ta liste cible est bien en mode "Liste Valeurs" ...