'bouton Valider compteur
Private Sub CommandButton1_Click()
Dim dlt As Integer, Ddate As Date, Vehicule As String, i As Integer
With Sheets("Mvt compteur")
If .Range("E5") < .Range("E10") Then
MsgBox ("Kilométrage incorrect !!!")
.Range("E5") = "": .Range("E5").Select
Exit Sub
End If
If .Range("E6") < .Range("F10") Then
MsgBox ("Heure chassis incorrect !!!")
.Range("E6") = "": .Range("E6").Select
Exit Sub
End If
If .Range("E7") < .Range("G10") Then
MsgBox ("Heure pompe incorrect !!!")
.Range("E7") = "": .Range("E7").Select
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'verification
Ddate = CDate(.Range("c4").Value): Vehicule = .Range("c6").Value
dlt = .Range("B" & Rows.Count).End(xlUp).Row
For i = 12 To dlt
If .Range("B" & i) = Ddate And .Range("D" & i) = Vehicule And .Range("F" & i) = .Range("E5") Then
MsgBox "Existe déjà!"
Exit Sub
End If
Next i
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'controle si il y a toutes les informations
If .Range("C4") = "" Or .Range("E5") = "" Or .Range("C5") = "" Or .Range("C6") = "" Then
MsgBox ("il manque des informations")
Else
If MsgBox("Confirmez-vous le renseignement du " & .Range("C6").Value & " pour validation ? " & Chr(10) & _
.Range("D5").Value & " : " & .Range("E5").Value & Chr(10) & .Range("D6").Value & " : " _
& .Range("E6").Value & Chr(10) & .Range("D7").Value & " : " & .Range("E7").Value, vbYesNo) = vbNo Then
Else
If .Range("B11") <> "" Then
.ListObjects(1).ListRows.Add.Range(1, 1).Value = CDate(Range("C4").Value) 'Now()
Else
' .Range("B11") = CDate(Range("C4").Value) 'B11 entete colonne Date du tableau
End If
'ajouter les informations dans le tableau
' .Range("B" & dlt + 1) = Format(.Range("C4"), "dd/mm/yyyy") 'ne sert à rien
.Range("C" & dlt + 1) = .Range("C5")
.Range("D" & dlt + 1) = .Range("C6")
.Range("E" & dlt + 1) = .Range("C7")
.Range("F" & dlt + 1) = .Range("E5")
.Range("G" & dlt + 1) = .Range("E6")
.Range("H" & dlt + 1) = .Range("E7")
' 'préparation pour une nouvelle entrée
Reset_KmHr
End If
End If
End With