Private Sub Textbox8_Change()
alerte = IIf(Val(Replace(TextBox8, ",", ".")) = Val(Replace(TextBox9, ",", ".")) + Val(Replace(TextBox10, ",", ".")) _
+ Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox12, ",", ".")) + Val(Replace(TextBox13, ",", ".")), "", "ERREUR !!!")
End Sub
Private Sub Textbox9_Change(): Textbox8_Change: End Sub
Private Sub Textbox10_Change(): Textbox8_Change: End Sub
Private Sub Textbox11_Change(): Textbox8_Change: End Sub
Private Sub Textbox12_Change(): Textbox8_Change: End Sub
Private Sub Textbox13_Change(): Textbox8_Change: End Sub