bonjour a tous,
j'ai un probléme avec ma formule d'addition de valeur. je joue avec des textbox et des valeurs numeriques.
Ceci permet de calculer le temps d'un cycle dans un USF. j'ai décomposer au maximum afin de pouvoir recuperer a l'avenir dans l'usf avec un graphique dynamique certaines valeurs de la formule.
les valeurs a la fin sont incoherente ont dirai que sa ne s'aditionne pas ni que sa marche , sa me donne tout le temps la meme valeur.
tempsparlier2converti j'aimerai qu'il affiche le nombre dheure et de minutes du resultats tempspaliercomplet2 faut que je rajoute la commande pour le convertir
Cordialement
Pex
j'ai un probléme avec ma formule d'addition de valeur. je joue avec des textbox et des valeurs numeriques.
Ceci permet de calculer le temps d'un cycle dans un USF. j'ai décomposer au maximum afin de pouvoir recuperer a l'avenir dans l'usf avec un graphique dynamique certaines valeurs de la formule.
Code:
Sub CalculMonteeDescente2palier()
Dim TempsRampMonteePalier1 As String
Dim TempsRampMonteePalier2 As String
Dim TempsRampDescente As String
Dim TempsMonteeDescente As String
Dim TempsPalierComplet2 As String
Dim TempsPalierComplet2Converti As String
TempsRampMonteePalier1 = (CDbl(UserForm1.TextBox1) - 20) / CDbl(UserForm1.TBMontee)
TempsRampMonteePalier2 = (CDbl(UserForm1.TextBox4) - CDbl(UserForm1.TextBox1)) / CDbl(UserForm1.TBMontee2)
TempsRampDescente = (CDbl(UserForm1.TextBox4) - 20) / CDbl(UserForm1.TBDescente)
TempsMonteeDescente = TempsRampMonteePalier1 + TempsRampMonteePalier2 + TempsRampDescente
TempsPalierComplet2 = TempsMonteeDescente + CDbl(UserForm1.TextBox5) + CDbl(UserForm1.TextBox7)
TempsPalierComplet2Converti = TempsPalierComplet2 / 60
MsgBox TempsPalierComplet2Converti
End Sub
les valeurs a la fin sont incoherente ont dirai que sa ne s'aditionne pas ni que sa marche , sa me donne tout le temps la meme valeur.
tempsparlier2converti j'aimerai qu'il affiche le nombre dheure et de minutes du resultats tempspaliercomplet2 faut que je rajoute la commande pour le convertir
Cordialement
Pex