Public coutecologie As Integer
Public directmultimodal As Integer

Dim Rdistance, Rtempstrajet, Rtempspause, Rpeage As Integer 'Acquisition routier direct'
Dim Rcarburant, Rpneu, Rentretien, Rdetentionvmoteur, Rdetentionvattele, Rassurance, Rtaxe, _
Rsalaire, Rcharge, Rfraisdeplacement, Rstructure, Rco2 As Integer 'donnees routier direct'
Dim Totroutier As Integer 'total routier'

Dim Fdistance, Fnombrewagon, Fpoids As Integer 'Acquisition ferroviaire direct'
Dim Ftriage, Flettrewagon, Finfrastructure, Fwagon, Fenergie, Fpersonnel, Ffraisstructure, _
Fentretien, Famort, Fco2 As Integer 'donnes ferroviaire direct'
Dim Totferroviaire As Integer 'total ferroviaire'

Dim Mnombreconteneur, Mpoids, Mdouane, Mretard, Mdistance As Integer 'Acquisition maritime'
Dim Memballage, Massurance, Mimmobilisation, Mstockage, Mpassagemagasin, Mlocconteneur, Mmanutention, _
Mempotage, Mmouvconteneur, Msuestarieconteneur, Msurcharge, Mco2 As Integer 'donnes maritime direct'
Dim Totmaritime As Integer 'total maritime'

Private Sub Etapesuivante_Click()
choix.coutecologie

'calcul detail routier'
Rcarburant = 0.299 * Rdistance
Rpneu = 0.026 * Rdistance
Rentretien = 0.072 * Rdistance
Rpeage = Rpeage
Rdetentionvmoteur = 49.61 * Rtempstrajet / 24
Rdetentionvattele = 17.29 * Rtempstrajet / 24
Rassurance = 15.5 * Rtempstrajet / 24
Rtaxe = 2.5 * Rtempstrajet / 24
Rsalaire = (126 * Rtempstrajet / 24) + (126 * Rtempspause / 24)
Rcharge = (45.96 * Rtempstrajet / 24) + (45.96 * Rtempspause / 24)
Rfraisdeplacement = (34.71 * Rtempstrajet / 24) + (34.71 * Rtempspause / 24)
Rstructure = 75 * Rtempstrajet / 24
Totroutier = Rcarburant + Rpneu + Rentretien + Rpeage + Rdetentionvmoteur + Rdetentionvattele _
+ Rassurance + Rtaxe + Rsalaire + Rcharge + Rfraisdeplacement + Rstructure
Rco2 = 29.4 * Rdistance
MsgBox (Totroutier)

'calcul detail ferroviaire'
Ftriage = 150 * Fnombrewagon
Flettrewagon = 26 * Fnombrewagon
Finfrastructure = 0.229 * Fdistance
Fwagon = 0.127 * Fdistance
Fenergie = 0.117 * Fdistance
Fpersonnel = 0.429 * Fdistance
Ffraisstructure = 0.974 * Fdistance
Fentretien = 1.427 * Fdistance
Famort = 1.963 * Fdistance
Totferroviaire = Ftriage + Flettrewagon + Finfrastructure + Fwagon + Fenergie + Fpersonnel + _
Ffraisstructure + Fentretien + Famort
Fco2 = 3 * Fdistance
MsgBox (Totferroviaire)

'calcul detail maritime'
Memballage = 0.411 * Mpoids
Massurance = 0.136 * Mpoids
Mdouane = 0
Mimmobilisation = 0 * Mpoids
Mstockage = 0.144 * Mpoids
Mpassagemagasin = 0.329 * Mpoids
Mlocconteneur = 280 * Mnombreconteneur
Mmanutention = 190 * Mnombreconteneur
Mempotage = 400 * Mnombreconteneur
Mmouvconteneur = 100 * Mnombreconteneur
Msuestarieconteneur = 15 * Mnombreconteneur * Mretard
Msurcharge = 181.536 * Mnombreconteneur
Totmaritime = Memballage + Massurance + Mdouanes + Mimmobilisation + Mstockage + Mpassagemagasin + _
Mlocconteneur + Mmanutention + Mempotage + Mmouvconteneur + Msuestarieconteneur + Msurcharge
Mco2 = 1 * Mdistance
MsgBox (Totmaritime)
MsgBox (coutecologie)

