Aide pour mon DM ..

Private Sub Annuler_Click()
'' raz combobox ou listbox
Equipement.ListIndex = -1
Responsable.ListIndex = -1
Date_a_valider.ListIndex = -1
type_dintervention.ListIndex = -1

' raz textbox
numero_de_fiche = ""
     

End Sub



Private Sub Heure1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = False
If Not IsDate(Heure1) Then
    Call MsgBox("L'heure doit être sous la forme" _
                & vbCrLf & "HH:MM ou 00:MM" _
                & vbCrLf & "" _
                & vbCrLf & "" _
                , vbExclamation, "Heure non conforme")
    
    Cancel = True
End If
Exit Sub
End Sub


Private Sub Quitter_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
' Le programme tiendra compte de l'ajout de nouvelle machines
Equipement.RowSource = "Equipement!A2:A" & Sheets("Equipement").Range("A" & Sheets("Equipement").Rows.Count).End(xlUp).Row

End Sub

Private Sub Valider_Click()
'ecrire dans les colonnes
Dim Dl1 As Long ' dernière ligne
' controle des données, on vérifie si les controles sont remplis
If Equipement.ListIndex = -1 And Equipement.Value = "" Then
    Call MsgBox("Vous devez indiquez la machine concernée." _
                & vbCrLf & "" _
                & vbCrLf & "" _
                , vbExclamation, "Equipement")
    
    Equipement.SetFocus = True
    Exit Sub
End If




' inscrire les données dans la feuille
With Sheets("fiches")
    Dl1 = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ' première ligne non vide
    .Range("A" & Dl1) = Equipement.Value
    ' a compléter

End With
End Sub