Public sHeure, sMin As String
Public t0, t1, t2, t3, t4, t5, t6, tMax, Temp1, Temp2, Temp3 As Integer
Sub CalculMonteeDescente3palier()
Dim TempsRampMonteePalier1 As Integer
Dim TempsRampMonteePalier2 As Integer
Dim TempsRampMonteePalier3 As Integer
Dim TempsRampDescente As Integer
Dim TempsMonteeDescente As Integer
Dim TempsPalierComplet3 As Integer
TempsRampMonteePalier1 = (CDbl(UserForm1.TextBox1) - 20) / CDbl(UserForm1.TBMontee)
TempsRampMonteePalier2 = (CDbl(UserForm1.TextBox4) - CDbl(UserForm1.TextBox1)) / CDbl(UserForm1.TBMontee2)
TempsRampMonteePalier3 = (CDbl(UserForm1.TextBox3) - CDbl(UserForm1.TextBox4)) / CDbl(UserForm1.TBMontee3)
TempsRampDescente = (CDbl(UserForm1.TextBox3) - 20) / CDbl(UserForm1.TBDescente)
TempsMonteeDescente = TempsRampMonteePalier1 + TempsRampMonteePalier2 + TempsRampMonteePalier3 + TempsRampDescente
TempsPalierComplet3 = TempsMonteeDescente + CDbl(UserForm1.TextBox5) + CDbl(UserForm1.TextBox6) + CDbl(UserForm1.TextBox7)
'conversion en Heure : Minute
sHeure = Str(Int(TempsPalierComplet3 / 60))
sMin = Format$(TempsPalierComplet3 Mod 60, "00")
MsgBox ("Le temps de cycle sera de : " & sHeure & " Heures " & sMin & " Min ")
ThisWorkbook.Sheets("feuil1").Range("B2").Value = "0" = t0 And ThisWorkbook.Sheets("feuil1").Range("C2").Value = "20"
ThisWorkbook.Sheets("feuil1").Range("B3").Value = t0 + TempsRampMonteePalier1 = t1 And ThisWorkbook.Sheets("feuil1").Range("C3").Value = CDbl(UserForm1.TextBox1)
ThisWorkbook.Sheets("feuil1").Range("B4").Value = t1 + CDbl(UserForm1.TextBox5) = t2 And ThisWorkbook.Sheets("feuil1").Range("C4").Value = CDbl(UserForm1.TextBox1)
ThisWorkbook.Sheets("feuil1").Range("B5").Value = t2 + TempsRampMonteePalier2 = t3 And ThisWorkbook.Sheets("feuil1").Range("C5").Value = CDbl(UserForm1.TextBox4)
ThisWorkbook.Sheets("feuil1").Range("B6").Value = t3 + CDbl(UserForm1.TextBox7) = t4 And ThisWorkbook.Sheets("feuil1").Range("C6").Value = CDbl(UserForm1.TextBox4)
ThisWorkbook.Sheets("feuil1").Range("B7").Value = t4 + TempsRampMonteePalier3 = t5 And ThisWorkbook.Sheets("feuil1").Range("C7").Value = CDbl(UserForm1.TextBox3)
ThisWorkbook.Sheets("feuil1").Range("B8").Value = t5 + CDbl(UserForm1.TextBox6) = t6 And ThisWorkbook.Sheets("feuil1").Range("C8").Value = CDbl(UserForm1.TextBox3)
ThisWorkbook.Sheets("feuil1").Range("B9").Value = t6 + TempsRampDescente And ThisWorkbook.Sheets("feuil1").Range("C9") = "20"
End Sub