Private Sub b_imprime_Click()
  Me.PrintForm
End Sub
Private Sub UserForm_Initialize()
Me.Conditionnement.RowSource = "MesureProduit"
 End Sub
Private Sub b_validation_Click()
   '--- Contrôles
   If Me.Produit = "" Then
      MsgBox "Veuillez saisir un nom de produit !"
      Me.Produit.SetFocus
      Exit Sub
   End If
      If Me.Conditionnement = "" Then
      MsgBox "Veuillez saisir un conditionnment !"
      Me.Conditionnement.SetFocus
      Exit Sub
   End If
    If Not IsNumeric(Me.Quantite) Then
      MsgBox "Veuillez saisir une quantité !"
      Me.Quantite = ""
      Me.Quantite.SetFocus
      Exit Sub
   End If
   If Not IsNumeric(Me.Prix) Then
      If Me.Prix = "" Then
      Me.Prix.Value = Me.Prix.Value & " €"
      MsgBox "Veuillez saisir un prix du produit !"
      Me.Prix.SetFocus
      End If
      Exit Sub
    If Me.Reference = "" Then
      MsgBox "Veuillez saisir une référence !"
      Me.Reference.SetFocus
      End If
      Exit Sub
      
   End If

   '--- Positionnement dans la base
   '[A65000].End(xlUp).Offset(1, 0).Select
   '--- Transfert Formulaire dans BD
   With Sheets("STOCK_INITIAL")
   .Range("6:6").EntireRow.Copy
   .Range("6:6").Insert
   .Cells(6, 1).Value = Me.Produit
   .Cells(6, 2).Value = Me.Conditionnement
   .Cells(6, 3).Value = Me.Quantite
   .Cells(6, 4).Value = Me.Prix.Value & "€"
   .Cells(6, 11).Value = Me.Reference
   
   
   .Range("A5").CurrentRegion.Sort key1:=.Range("A5"), Order1:=xlAscending, Header:=xlYes, _
         MatchCase:=False, Orientation:=xlTopToBottom
   End With
   '--
   nettoie
End Sub
Sub nettoie()
  Me.Produit = ""
  Me.Conditionnement = ""
  Me.Quantite = ""
  Me.Prix = ""
  Me.Reference = ""
  
  Application.ScreenUpdating = True
MsgBox "La fiche de votre produit est bien validée, " & Chr(13) & "Vous pourrez la modifier si besoin plus tard ! " & Chr(13) & " " & Chr(13) & " Cliquez OK pour fermer le formulaire "
 Unload Me
End Sub
Private Sub b_fin_Click()
  Unload Me
End Sub
Function OuiNon(valeur)
  OuiNon = IIf(valeur, "Oui", "Non")
End Function