Calculs mathématiques depuis Userform

C

Compte Supprimé 979

Guest

• 11 Janvier 2012

• #2

Re : Calculs mathématiques depuis Userform

Bonjour Hypo78,

Pour ta problématique, il faut faire des tests à chaque mise à jour des Textbox

Code:

Private Sub TextBox1_AfterUpdate()
  If Me.TextBox2.Value <>"" then
    ' Calcul
  End If
End Sub

A+

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 11 Janvier 2012

• #3

Re : Calculs mathématiques depuis Userform

Bonjour hypo,

C'est un peu le serpent qui se mord la queue ton truc. 😉(la mienne étant en tire-bouchon pour compliquer la chose)
Il faut trouver le truc qui calcule si les différentes "variables" existent, sinon, ne rien faire, ou préciser qu'il manque une donnée.

Comme on n'est pas tous ingénieurs, peux tu nous préciser en langage vernaculaire ce que signifient :
- e (sans doute en rapport avec ln)
- . multiplier peut-être
- ln c'est logarithme népérien
mes études ont quarante ans, mon savoir s'enfuit à vitesse grand V

Gruick

Edit : Salut Bruno, plus rapide que moi, sans doûte irradié par la centrale de St Laurent des Eaux 😎

 

Dernière édition: 11 Janvier 2012

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 11 Janvier 2012

• #4

Re : Calculs mathématiques depuis Userform

Bonjour Gruick, bonjour Bruno,

Gruick tu as de bon reste tu as tout bon le e c'est pour exponentiel (inverse du log népérien (ln)).

Merci pour ces premières pistes.
est-ce qu'une Textbox peut-être à la fois une zone de saisie et une zone de résultat?

@ +

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 11 Janvier 2012

• #5

Re : Calculs mathématiques depuis Userform

Re,
me revoilà déjà. Pour tester l'AfterUpdate j'essaie de faire un calcul tout bête pour voir si çà fonctionne.
A étant la valeur saisie dans la Textbox1
B étant la valeur saisie dans la Textbox2
et le résultat C étant la somme de A+B

Mais quand je saisis une valeur dans ces 2 Textbox il ne passe rien....

merci d'avance

 

Pièces jointes

• Rad.xlsm

  20.2 KB · Affichages: 126
• Rad.xlsm

  20.2 KB · Affichages: 129
• Rad.xlsm

  20.2 KB · Affichages: 133

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 11 Janvier 2012

• #6

Re : Calculs mathématiques depuis Userform

Bonjour le fil 🙂,

hypo78 à dit:

Pour tester l'AfterUpdate j'essaie de faire un calcul tout bête pour voir si çà fonctionne.
A étant la valeur saisie dans la Textbox1
B étant la valeur saisie dans la Textbox2
et le résultat C étant la somme de A+B

Mais quand je saisis une valeur dans ces 2 Textbox il ne passe rien....

Cliquez pour agrandir...

Si tu saisis une valeur dans la TextBox2, puis dans la TextBox1, ça fonctionne 🙄...
Pour que ça marche avec la TextBox2, il faut un AfterUpdate pour la TextBox2, et ainsi de suite 😛...
Bonne suite 😎

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 11 Janvier 2012

• #7

Re : Calculs mathématiques depuis Userform

Bonjour JNP,

ok merci.

à bientôt, c'est sûr 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Janvier 2012

• #8

Re : Calculs mathématiques depuis Userform

Bonjour à tous

Avec adjonction d'un bouton pour lancer le calcul
NB: Si OK on pourra introduire une verification concernant le fait que seule une TextBox est vide
Par ailleurs j'ai fait sauter l'option Explicit Qu'il suffira de remettre en declarant les variables

 

Pièces jointes

• Rad.xlsm

  20.1 KB · Affichages: 157
• Rad.xlsm

  20.1 KB · Affichages: 159
• Rad.xlsm

  20.1 KB · Affichages: 157

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 11 Janvier 2012

• #9

Re : Calculs mathématiques depuis Userform

Bonjour pierrejean,

ton idée me plait bien, je vais voir comment je peux articuler tout çà.

merci

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 11 Janvier 2012

• #10

Re : Calculs mathématiques depuis Userform

re,

