Bonsoir,
Avant que vous me répondiez, j'avais fait un tentative en ajoutant cette ligne Cells(ligne, 4) = Me.TextBox1.Value au code, et cela semble bien marcher!
Je ne saurais vous dire la différence entre votre dernière proposition et ma tentative!
Pourquoi, il ne serait plus possible d'avoir la sélection multiple?
Private Sub B_ajout_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
ligne = [b65000].End(xlUp).Row + 1
Cells(ligne, 2) = Me.ListBox1.List(i, 0)
Cells(ligne, 3) = Me.ListBox1.List(i, 1)
Cells(ligne, 5) = Me.ListBox1.List(i, 4)
Cells(ligne, 4) = Me.TextBox1.Value
End If
Next i
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next i
TextBox1 = ""
ComboBox1 = ""
ComboBox2 = ""
End Sub