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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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