'choix du moins cher'
If coutecologie = 1 Then

'routier le moins cher'
    If Totroutier < Totferroviaire And Totroutier < Totmaritime Then
        MsgBox ("Le transport routier est le moins cher, " & Totroutier & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Carburant : " & Rcarburant & " €" & vbCr & _
        "Pneumatiques : " & Rpneu & " €" & vbCr & _
        "Entretien et réparations : " & Rentretien & " €" & vbCr & _
        "Péages : " & Rpeage & " €" & vbCr & _
        "Cout de détention du véhicule moteur : " & Rdetentionvmoteur & " €" & vbCr & _
        "Cout de détention du véhicule attelé : " & Rdetentionvattele & " €" & vbCr & _
        "Assurances : " & Rassurance & " €" & vbCr & _
        "Taxes : " & Rtaxe & " €" & vbCr & _
        "Salaires et autres éléments de rémunération : " & Rsalaire & " €" & vbCr & _
        "Charges sur salaires et autres éléments de rémunération : " & Rcharge & " €" & vbCr & _
        "Frais de déplacement : " & Rfraisdeplacement & " €" & vbCr & _
        "Frais de structure : " & Rstructure & " €")
    End If

'ferroviaire le moins cher'
    If Totferroviaire < Totroutier And Totferroviaire < Totmaritime Then
        MsgBox ("Le transport ferroviaire est le moins cher, " & Totferroviaire & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Triage : " & Ftriage & " €" & vbCr & _
        "Lettre de wagon : " & Flettrewagon & " €" & vbCr & _
        "Infrastructure : " & Finfrastructure & " €" & vbCr & _
        "Wagon : " & Fwagon & " €" & vbCr & _
        "Energie : " & Fenergie & " €" & vbCr & _
        "Personnel : " & Fpersonnel & " €" & vbCr & _
        "Frais de structure : " & Ffraisstructure & " €" & vbCr & _
        "Entretien : " & Fentretien & " €" & vbCr & _
        "Amortissement et intérêts : " & Famort & " €")
    End If

'maritime le moins cher'
    If Totmaritime < Totferroviaire And Totmaritime < Totroutier Then
        MsgBox ("Le transport maritime est le moins cher, " & Totmaritime & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Emballage : " & Memballage & " €" & vbCr & _
        "Assurances : " & Massurance & " €" & vbCr & _
        "Frais de douanes : " & Mdouane & " €" & vbCr & _
        "Immobilisation : " & Mimmobilisation & " €" & vbCr & _
        "Stockage : " & Mstockage & " €" & vbCr & _
        "Passage en magasin : " & Mpassagemagasin & " €" & vbCr & _
        "Location du(des) conteneur(s) : " & Mlocconteneur & " €" & vbCr & _
        "Manutention : " & Mmanutention & " €" & vbCr & _
        "Empotage : " & Mempotage & " €" & vbCr & _
        "Mouvements du(des) conteneur(s) : " & Mmouvconteneur & " €" & vbCr & _
        "Suestaries du(des) conteneur(s) : " & Msuestarieconteneur & " €" & vbCr & _
        "Surcharge de soute : " & Msurcharge & " €")
    End If
End If

'si choix du CO2'
If coutecologie = 2 Then

