Formule de calcule Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
MARK_TK
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 12 janvier 2016
Version d'Excel : 2013

Message par MARK_TK » 19 mars 2016, 00:09

Bsr comment faire un code de calcule automatique sur useform


TextBox5 =X
TextBox1 = A
TextBox2 =B
TextBox3 =c
TextBox4 =Y

TextBox4= (A-B)-((0.5*x)-C)


Merci
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 19 mars 2016, 01:13

Bonjour

A tester
Dim X As Double, A As Double, B As Double, C As Double

  X = Val(Replace(Me.TextBox5, ",", "."))
  A = Val(Replace(Me.TextBox1, ",", "."))
  B = Val(Replace(Me.TextBox2, ",", "."))
  C = Val(Replace(Me.TextBox3, ",", "."))
  Me.TextBox4 = (A - B) - ((0.5 * X) - C)
M
MARK_TK
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 12 janvier 2016
Version d'Excel : 2013

Message par MARK_TK » 19 mars 2016, 08:28

Merci Banzai64 mais une erreur de compilation afficher
je te donne un exemple
merci
MARK_TEST.xlsm
(13.09 Kio) Téléchargé 8 fois
p
pierre.jy
Membre fidèle
Membre fidèle
Messages : 499
Appréciation reçue : 1
Inscrit le : 26 février 2016
Version d'Excel : 2010

Message par pierre.jy » 19 mars 2016, 08:51

Bonjour,

sur qu'elle ligne l'erreur de compilation ?
M
MARK_TK
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 12 janvier 2016
Version d'Excel : 2013

Message par MARK_TK » 19 mars 2016, 08:57

dans La ligne 2
Imag.png
Imag.png (12.98 Kio) Vu 295 fois
p
pierre.jy
Membre fidèle
Membre fidèle
Messages : 499
Appréciation reçue : 1
Inscrit le : 26 février 2016
Version d'Excel : 2010

Message par pierre.jy » 19 mars 2016, 09:50

Pour l'erreur de compilation elle est du au fait que tu utilise Me au mauvais endroit... dans ton cas tu dois placer ton code dans la page associée à ton userform ..;)
M
MARK_TK
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 12 janvier 2016
Version d'Excel : 2013

Message par MARK_TK » 19 mars 2016, 10:08

Merci pour explication mais tu n'a pas corriger cette erreur suis débutant dans vba.
p
pierre.jy
Membre fidèle
Membre fidèle
Messages : 499
Appréciation reçue : 1
Inscrit le : 26 février 2016
Version d'Excel : 2010

Message par pierre.jy » 19 mars 2016, 10:21

ok, c'est pas le problème auquel je pensais ...

tu ne peu pas mettre de code en vracs.... il faut mettre celui-ci dans une procédure (sub..) .. puis appeler cette procédure ... par exemple :

Sub MajTextBox4()
Dim X As Double, A As Double, B As Double, C As Double

  X = Val(Replace(Me.TextBox5, ",", "."))
  A = Val(Replace(Me.TextBox1, ",", "."))
  B = Val(Replace(Me.TextBox2, ",", "."))
  C = Val(Replace(Me.TextBox3, ",", "."))
  Me.TextBox4 = (A - B) - ((0.5 * X) - C)

End Sub


Private Sub TextBox1_Change()
 MajTextBox4
End Sub

Private Sub TextBox2_Change()
 MajTextBox4
End Sub
Private Sub TextBox3_Change()
 MajTextBox4
End Sub
Private Sub TextBox5_Change()
 MajTextBox4
End Sub
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Formule de calcule
    par yacine » 11 mai 2019, 04:56 » dans Calc
    2 Réponses
    1941 Vues
    Dernier message par yacine
    11 mai 2019, 18:27
  • formule calcule
    par didier19672 » 7 janvier 2016, 14:19 » dans Excel - VBA
    4 Réponses
    251 Vues
    Dernier message par didier19672
    7 janvier 2016, 14:54
  • La formule ne se calcule pas
    par Sacefy » 25 avril 2018, 10:03 » dans Excel - VBA
    8 Réponses
    442 Vues
    Dernier message par Sacefy
    25 avril 2018, 13:55
  • Formule calcule du % d'honoraire.
    par blade » 6 décembre 2018, 01:02 » dans Calc
    8 Réponses
    2688 Vues
    Dernier message par blade
    8 décembre 2018, 23:22
  • Formule qui ne se calcule pas
    par boby63 » 4 juillet 2016, 15:49 » dans Excel - VBA
    3 Réponses
    603 Vues
    Dernier message par boby63
    5 juillet 2016, 08:01
  • formule qui ne calcule pas
    par thdigit » 10 juin 2014, 14:46 » dans Excel - VBA
    10 Réponses
    780 Vues
    Dernier message par thdigit
    12 juin 2014, 09:48