Calcul sur vba exel

Fermé
rimked - 26 janv. 2008 à 20:42
FastJack Messages postés 49 Date d'inscription lundi 13 août 2007 Statut Membre Dernière intervention 24 février 2008 - 28 janv. 2008 à 10:24
Bonjour,
j'ai uin probleme :
comment permettre a vba d'effectuer un calcul directement apres la saisie des données sur mon usurforme (nomme frmreponse
voici mon calcul:

Code :
Sub textTotal_Change()
TextTotal = TextMontant(1 + TextTaux) * TextDuree
End Sub

si qquelqu'un peut m aidé sa serai vraiment gentil je desespere merci d avance
A voir également:

3 réponses

FastJack Messages postés 49 Date d'inscription lundi 13 août 2007 Statut Membre Dernière intervention 24 février 2008 6
26 janv. 2008 à 20:48
salut,
je pense que tu veux que ton résultat s'affiche des la frappe des données dans ta textbox,
tu peux décrire ton IHM, pour m'expliquer clairement le problème.
0
bonjour,
tout d'abord merci pour ton intervention
je suis vraimen.t novice (IHM?????)
oui je veux que mon resultat s'affiche sur ma textbix(nomme(textMontant).
En fait je veu que apres avoir saisie les informations (necesaire a mon calcul)sur mon userform(frmReponse) celui-ci me calcule ceci :
TextTotal = TextMontant(1 + TextTaux) * TextDuree

a partir de ces differents textBox et me l affiche dans le textbox (textMontant)


merci infiniment de ton aide
0
FastJack Messages postés 49 Date d'inscription lundi 13 août 2007 Statut Membre Dernière intervention 24 février 2008 6
28 janv. 2008 à 10:24
Il te sera plus facile de créer un bouton, qui lorsque tu cliquera dessus, lancera la procédure de calcul (a savoir ton opération)
et là le résultat sera affiché.
ex:

private sub boutton calculer:

avec tes variables ici montant,total, taux et durée en réels (je pense !,?)

puis ton opération :TextTotal = TextMontant(1 + TextTaux) * TextDuree

puis pour que le résultat s'affiche

textmontant <--- total

pour le pseudo code:
variables entrée:
taux, durée, montant: nombre réels.

variables en sortie :
total, nombre réel.


début
renseigner montant, taux et durée, dans la case appropriée
les valeurs doivent être numérique.
cliquer sur" calculer" lance l'opération:

TextTotal = TextMontant(1 + TextTaux) * TextDuree

et affiche le résultat
résultat <---- total.
0