Perte de sélection dans une listbox
Bonjour à tous,
Je cherche à remplir un tableau via un formulaire avec listbox dont j'ai activé la propriété multiselection.
Mon problème est le suivant :
Après avoir trouvé une première ligne sélectionnée (et réagis comme attendu), la listbox est visiblement réinitialisée sans aucune sélection :(
Conséquence seule une ligne est complétée.
Mon code tiens en quelques lignes
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub CmbValider_Click()
Dim i As Long
For i = 1 To ListPrevision.ListCount
If ListPrevision.Selected(i) = True Then
MsgBox ListPrevision.List(i)
Range("E" & i + 1).Offset(0, 1) = ListPrevision.List(i, 4)
Range("H" & i + 1).Offset(0, 1) = ListPrevision.List(i, 7)
End If
Next i
End Sub |
Code:
1 2 3 4 5 6 7 8
| Private Sub UserForm_Activate()
Dim NbreLigne As Long
'Alimentation de la listbox
NbreLigne = Range("Feuil1!A1").CurrentRegion.Rows.Count
ListPrevision.RowSource = "Feuil1!A1:J" & NbreLigne
ListPrevision.ListIndex = 0
End Sub |
Pouvez vous m'indiquer où est mon erreur svp ?