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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?