Intervalle d'ne TextBox entre 0 et une somme

Bonsoir,

Je suis désolée de vous dérangez.

Alors :

Je souhaiterai que Si la valeur entrée dans la TextBox n'est pas comprise entre 0 (non compris) et la somme de valeurs dans des cellules; Alors un message d'erreur s'affiche.

Pour cela, j'ai tapé:

Dim s

s = Application.Sum(Range("B17:H18"))

'Nombre compris entre 0 et le nombre max de poissons

If (Not ((TextBox1.Value <= s) And (TextBox1.Value > 0))) Then

MsgBox "Vous ne pouvez pas vendre plus de poissons que vous en avez", vbOKOnly + vbExclamation, "Nombre incorrect"

End If

Mais quelque soit le nombre que j'écris, le message s'affiche, même pour la TextBox vide.

Pourriez-vous m'aider, s'il vous plaît?

Bonjour,

essaie avec Clng(TextBox1)

eric

Bonsoir eric,

je ne connais pas cette formule/fonction (étant novice), pourriez vous m'expliquer comment l'intégrer/l'utiliser dans mon programme?

S'il vous plaît :S

je ne connais pas cette formule/fonction (étant novice)

Fait F1 dessus, l'aide excel est très bien faite

Remplace TextBox1.Value par Clng(TextBox1)

eric

D'accord merci eric

Cela fonctionne mais interfère avec un autre Si placé juste avant, correspondant à l'affichage d'un message si la variable rentrée n'est pas numérique...

J'ai tapé:

Private Sub TextBox1_Change()

'Nombre

If Not IsNumeric(TextBox1.Value) Then

MsgBox "Vous devez entrer un nombre", vbOKOnly + vbExclamation, "Nombre"

End If

'Somme des poissons nommée s

Dim s

s = Application.Sum(Range("B17:H18"))

'Nombre compris entre 0 et le nombre max de poissons

If (Not ((CLng(TextBox1) <= s) And (CLng(TextBox1) > 0))) Then

MsgBox "Vous ne pouvez pas vendre plus de poissons que vous en avez", vbOKOnly + vbExclamation, "Nombre incorrect"

End If

Pourriez-vous m'aider à nouveau?

Je précise, pardon :

Quand je dis que cela interfère, je veux dire que lorsque que j'entre une lettre ou du vide, cela me ramène à la feuille VBA en me mettant la ligne modifié (avec CLng) en erreur (en jaune)

Si tu laisses passer des lettres ou du vide c'est que ton contrôle avant est mal fait.

Il faut boucler tant que la saisie n'est pas valide.

Par contre je fais mes valises là, il faudra que tu attendes que qq'un prenne le relais.

eric

D'accord

Merci pour ce que vous avez déjà fait