Calcul de prime

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 734 fois - Téléchargée 29 fois

Contenu du snippet

Bah c'est un code vb (sur excel) facil à comprendre, mais bcp de bug (liées aux inputbox)

Source / Exemple :


Sub calculprime()

' declaration des variables

Dim NOM As String
Dim AGE As Integer
Dim NACC As Integer
Dim OTR As String
Dim PB As Long
Dim MJC As Long
Dim MTR As Long
Dim PM As Long
Dim BM As Long
Dim PHT As Long
Dim TAX As Long
Dim PTTC As Long
Dim msgbox

' boite de dialogue (saisie)

NOM = InputBox("veuillez saisir le nom du client", "Prime d'assurance")
AGE = InputBox("age du client", "Prime d'assurance")
NACC = InputBox("Nombre d'accidents", "Prime d'assurance")
OTR = msgbox("Avec option tout risques?", vbYesNo, "Prime d'assurance")
PB = InputBox("Prime de base", "Prime d'assure")

' conditions

If OTR = vbYes Then
    MTR = PB * 0.5
    Else
    MTR = 0
End If

If AGE < 25 Then
    MJC = PB * 0.1
    Else
    MJC = 0
End If

PM = PB + MTR + MJC

If NACC = 0 Then
    BM = PM * 0.9 * -0.2
    Else
    If NACC = 1 Then
        BM = PM * 0.9 * 0.1
        Else
        BM = PM * 0.9 * 0.3
    End If
End If

' Valeur de la cellule "options tout risques"

If OTR = vbYes Then
    Cells(5, 2) = "oui"
    Else
    Cells(5, 2) = "non"
End If

PHT = PM + BM
TAX = PHT * 0.2
PTTC = PHT + TAX

' affichage des saisies dans les cellules

Cells(3, 2) = NOM
Cells(4, 2) = AGE
Cells(6, 2) = NACC
Cells(7, 2) = PB

' affichage des calculs dans les cellules

Cells(3, 5) = MTR
Cells(4, 5) = MJC
Cells(5, 5) = PM
Cells(6, 5) = BM
Cells(7, 5) = PHT
Cells(8, 5) = TAX
Cells(9, 5) = PTTC

' fin du programme

End Sub

Conclusion :


Zaime pô les kritik ;))

A voir également

Ajouter un commentaire Commentaire
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
1
Plutôt que d'afficher autant d'input, il serait préférable d'utiliser une Form qui permettrait de demander et encoder toutes les informations nécessaires en une seule fois.
Ensuite, tu pourras tester que les données sont correctes ("100" ou "a" pour âge par exemple) et redonner le focus au case mal remplie avant de continuer.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (jean_mouloud)