Additionner soustraire TextBox en direct

Bonjour le Forum,

Mon problème :

J'ai un bug que j'arrive pas à trouver la solution.

Private Sub TextBox6_Change()
If TextBox6.Value = "" Then
Me.TextBox19 = lblTXT19
Else
t19 = lblTXT19
TextBox19.Value = t19 - lblTXT6 + Val(TextBox6) (en jaune cette ligne)
End If
End Sub

Le but de ce code est d'additionné et soustraire en direct.

Clic sur le premier nom de la ListView et si on clic dans la TextBox6 pour y mettre exemple 75 cela devrais nous donner 165 dans la TextBox19.

EXPLICATION :

A chaque fois que l’on veut ajouter un nouveau chiffre il vaut supprimer le précédent.
180-90+75=165
et je peux modifier plusieurs fois les données d’une personne.
165-75+245=335

J’ai d’autres calcul de TextBox (exactement les mêmes), mais pour alléger mon fichier je ne les ai pas mis.
TextBox7 à la TextBox20, TextBox8 à la TextBox21, TextBox9 à la TextBox22, TextBox10 à la TextBox23, TextBox11 à la TextBox24, TextBox12 à la TextBox25, TextBox13 à la TextBox26.
Merci d’avance

Bonjour,

Les textbox et les label ne contiennent que du texte > il faut donc en tenir compte ...

Un essai ...

Private Sub TextBox6_Change()
Dim t19 As Double

   If TextBox6.Value = "" Then
      Me.TextBox19 = lblTXT19
   Else
      t19 = Val(lblTXT19)
      TextBox19.Value = t19 - Val(lblTXT6) + Val(TextBox6)
   End If
End Sub

ric

Bonjour Ric et le forum,

Merci pour ton code c'est super.

Bonne journée à toi et au forum