Calcul somme userform

Résolu
juer31 Messages postés 120 Statut Membre -  
juer31 Messages postés 120 Statut Membre -

Bonjour,

J'ai une userform sur laquelle je fais le "calculsomme" de 2 textbox. 

total1 = qte1*coutant1

Me.TOTAL1.Value = (Val(Replace(Me.QTE1, ",", ".")) * Val(Replace(Me.COUTANT1, ",", "."))) / (((100 - (Val(Replace(Me.MARGE, ",", ".")))) / 100))

J'aimerais savoir s'il y a moyen de faire le VBA pour dire de faire la somme dans chaque textbox "total"

somme total2 = qte2*coutant2

somme total3 =...... ect.

Merci de m'aider 


Windows / Chrome 129.0.0.0

2 réponses

  1. cousinhub29 Messages postés 1114 Date d'inscription   Statut Membre Dernière intervention   382
     

    Bonjour,

    Sans filets

    Supposant

    - tous tes TxtBox sont numérotés identiquement (1, 2, ...)
    - le TxtBox "Marge" est unique

    A adapter selon le nombre :

    For I = 1 To 3 'nombre à adapter
        Me.Controls("TOTAL" & I).Value = (Val(Replace(Me.Controls("QTE" & I), ",", ".")) * Val(Replace(Me.Controls("COUTANT" & I), ",", "."))) / (((100 - (Val(Replace(Me.MARGE, ",", ".")))) / 100))
    Next I

    Bonne journée


    1
  2. juer31 Messages postés 120 Statut Membre 6
     

    Merci pour l'aide.

    Je n'utilise pas souvent du codage et je ne voyais plus la solution.

    Merci

    0