Private Sub CommandButton1_Click()
'double click bouton ajouter
If Madate.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Date'"
Exit Sub
End If
If Produits.Value = " élingue" Then
MsgBox "Veuillez noter le numéro de l'élingue"
Exit Sub
End If
Dim Ligne As Integer
If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbNo Then Exit Sub
With Sheets("Mouvements de stock")
Ligne = .Range("A65000").End(xlUp).Row + 1
.Cells(Ligne, 1) = Véhicule.Value
.Cells(Ligne, 2) = Madate.Value
.Cells(Ligne, 3) = Zone.Value
.Cells(Ligne, 4) = Produits.Value
.Cells(Ligne, 5) = Sortie.Value
End With
Unload Interface
Interface.Show
End Sub