On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.
VB:
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
Le plus facile => les valeurs cochées sont placées dans la colonne H séparées par points-virgules :
VB:
Dim i As Long, s As String
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
Dim i As Long, s As String
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
Pièces jointes
ced91300- Liste multivaleurs vers feuille- v1.xlsm
Dim i As Long, s As String
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.
VB:
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
Pièces jointes
ced91300- Liste multivaleurs vers feuille- v2.xlsm
On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.
VB:
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.
VB:
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)
On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.
VB:
For i = 0 To essai.ListCount - 1
If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
Next i
Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)