Bonjour
Ce n'est pas compliqué
Ta macro CAFLoc_Change il faut la dupliqué 2 fois en changeant juste l'entête
Private Sub LoyerLoc_Change()
Dim Tot As Double
Tot = Val(Replace(LoyerLoc, ",", ".")) + Val(Replace(ChargesLoc, ",", ".")) + Val(Replace(CAFLoc, ",", "."))
If Tot <> 0 Then
DuLoc = Tot
End If
End Sub
Private Sub ChargesLoc_Change()
Dim Tot As Double
Tot = Val(Replace(LoyerLoc, ",", ".")) + Val(Replace(ChargesLoc, ",", ".")) + Val(Replace(CAFLoc, ",", "."))
If Tot <> 0 Then
DuLoc = Tot
End If
End Sub
Private Sub CAFLoc_Change()
Dim Tot As Double
Tot = Val(Replace(LoyerLoc, ",", ".")) + Val(Replace(ChargesLoc, ",", ".")) + Val(Replace(CAFLoc, ",", "."))
If Tot <> 0 Then
DuLoc = Tot
End If
End Sub
Il y d'autres méthodes mais celle-ci est assez simple à mettre en œuvre pour seulement 3 TextBox
Si des difficultés reviens