Résolu Gestion de Produits

Bearn 64

XLDnaute Occasionnel
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.
 

Fichiers joints

BrunoM45

XLDnaute Barbatruc
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
@+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas