MsgBox en fonction de plusieurs conditions..

Bonjour à tous,
Encore une fois, j'ai besoin de vos lumières qui m'ont été si précieuses lors de mes derniers posts..
Je vous remercie de votre aide mais il me reste un petit soucis à régler..
Dans ma base de donnée pour des transports secondaires en hélico, je voudrais faire apparaitre des msgbox en fonction de la provenance et de la destination des patients...
Vous trouverez mon codage vba qui ne marche pas.....lol
J'ai un message: "erreur de compilation, bloc If sans End if", j'ai beau chercher, je ne comprends pas.
Please help me..
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Hospital_Destination_Country_Change() If Hospital_Destination_Country = "Luxembourg" Then If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company" Else MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. " End If   If Hospital_Destination_Country = "France" Or "Belgium" Then If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company" Else MsgBox "According the secondary mission procedure,this flight is from/to a foreign country, fill up a cost acceptance sheet. If this event happens during a WE, contact DDS, ADK, HMS or RHC to approve the flight! " End If   If Hospital_Destination_Country = "Germany" Then If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company" Else MsgBox "According the secondary mission procedure,LAR just needs a transportschein and a Intensivtransportprotokoll undersigned by a doctor to be paid! " End If   End Sub

---

Bonsoir,
Tu as 3 blocs de If .. End if où il manque pour chacun un End If après la dernière instruction Msgbox.

Exemple :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Hospital_Destination_Country_Change() If Hospital_Destination_Country = "Luxembourg" Then If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company" Else MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. " End If End If

---

ou utilises un Select Case ... End select

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Hospital_Destination_Country_Change() If MsgBox("Does the patient come from Luxembourg", vbYesNo) = vbYes Then MsgBox "According the secondary mission procedure, you need only to send a demande de prise en charge to the CNS or the insurance company" Else Select Case Hospital_Destination_Country Case "Luxembourg" MsgBox "According the secondary mission procedure,check if the patient is insured by CNS, or private insurance company. Then, send a demande de prise en charge to the patient insurance. " Case "France", "Belgium" MsgBox "According the secondary mission procedure,this flight is from/to a foreign country, fill up a cost acceptance sheet. If this event happens during a WE, contact DDS, ADK, HMS or RHC to approve the flight! " Case "Germany" MsgBox "According the secondary mission procedure,LAR just needs a transportschein and a Intensivtransportprotokoll undersigned by a doctor to be paid! " End select End if End sub

---