Calcul somme userform

Résolu

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. Merci pour l'aide.

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

    Merci

    0
    1. 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