Microsoft 365 UserForm afficher label sous condition

[ivan27]

Bonsoir à tous,

En pièce jointe un petit formulaire qui comporte 6 textbox

Tant que la somme des valeurs des textbox 9 à 13 est différente de la valeur de la textbox 8, alors je souhaite afficher un message d'erreur.
Sinon, pas de message.

Merci d'avance pour votre aide

Bien cordialement,

Ivan

 

[job75]

Bonsoir ivan27,

Le code de l'UserForm :

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

A+

 

[ivan27]

Re bonsoir le forum, job75,

Merci beaucoup pour cette proposition.
C'est parfait !
A très bientôt
Ivan