Discussion :

[thvl30]

Bonjour tout le monde,

Je rencontre un problème avec mon code VBA.

Pour expliquer le contexte, il s'agit d'un projet ou je dois calculer les primes par rapport aux nombres de jours et de semaines passées.

Il y a donc plusieurs conditions qui doivent s'appliquer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Data()
If Range("B7") = 0 Then
Range("B8") = 0
ElseIf Range("B7") = 2 And Range("B6") < 4 Then
Range("B8") = 500
Else
Range("B8") = 450
ElseIf Range("B7") = 5 And Range("B6") < 4 Then
Range("B8") = 450
Else
Range("B8") = 400
ElseIf Range("B7") = 7 And Range("B6") < 4 Then
Range("B8") = 400
Else
Range("B8") = 350
ElseIf Range("B7") = 14 And Range("B6") < 4 Then
Range("B8") = 350
Else
Range("B8") = 300
ElseIf Range("B7") = 20 And Range("B6") < 4 Then
Range("B8") = 300
Else
Range("B8") = 250
End If
End Sub

Merci beaucoup pour votre aide !!