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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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" a écrit dans le message de groupe de discussion :
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
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" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
OFTXKNyGKHA.4024@TK2MSFTNGP02.phx.gbl...
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.
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" a écrit dans le message de groupe de discussion :
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.