comment calculer dans une textebox

[djwib]

Bonjours à tous,

j'ai actuellement un petit problème, J'aimerai faire un calcul dont le résultat se trouve une texte box 2 et dont un des nombre du calcul doit être inscrit dans une texte box 1.

je vais essayer d'être plus claire :

dans une texte box 2 j'affiche le résultat du calcul suivant :

100 -( la valeure inscrite dans la texte box 1 )

seulement quand j'écris -1 dans la texte box 1 ma macro s'arrête et me donne un messge d'erreur.

J'ai joint un ficher qui j'espère illustrera mieux mes difficultés
j'aimerai pouvoir inscrir : -45
dans la texte box Compteur actuel

Merci d'avance

 

[Bebere]

Re : comment calculer dans une textebox

bonjour Djwib,Takiak

une autre proposition,si tu veux des décimales tu enlèves les' dans keypress(. ou ,)

Private Sub txtCompteurAct_Change()
If Len(txtCompteurAct.Value) > 1 Then _
txtMetreLin.Value = Evaluate(txtCompteurdeDepart.Value & Mid(txtCompteurAct, 1, 1) & Mid(txtCompteurAct.Value, 2))
End Sub

Private Sub txtCompteurAct_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("-")
If InStr(1, Me.txtCompteurAct.Text, "-") > 0 Or Me.txtCompteurAct.SelStart > 0 Then
KeyAscii = 0
End If
' Case Asc(".")
' If InStr(1, Me.txtCompteurAct.Text, ".") > 0 Then
' KeyAscii = 0
' End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub UserForm_Initialize()

txtCompteurdeDepart.Value = 100

End Sub

à bientôt

 

[djwib]

Re : comment calculer dans une textebox

Merci Tatiaket et Bebere pour ces Réponces ultra rapide ça fonctionne du tonner je vais pouvoir continuer mon projet merci pour tout

@bientot sur le forum et bon dimanche