Discussion :

[mmcg79]

Bonjour,
Je suis entrain de construire un programme pour une gestion de clients.
Je suis bloqué sur une partie de code VBA.
Voici mon problème: Dans un même formulaire j'ai 2 zone de liste, une qui contient ma base de donnée et l'autre qui est vide.
j'aimerai via un bouton copier ma sélection de la première zone de liste et la mettre dans la 2ème zone de liste.
Comment faire?
merci

Ps: voici mon code ("BD" = 1ère zone de liste et "Personnesducour" = 2ème zone de liste)

Code :

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

1
2
3
4
5
6
7
8
9
Dim itm As Variant, retval
 
    With BD                
 
        For Each itm In .ItemsSelected
           Personnesducour.AddItem .ItemData(itm)     
 
        Next itm
    End With

[tee_grandbois]

Bonjour,
Voici un exemple de remplissage d'une liste 2 avec sélection depuis une liste 1

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
Dim i As Integer
Dim ctl As Control
Dim varItm As Variant
 
    ' Vidage de la liste 2 si celle-ci n'est pas vide
    If Me.Liste2.ListCount > 0 Then
        For i = Me.Liste2.ListCount - 1 To 0 Step -1
            Me.Liste2.RemoveItem Index:=i
        Next i
    End If
 
    ' Remplissage de la liste 2 avec sélection de liste 1 
    Set ctl = Me.Liste1
    For Each varItm In ctl.ItemsSelected
        Me.Liste2.AddItem (ctl.ItemData(varItm))
    Next varItm

[mmcg79]

bonjour tee_grandbois
J'ai mis ton code dans mon programme et il fonctionne, merci. Mais il ne prend pas toute la ligne. (Sur la ligne sélectionnée j'ai trois colonnes et il ne prend que la première)
si j'ai bien compris dans l'aide de msdn.microsoft c'est le AddItem qui pose problème, à moins que je me trompe.
merci pour ton aide.
J'ai une autre question: que veux dire le"i" dans Dim i as integer?

[tee_grandbois]

Bonsoir,
Dim i as integer est la déclaration du compteur d'index permettant de vider la liste de destination avant le remplissage.
Voici le code qui prend toutes les colonnes de la liste :

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
Dim i As Long
Dim j As Long, k As Long
Dim varItm As Variant
 
  ' Vidage des anciennes valeurs de la liste 2
If Me.Liste2.ListCount > 0 Then
    For i = Me.Liste2.ListCount - 1 To 0 Step -1
        Me.Liste2.RemoveItem Index:=i
    Next i
End If
 
 ' Méthode avec une colonne
 '   For Each varItm In Me.Liste1.ItemsSelected
 '       Me.Liste2.AddItem (Me.Liste1.ItemData(varItm))
 '   Next varItm
 
 ' Méthode avec plusieurs colonnes
 
For j = 0 To Me.Liste1.ListCount - 1                ' lecture de la liste 1
    If Me.Liste1.Selected(j) = True Then            ' sélection des items sélectionnés
        varItm = Null
        For i = 0 To Me.Liste1.ColumnCount          ' lecture des colonnes de la liste 1
            varItm = varItm & IIf(IsNull(varItm), Null, ";") & Me.Liste1.Column(i, j)
        Next i
        Me.Liste2.AddItem varItm, Index:=k          ' ajout dans liste 2 des items sélectionnés
        k = k + 1
    End If
Next j

[mmcg79]

merci beaucoup çaca fonctionne parfaitement.