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)
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)
Bonjour mapomme,Bonjour @ced91300 ,
Il faudrait nous dire sous quelle forme vous voulez l'enregistrer :
à plus ,
- une liste déroulante des valeurs cochées dans la cellule de la colonne H
- un texte des valeurs cochées séparées par un séparateur (par exemple le point-virgule)
- une valeur cochée dans chaque colonne à partir de la colonne H
- ou bien alors encore autre chose...
C'est donc la version de mon 2° message :je souhaite l'enregistrer dans une seule colonne séparée d'un point virgule.
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)
Merci, c'est exactement ça dont j'ai besoin, en revanche la lisbox ne s'initialise pas apes l'enregistrement (j'ai rentrer essai.Value = ""C'est donc la version de mon 2° message :
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)
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.en revanche la lisbox ne s'initialise pas apes l'enregistrement (j'ai rentrer essai.Value = ""
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)
Excuse moi,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)
Je ne comprends pas très bien ta demande .Et si je souhaite réaliser une listbox supplémentaire du même type et à la suite ?
En fait exactement la même chose, mais avec 2 listbox au lieu d'une seule.Je ne comprends pas très bien ta demande .
c'est bon, j'ai trouvéJe ne comprends pas très bien ta demande .
Bonjour Mapomme,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)