C'EST UN CALCULATEUR D'INTÉRÊT

Signaler
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006
-
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

Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

merci pour la réponse et @+
tomitom07
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Quelques remarques qui se veulent constructives :
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.