ListBox

Le
Pascal
Bonjour,
J'ai un listBox alimentée comme cela:
ListBox1.ColumnCount = 5
ListBox1.RowSource = ("A1:E115")

Après un ListBox1_Click, comment coller les éléments Choisis de la liste
box (Liste Multiple), donc en fait la ligne, dans une autre ListBox afin de
l'alimenter.

Merci
Pascal
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19919101
Bonjour Pascal,

Cela pourrait ressembler à ceci :
Les contrôles sont dans une feuille de calcul mais
c'est le même principe si ces contrôles sont dans
un formulaire

'----------------------------------------------
Sub test()
Dim A As Integer, I As Integer
'Propriété Name de la feuille
With Feuil2 'Nom Feuille à adapter
.ListBox2.Clear
For I = 0 To .ListBox1.ListCount - 1
If .ListBox1.Selected(I) = True Then
.ListBox2.AddItem ListBox1.List(I, 0)
.ListBox2.List(A, 1) = .ListBox1.List(A, 1)
.ListBox2.List(A, 2) = .ListBox1.List(A, 2)
.ListBox2.List(A, 3) = .ListBox1.List(A, 3)
.ListBox2.List(A, 4) = .ListBox1.List(A, 4)
A = A + 1
End If
Next
End With
End Sub
'----------------------------------------------



"Pascal"
Bonjour,
J'ai un listBox alimentée comme cela:
ListBox1.ColumnCount = 5
ListBox1.RowSource = ("A1:E115")

Après un ListBox1_Click, comment coller les éléments Choisis de la liste
box (Liste Multiple), donc en fait la ligne, dans une autre ListBox afin de
l'alimenter.

Merci
Pascal
Publicité
Poster une réponse
Anonyme