Conditions multiples VBA erreur

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:

---

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 !!:D

Bonjour,

Les conditions If - ElseIf - Else - End If sont mal construites. On évite cela en utilisant les indentations.

Mainrenant de ce que j'ai compris, vous essayeriez de faire ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Data2() Range("B8") = 0 If Range("B6") < 4 Then If Range("B7") = 2 Then Range("B8") = 500 ElseIf Range("B7") = 4 Then Range("B8") = 450 ElseIf Range("B7") = 7 Then Range("B8") = 400 ElseIf Range("B7") = 14 Then Range("B8") = 350 ElseIf Range("B7") = 20 Then Range("B8") = 300 Else Range("B8") = 250 End If End If End Sub

---

Cordialement.