'routier le moins polluant'
    If Rco2 < Fco2 And Rco2 < Mco2 Then
        MsgBox ("Le transport routier est le moins polluant, " & Rco2 & " grammes de CO2 par tonne et par km" & vbCr & vbCr & _
        "Cout total : " & Totroutier & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Carburant : " & Rcarburant & " €" & vbCr & _
        "Pneumatiques : " & Rpneu & " €" & vbCr & _
        "Entretien et réparations : " & Rentretien & " €" & vbCr & _
        "Péages : " & Rpeage & " €" & vbCr & _
        "Cout de détention du véhicule moteur : " & Rdetentionvmoteur & " €" & vbCr & _
        "Cout de détention du véhicule attelé : " & Rdetentionvattele & " €" & vbCr & _
        "Assurances : " & Rassurance & " €" & vbCr & _
        "Taxes : " & Rtaxe & " €" & vbCr & _
        "Salaires et autres éléments de rémunération : " & Rsalaire & " €" & vbCr & _
        "Charges sur salaires et autres éléments de rémunération : " & Rcharge & " €" & vbCr & _
        "Frais de déplacement : " & Rfraisdeplacement & " €" & vbCr & _
        "Frais de structure : " & Rstructure & " €")
    End If

'ferroviaire le moins polluant'
    If Fco2 < Rco2 And Fco2 < Mco2 Then
        MsgBox ("Le transport ferroviaire est le moins polluant, " & Fco2 & " grammes de CO2 par tonne et par km" & vbCr & vbCr & _
        "Cout total : " & Totferroviaire & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Triage : " & Ftriage & " €" & vbCr & _
        "Lettre de wagon : " & Flettrewagon & " €" & vbCr & _
        "Infrastructure : " & Finfrastructure & " €" & vbCr & _
        "Wagon : " & Fwagon & " €" & vbCr & _
        "Energie : " & Fenergie & " €" & vbCr & _
        "Personnel : " & Fpersonnel & " €" & vbCr & _
        "Frais de structure : " & Ffraisstructure & " €" & vbCr & _
        "Entretien : " & Fentretien & " €" & vbCr & _
        "Amortissement et intérêts : " & Famort & " €")
    End If

'maritime le moins polluant'
    If Mco2 < Fco2 And Mco2 < Rco2 Then
        MsgBox ("Le transport maritime est le moins polluant, " & Mco2 & " grammes de CO2 par tonne et par km" & vbCr & vbCr & _
        "Cout total : " & Totmaritime & " €" & vbCr & vbCr & _
        "composition du cout total :" & vbCr & vbCr & _
        "Emballage : " & Memballage & " €" & vbCr & _
        "Assurances : " & Massurance & " €" & vbCr & _
        "Frais de douanes : " & Mdouane & " €" & vbCr & _
        "Immobilisation : " & Mimmobilisation & " €" & vbCr & _
        "Stockage : " & Mstockage & " €" & vbCr & _
        "Passage en magasin : " & Mpassagemagasin & " €" & vbCr & _
        "Location du(des) conteneur(s) : " & Mlocconteneur & " €" & vbCr & _
        "Manutention : " & Mmanutention & " €" & vbCr & _
        "Empotage : " & Mempotage & " €" & vbCr & _
        "Mouvements du(des) conteneur(s) : " & Mmouvconteneur & " €" & vbCr & _
        "Suestaries du(des) conteneur(s) : " & Msuestarieconteneur & " €" & vbCr & _
        "Surcharge de soute : " & Msurcharge & " €")
    End If
End If

End Sub

Private Sub txtRdistance_Change()
Rdistance = txtRdistance
End Sub

Private Sub txtRtempstrajet_Change()
Rtempstrajet = txtRtempstrajet
End Sub

Private Sub txtRtempspause_Change()
Rtempspause = txtRtempspause
End Sub

Private Sub txtRpeages_Change()
Rpeage = txtRpeages
End Sub

Private Sub txtMnombreconteneur_change()
Mnombreconteneur = txtMnombreconteneur
End Sub

Private Sub txtMdistance_Change()
Mdistance = txtMdistance
End Sub

Private Sub txtMpoids_Change()
Mpoids = txtMpoids
End Sub

Private Sub txtMdouanes_Change()
Mdouane = txtMdouanes
End Sub

Private Sub txtMretard_Change()
Mretard = txtMretard
End Sub

Private Sub txtFdistance_Change()
Fdistance = txtFdistance
End Sub

Private Sub txtFnombrewagon_Change()
Fnombrewagon = txtFnombrewagon
End Sub

Private Sub txtFpoids_Change()
Fpoids = txtFpoids
End Sub