VBA Limiter la la valeure de la somme de textbox

[Cefiroth]

Bonjour le forum ,

Voilà, j'ai un Userforum qui contient plusieurs textbox dans lesquels on rentre des nombres.
Il faut que le total de ces nombres fasse 200.
J'ai bloqué la valeure des textbox à 200 mais ce n'est pas suffisant.

J'aimerais que la personne ne puisse pas saisir des nombre dont la somme est supérieure à 200.


Est-ce possible ?

Merci d'avance

 

[Odesta]

Re : VBA Limiter la la valeure de la somme de textbox

Bonjour

Oui c'est possible, en passant par une petite macro qui remettera à 0 ou à vide le textbox en cours de modification, si la somme des contenues est supérieur à 200.

Private Sub TextBox1_Change()
If (CInt(TextBox1.Value) + CInt(TextBox2.Value) + CInt(TextBox3.Value)) > 200 Then
TextBox1.Text = 0 ' ou ""
End If
End Sub

à adapter

Cdt

Olivier

 

[Cefiroth]

Re : VBA Limiter la la valeure de la somme de textbox

Merci beaucoup !