Gestion de Produits

Bearn 64 · 2 Octobre 2020

Bonjour le Forum et JPB388,

JPB388 si vous passez par là.

Ci-joint le fichier GC.xlsm qui permet de saisir les valeurs par un UserForm.
J'aurai voulu ajouter deux valeurs T1 et T2 valeurs numériques a 3 chiffres.
Hélas il me manque la technique.

Si vous pouviez m'aider, je vous remercie par avance.

Compte Supprimé 979 · 2 Octobre 2020

Bonjour Bearn64

L'ajout se fait dans la procédure zPlaceDonnées(Lg&)

VB:

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

@+

Bearn 64 · 2 Octobre 2020

Bonjour BrunoM45,

Encore merci pour ton intervention.

Gestion de Produits

Bearn 64

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Bearn 64

XLDnaute Occasionnel

Discussions similaires