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 ;))
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.