Calcul sur vba exel

rimked -  
FastJack Messages postés 49 Statut Membre -
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
Configuration: Windows Vista
Internet Explorer 7.0

3 réponses

  1. FastJack Messages postés 49 Statut Membre 6
     
    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
  2. rimked
     
    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
  3. FastJack Messages postés 49 Statut Membre 6
     
    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