'Permettant de sauvegarder l'ajout de la base de données PDT.
Private Sub btnsauvegarder_Click()
'Déclaration des variables
Dim f As Worksheet
Dim DerLig_f As Long, Qte As Long
Dim Famille As String, Design As String, Fournisseur As String, Ref As String
Dim Prix As Double
'Test que tous les champs obligatoires ont bien été saisie
If Len(Me.TextBoxdésignation) = 0 Then
Me.lblmessage = " Veuillez saisir la pièce détachée"
Me.TextBoxdésignation.SetFocus
ElseIf Len(Me.TextBoxfournisseur) = 0 Then
Me.lblmessage = " Veuillez saisir le nom du fournisseur"
Me.TextBoxfournisseur.SetFocus
ElseIf Len(Me.TextBoxréference) = 0 Then
Me.lblmessage = " Veuillez saisir la réference"
Me.TextBoxréference.SetFocus
ElseIf Len(Me.TextBoxquantité) = 0 Then
Me.lblmessage = " Veuillez saisir la quantité"
Me.TextBoxquantité.SetFocus
ElseIf Len(Me.TextBoxprixachatHT) = 0 Then
Me.lblmessage = " Veuillez saisir le prix d'Achat HT"
Me.TextBoxprixachatHT.SetFocus
ElseIf Len(Me.cbofamille) = 0 Then
Me.lblmessage = " Veuillez saisir la famille de produit"
Me.cbofamille.SetFocus
Else
' Si tous les champs sont renseignés alors on peut sauvegarder
'on récupère les données
Famille = cbofamille.Text
Design = TextBoxdésignation.Text
Fournisseur = TextBoxfournisseur.Text
Ref = TextBoxréference
Qte = TextBoxquantité.Text
Prix = TextBoxprixachatHT.Text
'on reporte les données dans chaque feuille cochée
If CheckBoxvalider1 = True Then
Set f = Sheets("Stock PDT Véhicule Chantier")
DerLig_f = f.ListObjects("Tstockpdtvéhiculechantier").DataBodyRange.Rows.Count
f.Range(f.Cells(DerLig_f + 1, "A"), f.Cells(DerLig_f + 1, "F")) = Array(Famille, Design, Fournisseur, Ref, Qte, Prix)
End If
If CheckBoxvalider2 = True Then
Set f = Sheets("Stock PDT véhicules SAV")
DerLig_f = f.ListObjects("TstockpdtvéhiculesSAV").DataBodyRange.Rows.Count
f.Range(f.Cells(DerLig_f + 1, "A"), f.Cells(DerLig_f + 1, "F")) = Array(Famille, Design, Fournisseur, Ref, Qte, Prix)
End If
If CheckBoxvalider3 = True Then
Set f = Sheets("Stock PDT Véhicules SAV Froid")
DerLig_f = f.ListObjects("TstockvéhiculesSAVfroid").DataBodyRange.Rows.Count
f.Range(f.Cells(DerLig_f + 1, "A"), f.Cells(DerLig_f + 1, "F")) = Array(Famille, Design, Fournisseur, Ref, Qte, Prix)
End If
End If
Set f = Nothing 'on libère la mémoire
End Sub