Private Sub CmbValider_Click()
Dim DerLigne As Long, T$
T = "A VERIFIER !!! :" & vbCrLf
If Me.TxtDateDépart = "" Then T = T & "la date de depart" & vbCrLf
If Me.TxtDateArrivée = "" Then T = T & "la date d'arrivée" & vbCrLf
If Me.TxtVilleDépart = "" Then T = T & "la ville de départ" & vbCrLf
If Me.TxtVilleArrivée = "" Then T = T & "la ville d'arrivée" & vbCrLf
If Me.TxtKmDépart = "" Then T = T & "le kilometrage de départ " & vbCrLf
If IsDate(Me.TxtDateArrivée) And IsDate((Me.TxtDateDépart)) Then
If CDate(Me.TxtDateArrivée) < CDate(Me.TxtDateDépart) Then T = T & " la date d'arrivée ne doit pas etre inferieur a la date de depart"
End If
If T <> "A VERIFIER !!! :" Then MsgBox T: Exit Sub
With Sheets("bd")
DerLigne = .Cells(Rows.Count, 3).End(xlUp).Row + 1
.Range("C" & DerLigne) = CDate(Me.TxtDateDépart)
.Range("D" & DerLigne) = CDate(Me.TxtDateArrivée)
.Range("E" & DerLigne) = CDate(Me.TxtDateArrivée) - CLng(CDate(Me.TxtDateDépart))
.Range("F" & DerLigne) = CLng(Me.TxtKmDépart)
.Range("G" & DerLigne) = Me.TxtVilleDépart
.Range("H" & DerLigne) = Me.TxtVilleArrivée
End With
MsgBox " Données transférées "
Unload Me
End Sub