Probleme de calcul...

[paul87]

bonjour à tous, bonjour au forum,
j'essaye de faire un comparateur (sur uf) de volume horaire theorique par rapport au volume horaire calculé....
et ben.....bien que simple, ça plante..j'enrage..
j'ai l'impression que ça fonctionne au premier calcul...puis ça plante, les conditions ne sont plus respectées...
de plus comment fait-on pour n'avoir que 2 chiffres après la virgule pour les resultats de calclus..
merci par avance...
j'ai mis mon fichier de brouillon en pj

 

[Catrice]

Re : Probleme de calcul...

Bonjour,

Il faudrait donner un mode opératoire pour reproduire le probleme que tu rencontres...

 

[excalibur]

Re : Probleme de calcul...

bonjour paul catrice le forum si j ai bien compris un ex:
salutations

 

[paul87]

Re : Probleme de calcul...

Bonjour à tous, bonjour le forum
Merci à vous Catrice et excalibur .
ça marche impeccable,.....mais au lieu de relancer l'ouverture du uf pour chaque re-calcul, ne peut on pas relancer le calcul sur une msgbox/vbYesNo ...? si oui comment faire...?
car dans mon uf final, ce calcul n'est qu'une étape, je veux surtout pas une fermeture et ré-ouverture...
Merci

 

[Catrice]

Re : Probleme de calcul...

Bonjour,

Tu peux effacer les TextBox comme ceci :

Private Sub CommandButton2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
End Sub

Ou bien

Private Sub CommandButton2_Click()
Dim X
For Each X In Controls
If Left(X.Name, Len(X.Name) - 1) = "TextBox" Then X.Value = ""
Next
End Sub

 

[paul87]

Re : Probleme de calcul...

Re-bonjour ,
oui, catrice j'avais déja fait cette modif, qui fonctionne tres bien mais pour que ce soit plus fonctionnel pour les futurs utilisateurs
je voudrais que si le resultat calculé sur le TextBox3 est supérieur à la valeur du TextBox4, une msgbox s'affiche avec l'info et la possibilité de relancer le calcul avec une remise à zéro des TextBox..
en fait, il est tres important que les utilisateurs passent par l'étape de oui/non

 

[excalibur]

Re : Probleme de calcul...

bonjour le fil tu peus adapter comme cela
Option Explicit
Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Rep, i As Byte
TextBox4.Value = Format((Val(TextBox5.Value) / 2), "##0.00")
TextBox3 = (Val(TextBox1.Value) / (TextBox2 / 60))
Label14.Visible = True
If Val(TextBox3.Value) > (Val(TextBox4.Value)) Then
Msg = "LE VOLUME RECUELLI EST SUPERIEUR AU VOLUME THEORIQUE..... VOULEZ VOUS LANCER UN NEW CALCUL??"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " CHOIX ?? "
Rep = MsgBox(Msg, Style, Title)
If Rep = vbYes Then
For i = 1 To 5
Controls("Textbox" & i) = ""
Next i
Else
Exit Sub 'ou autre!!
End If
End If
End Sub
salutations

 

[paul87]

Re : Probleme de calcul...

merci excalibur,
mais pourquoi y a t'il une erreur sur textbox5....?" instruction incorrecte à l'intérieur d'une procédure"....
comprends pas

 

[excalibur]

Re : Probleme de calcul...

rebonjour le fil travaillant sur excel 2007 depuis quelques tant pas pb....j ai teste sur 2003 is not pb... moi pas comprendre ecrit peut etre comme cela
'For i = 1 To 5
'Controls("Textbox" & i) = ""
'Next i
remplace par
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Object.Value = ""
Next Ctrl
salutations
ps: pour avoir point a la place de virgule rajoute cela
TextBox4.Value = Replace(TextBox4.Value, ",", ".")
TextBox3.Value = Replace(TextBox3.Value, ",", ".")

 

[paul87]

Re : Probleme de calcul...

BONSOIR
c'est au poil...ça fonctionne...merci beaucoup