executer un code apres comparaison de deux valeurs

fradouan

XLDnaute Junior
bonsoir a toutes et a tous une ptit applica tion de gestion de stock que je fait mon pbl est que pour saisir une sortie le code doit comparer une valeur que j'entre avec la valeur du stock disponible que l'userform apporte mais la comparaison se fait mal je trouve pas la cause dans mon code merci d'avance pour votre precieuse aide :)

Message édité par: fradouan, à: 02/01/2006 01:03

Message édité par: fradouan, à: 02/01/2006 01:29
 

Charly2

Nous a quittés en 2006
Repose en paix
Bonsoir Fradouan et bonne année :)

Je suis, je l'avoue humblement, dans l'incapacité de t'apporter la précieuse aide que tu attends sans voir ton code...

Un ptit fichier joint serait le bienvenu ;)

Amicalement
Charly
 

fradouan

XLDnaute Junior
Re:executer un code apres comparaison de deux vale

merci charly c'est gentill
If STOCK.Value < QTE.Value Then
MsgBox ('LA QUANTITE SAISIE EST SUPERIEURE AU STOCK DISPONIBLE')
Exit Sub
ElseIf QTE.Value = '' Then
MsgBox ('Saisir une Qté valide ou cliquer sur sortir')
Exit Sub
ElseIf QTE.Value = 0 Then
MsgBox ('Saisir une Qté valide ou cliquer sur sortir')
Exit Sub
End If
bien que je tape dans l'userform un 5 et le stock est de 200 ex j'ai le msg ('LA QUANTITE SAISIE EST SUPERIEURE AU STOCK DISPONIBLE') [file name=GESTOK.zip size=24549]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GESTOK.zip[/file]

Message édité par: fradouan, à: 02/01/2006 01:46
 

Pièces jointes

  • GESTOK.zip
    24 KB · Affichages: 22

Charly2

Nous a quittés en 2006
Repose en paix
Re:executer un code apres comparaison de deux vale

Re,

Il faut en premier lieu savoir que les TextBox(es) ne contiennent que du texte, et que donc, si tu souhaites faire des vérifications sur des nombres, il te faut d'abord convertir les valeurs de tes TextBox(es), par exemple :

If Val(STOCK) < Val(QTE) Then
  MsgBox ('LA QUANTITE SAISIE EST SUPERIEURE AU STOCK DISPONIBLE')
  Exit Sub
ElseIf QTE.Value = '' Or Val(QTE) = 0 Then
  MsgBox ('Saisir une Qté valide ou cliquer sur sortir')
  Exit Sub
End If

et de même à chaque fois que tu veux utiliser la valeur numérique qui a été saisie.

Amitiés
Charly
 

Statistiques des forums

Discussions
312 493
Messages
2 088 955
Membres
103 989
dernier inscrit
jralonso