C'EST UN CALCULATEUR D'INTÉRÊT
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
24 avril 2004 à 12:22
tomitom07 Messages postés 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 22 janvier 2006 - 25 avril 2004 à 12:28
tomitom07 Messages postés 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 22 janvier 2006 - 25 avril 2004 à 12:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22225-c-est-un-calculateur-d-interet
https://codes-sources.commentcamarche.net/source/22225-c-est-un-calculateur-d-interet
25 avril 2004 à 12:28
tomitom07
24 avril 2004 à 12:22
code un peu plus condensé
If Text1.Text "" Or Text2.Text "" Or Text3.Text = "" Then
MsgBox "attention a bien remplir toutes les cases", vbInformation + vbOKOnly, "Erreur!!"
Variable msg1 inutile : elle n'est pas utilisée
de même, result ne sert à rien : utilise somme
somme Text1.Text n'est pas logique (nombre texte)
écris : somme = CSng(Text1.Text)
de même pour annee et pourcent
Text4.Text = Format(somme, "#.##") donne 2 décimales
enfin, gestion virgule/point
(réponse aussi à ta question dans ta source 'calculatrice')
Private Sub Text1_KeyPress(KeyAscii As Integer)
'remplace le point par la virgule
If KeyAscii 46 Then KeyAscii 44
Select Case KeyAscii
'autorisés BackSpace, chiffres, virgule, (signe moins pour calculatrice)
Case 8, 48 To 57, 44 '(45)
Case Else ' tous les autres caractères
KeyAscii = 0 ' interdits
End Select
End Sub
à répéter dans Text2_KeyPress et Text3_KeyPress
Bonne continuation.