Pb multiselection listbox

[TREDI-GEREP]

Bonjour a tous
Voici mon soucis j'ai bout de code que voici :
Private Sub cmdOkay_Click()
Dim i, y As Integer
y = 0
For i = 0 To Me.Listchoix.ListCount - 1
If Me.Listchoix.Selected(i) = True Then
y = y + 1
Range("B1").End(xlDown).Select

ActiveCell.Offset(0, y).Value = Listchoix.List(i)
ActiveCell.Offset(0, 2).Value = Listchoix.List(i, 2)
ActiveCell.Offset(0, 3).Value = Listchoix.List(i, 3)
ActiveCell.Offset(0, 4).Value = Listchoix.List(i, 4)
End If
Next i
End Sub

le premier item selectionné marche tres bien, mais le deuxieme ou les autres non ! en fait apres le 1er passage de la boucle j'ai l'impression que tous est deselectionné . Merci pat avance

 

[BOISGONTIER]

Re : Pb multiselection listbox

Bonjour,

Dim i
For i = 0 To Me.Listchoix.ListCount - 1
    If Me.Listchoix.Selected(i) = True Then
        Range("b65000").End(xlUp).Offset(1, 0).Select
        ActiveCell.Offset(0, 0).Value = Listchoix.List(i)
        ActiveCell.Offset(0, 2).Value = Listchoix.List(i, 2)
        ActiveCell.Offset(0, 3).Value = Listchoix.List(i, 3)
        ActiveCell.Offset(0, 4).Value = Listchoix.List(i, 4)
    End If
Next i

JB
Formation Excel VBA JB

 

[TREDI-GEREP]

Re : Pb multiselection listbox

Merci pour la reponse , j'ai effectué le changement mais malheureusement ne fonctionne que pour un item selectionné, la listbox est bien en multiselect. J'ai mis un arret sur la boucle et lorsque le 1er item selectionné passe le selected(i) est à true, en revanche apres tout est en false meme si j'en ai selectionés d'autres.
j'aurais aimer inclure le fichier mais il y des données confidentielles !

 

[BOISGONTIER]

Re : Pb multiselection listbox

Voir PJ

JB

 

[TREDI-GEREP]

Re : Pb multiselection listbox

Merci encore, j'ai enfin trouver l'erreur, enfin je pense. je ne choissais pas les bonnes cellules de depart, bref ca marche impec !! 😀

Merci