Retenir le resultat d'un textbox en x Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 7 novembre 2015, 18:02

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
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 » 7 novembre 2015, 18:14

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
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 7 novembre 2015, 18:22

Bonjour

Nikel sa fonctionne, merci
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 7 novembre 2015, 18:40

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
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 » 7 novembre 2015, 18:57

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
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 7 novembre 2015, 22:20

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
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 » 7 novembre 2015, 23:13

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 = [surligner]TextBox10.Value[/surligner]
    'Calcul de b
   TextBox11.Value = (2 / (65000000000# * 0.000065))
    b = [surligner]TextBox10.Value[/surligner]
Le 2ème ce ne serait pas
b = TextBox11.Value
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 8 novembre 2015, 17:41

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
g
gregos123
Membre habitué
Membre habitué
Messages : 64
Inscrit le : 5 septembre 2015
Version d'Excel : 2013

Message par gregos123 » 8 novembre 2015, 17:59

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²


@+
Projet.xlsm
(182.65 Kio) Téléchargé 8 fois
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 » 8 novembre 2015, 23:32

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
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message