Gestion de Produits

Private Sub zPlaceDonnées(Lg&)
  With Sh_Pro
    .Cells(Lg, 1) = StrConv(Categorie.Text, vbUpperCase)
    .Cells(Lg, 2) = StrConv(Me.Produits.Text, vbUpperCase)
    .Cells(Lg, 3) = NB.Value
    '.Cells(Lg, 4).NumberFormat = "# ##0.00" '"$#,##0.00_);[Red]($#,##0.00)"
    .Cells(Lg, 4) = CDbl(Prix.Value)
    .Cells(Lg, 5) = Taille
    ' Ajouter ici les tailles
    .Cells(Lg, 6) = Val(TextBox1)
    .Cells(Lg, 6).NumberFormat = "000"
    .Cells(Lg, 7) = Val(TextBox2)
    .Cells(Lg, 7).NumberFormat = "000"
  End With
End Sub