En fait, je verrai bien la présence magique d'un bouton "Calcul" qui après test de présence de données dans les cases appropriées renverrait un résultat dans les cases demandées.
- si A0, A1 et lambda sont renseignées, calcule moi t
- si A0, t et lambda sont renseignées, calcule moi A1
- et bien sur signaler si le calcul est impossible du fait de l'absence d'une donnée.
J'ai renommé les textboxes pour plus de clarté.

Il renvoie donc dans la bonne case le calcul.
Le problème est dans le format, car je mets des virgules bien françaises, et il me renvoie des affreux points américains.
Si je veux calculer après mon A1 avec le chiffre calculé du t, il refuse mon point, je remets ma virgule et là, il me l'accepte.
Y'a un truc !!! Mais lequel ?

Gruick

Edit : Bonne année Pierre, pendant que je me battais à coup de points sur les virgules, v'la ti pas que Pierre fait des siennes...
Te connaissant, ça doit être magique... voyons voir...



Gruick

 

Pièces jointes

• Rad.xlsm

  18 KB · Affichages: 144
• Rad.xlsm

  18 KB · Affichages: 154
• Rad.xlsm

  18 KB · Affichages: 148

Dernière édition: 11 Janvier 2012

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Janvier 2012

• #11

Re : Calculs mathématiques depuis Userform

Re

Salut ami Gruick 🙂 🙂
Et felicitations pour ton idée géniale de Bouton Calcul 😛
Je me permet de te rappeler que les TextBox s'obstinent a contenir et par voie de consequence a regurgiter du "TEXTE" et qu'il y a lieu de faire preceder le xxxx.Value d'une fonction susceptible de le transformer en nombre
Je suggere dans ce cas le CDbl

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 11 Janvier 2012

• #12

Re : Calculs mathématiques depuis Userform

Re 🙂,
Alors mon cochon, on arrondit 😛...

Code:

  Me.A1.Value = Evaluate("exp(1)") ^ (-L.Value * té.Value) * A0.Value

Sinon, ben fait un Replace quand tu remplit le TextBox avec un "," à la place du "." 🙄...
Bonne suite 😎
PS : Oui, Pierre Jean, j'avais trouvé aussi son idée très originale (tu n'y aurais pas pensé, toi 😛...) 😉

 

Vote positif 0 Vote négatif

B

Byfranck

XLDnaute Occasionnel

• 11 Janvier 2012

• #13

Re : Calculs mathématiques depuis Userform

Salut à tous

hypo78 à dit:

Bonjour à tous,

je débute un nouveau projet sur la base de calcul autour de la radioactivité.
..

Cliquez pour agrandir...

Il le faut vriament?
Moi je suis d'avis que pour certain sujets, des fois il vaut mieux ne pas savoir 🙂
Puis quitte à arrondir... svp arrondissez à la valeur supérieure.. comme ça l'alerte sera donnée plus tôt. 🙂

ByFranck

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 11 Janvier 2012

• #14

Re : Calculs mathématiques depuis Userform

Re,
on s'absente qques heures et au retour que des merveilles.

Merci à tous pour votre contribution, je regarde çà de près et je reviens. Peut être pas ce soir, car j'ai une nuit de retard et je compte bien rattraper çà 😛

Bonne soirée et à bientôt

Edit : @ gruick problème à l'ouverture de ton fichier (liaisons??)
en lançant la macro depuis VBA c'est ok, fallait juste changer la macro affectée au bouton_click

 

Dernière édition: 11 Janvier 2012

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 11 Janvier 2012

• #15

Re : Calculs mathématiques depuis Userform

Bonsoir,

ça m'apprendra à ne pas rafraîchir, et à rester sur mon message en allant manger.
Du coup, j'ai des boutons... je l'ai mérité.

Ce qui me rassure, c'est que Pierre a eu la même idée, comme c'est mon héros... je suis fier.
Le CDbl, n'y fait rien, malheureusement, ça reste en texte dans la boîte.
Le replace de JNP n'est pas plus efficace et ne marche pas pour les textboxes, du moins sur mon mac.

Bon, je vais manger, encore...
mais cette fois-ci, je poste le message.

A plus, demain sans doute.

 

Vote positif 0 Vote négatif