Private Sub Materiel_Ajouter_Click()
Dim derligne As Integer
derligne = Sheets("Suivi_stock").Cells(Rows.Count, 1).End(xlUp).Row + 1
If M_Des_Art_TextBox <> "" And M_Etat_ComboBox <> "" And M_Qte_TextBox <> "" And M_Qte_TextBox <> "" And M_PMP_TextBox <> "" Then
Cells(derligne, "A") = CDbl(M_TextBox)
Cells(derligne, "B") = M_Des_Art_TextBox
Cells(derligne, "C") = M_Constructeur_TextBox
Cells(derligne, "D") = M_ConstructeurRef_TextBox
Cells(derligne, "E") = M_Famille_ComboBox
Cells(derligne, "F") = M_Magasin_ComboBox
Cells(derligne, "G") = M_Bac_TextBox
Cells(derligne, "L") = CInt(M_Qte_TextBox)
Cells(derligne, "J") = CDbl(M_PMP_TextBox)
If M_QteMini_TextBox = "" Then
Cells(derligne, "I") = ""
Else
Cells(derligne, "L") = CInt(M_QteMini_TextBox)
End If
Unload Me
Else
MsgBox "Merci de renseigner de les champs requis en jaune"
End If
End Sub