Retenir le resultat d'un textbox en x

Bonjour

Je suis entraint de faire une petite macro, et j'aurais bessoins de recuperer la valeur d'une textbox et le metre en X

par exemple

x = textbox1.Value

y = textbox2.value

z = textbox3.value

Textbox12.value = (y*z^2)/(48*x)

Une fois que les 3 valeur sont rentrer sa me rempli automatiquement la textbox 12, avec 2 chiffre aprés la virgule.

Si quelqu'un peu m'aider. Merci

Bonjour

A tester

Private Sub TextBox1_Change()
  Calcul
End Sub

Private Sub TextBox2_Change()
  Calcul
End Sub

Private Sub TextBox3_Change()
  Calcul
End Sub

Sub Calcul()
  Me.TextBox12 = ""
  If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    x = TextBox1.Value
    y = TextBox2.Value
    Z = TextBox3.Value
    TextBox12.Value = (y * Z ^ 2) / (48 * x)
  End If
End Sub

Bonjour

Nikel sa fonctionne, merci

Re

Maintenant une fois que j'ai cette valeur.

Je vais reprendre cette valeur pour y faire un autre calcul

Textbox13.Value = (Y/2)+(Z²*y^3)/(48*e)

avec e = textbox9.Value

et toujours y et z les meme valeurs que précedent

Bonjour

A tester

Sub Calcul()
  Me.TextBox12 = "": Me.TextBox13 = ""
  If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    x = TextBox1.Value
    y = TextBox2.Value
    Z = TextBox3.Value
    TextBox12.Value = (y * Z ^ 2) / (48 * x)
    If Me.TextBox9 <> "" Then
      e = TextBox9.Value
      TextBox13.Value = (y / 2) + (Z² * y ^ 3) / (48 * e)
    End If
  End If
End Sub

Private Sub TextBox1_Change()
  Calcul
End Sub

Private Sub TextBox2_Change()
  Calcul
End Sub

Private Sub TextBox3_Change()
  Calcul
End Sub

Private Sub TextBox9_Change()
  Calcul
End Sub

re

Nikel ca marche, mais j'ai essayer de faire ca :

Sub Calcul()
  Me.TextBox4 = "": Me.TextBox9 = ""
  If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" Then
    'Variable
    x = TextBox1.Value
    y = TextBox2.Value
    Z = TextBox3.Value
    'Calcul de T1
    TextBox4.Value = ((Z * y ^ 2) / (8 * x))
    'Calcul de Sa
    TextBox9.Value = (y / 2) + ((Z ^ 2) * (y ^ 3)) / (48 * ((Z * y ^ 2) / (8 * x)) ^ 2)
    'Calcul des coeficient du polynôme (4)
    'Calcul de a
    TextBox10.Value = (1 / (65000000000# ^ 2 * 0.000065 ^ 2))
    a = TextBox10.Value
    'Calcul de b
    TextBox11.Value = (2 / (65000000000# * 0.000065))
    b = TextBox10.Value
    'Calcul de c
    TextBox12.Value = (1 - ((y ^ 2) / (4 * ((Val(TextBox9.Value)) ^ 2)))) - ((7000 ^ 2) / (4 * (65000000000# ^ 2 * 0.000065 ^ 2)))
    c = TextBox12.Value
    'Calcul de d
    TextBox13.Value = -((7000 ^ 2) / (2 * 65000000000# * 0.000065))
    d = TextBox13.Value
    'Calcul de e
    TextBox14.Value = -((7000 ^ 2) / 4)
    e = TextBox14.Value
    TextBox15.Value = d - e
    End If
End Sub

et sa beug

Pouvez vous m'aider

Merci

Bonsoir

gregos123 a écrit :

et sa beug

En clair cela veut dire quoi ?

Pas le bon résultat ou erreur ?

Si erreur : Quelle erreur ?

Ce que j'ai vu

   'Calcul de a
   TextBox10.Value = (1 / (65000000000# ^ 2 * 0.000065 ^ 2))
    a = TextBox10.Value
    'Calcul de b
   TextBox11.Value = (2 / (65000000000# * 0.000065))
    b = TextBox10.Value

Le 2ème ce ne serait pas

b = TextBox11.Value

Re bonjour

En faite, j'ai une erreur "debogage"

De plus j'aimerais avoir un bout de code qui permette de mettre une valeur par defaut dans une textbox.*

Merci

Cdt

Re

Pour que sa soit plus simple, je vous joins mon fichier..

Ps : j'ai modifier le nom de mes textbox elle sont maintenant dans l'ordre

Avec comme constante

p = 4N/m

F = 7000N

E = 6.5*10^10Pa

A = 6.5*10^-5 m²

@+

9projet.xlsm (182.65 Ko)

Bonsoir

Pour un miracle tu t'es trompé de personne

gregos123 a écrit :

En faite, j'ai une erreur "debogage"

Où ça ?

Sur quelle ligne ?

Quelles valeurs as tu entrées ?

gregos123 a écrit :

De plus j'aimerais avoir un bout de code qui permette de mettre une valeur par defaut dans une textbox.*

Quelle Valeur et pour quel TextBox ?

Normalement cela serait dans Userform_Initialize

Me.TextBox1 = 4   ' Exemple

Avec ton dernier message je fais quoi avec tes données ?

Si tu veux de l'aide de ma part il faut détailler les opérations afin d'arriver à l'erreur

Bonjour

En bidouillant hier soir, je suis arrivé a obtenir ce que je souhaiter. (plus de beug)

En ce qui concerne les constantes, je les ai rentré dans la feuille 1 du classeur excel (elle seront masquer), puis je les ai affiché dans ma textbox. : Textbox8.value = Range ("B354")

Maintenant mon problème, c'est d'afficher la valeur de T, en utilisant le solveur d'excel.

Ce soir je termine mes calculs, il restera plus qu'a résoudre l'equation at^4+bt^3+ct^2+dt+e =0 avec le solveur d'excel et afficher le résultat dans une textbox 13.

Sachant que a, b, c et d, et e sont calculer puis afficher dans textbox 9, 10, 11 et 12.

Merci de votre aide en tous cas

Cdt

Bojour,

Je viens de finir les calcul de a, b, c, d et e.

Faite un test, en rentrant f1 = 0.2 et L =2.5 vous trouverez les valeurs de a, b, c, d et e.

Peut on afficher le résultat de T dans une textbox en utilisant le solveur d'excel, je e sait pas comment m'y prendre.

Voici mon fichier xls en PJ.

Cordialement

G P

3projet.xlsm (86.96 Ko)

Bonjour

gregos123 a écrit :

Peut on afficher le résultat de T dans une textbox en utilisant le solveur d'excel, je e sait pas comment m'y prendre.

Tu n'es pas le seul, moi non plus je ne sais pas

Clos ce post et ouvre en un autre avec ce sujet

OK

Merci

Rechercher des sujets similaires à "retenir resultat textbox"