Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim Ws As Worksheet
Dim Ligne As Integer
Dim I As Integer, ii
If MsgBox("Etes-vous certain de vouloir modifier cette ligne ?", vbYesNo, _
"Demande de confirmation") <> vbYes Then Exit Sub
Set Ws = Sheets("Feuil1")
If ListBox1 = "" Then Exit Sub ' ou se code If listbox1.ListIndex = -1 Then Exit Sub à la place de If listbox1 = "" Then Exit Sub
'If listbox1.ListIndex = -1 Then Exit Sub
Ligne = ListBox1.ListIndex + 2
With Sheets("Feuil1")
.Range("B" & Ligne).Value = désignation.Value
.Range("C" & Ligne).Value = élément.Value
.Range("D" & Ligne).Value = tachedemandé.Value
.Range("D" & Ligne).Value = numerointervention.Value
.Range("E" & Ligne).Value = datedebut.Value
.Range("F" & Ligne).Value = dateprochaine.Value
.Range("G" & Ligne).Value = interveneur.Value
.Range("H" & Ligne).Value = tempsconsomé.Value
.Range("I" & Ligne).Value = piecederechange.Value
.Range("j" & Ligne).Value = quantité.Value
End With
MsgBox ("ligne modifiée")
End If
userform1.Show (False)
End Sub