correction: colonne L au lieur de D
Private Sub CommandButton1_Click()
'valider tous les items du ListBox1
Dim lItem As Long
For lItem = 1 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(lItem) = True
rw = Application.Match(ListBox1.List(lItem), Sheets("Délais").Range("I:I"), 0)
Sheets("Délais").Range("L" & rw) = Me.TextBox1
Next
End Sub
Private Sub CommandButton2_Click()
'valider les selections du ListBox1
Dim lItem As Long
For lItem = 1 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(lItem) = True Then
rw = Application.Match(ListBox1.List(lItem), Sheets("Délais").Range("I:I"), 0)
Sheets("Délais").Range("L" & rw) = Me.TextBox1
End If
Next
End Sub