Discussion :

[wabo67]

Bonjour,

Dans un programme pour la gestion d'un stock je travail en VBA pour modifier la valeur d'un stock sur une feuille excel. Soit en entrée soit en sortie.

Le problème:

0 - 1 = -1 Normal par contre dans un stock nous ne pouvons pas avoir un sotck négatif. Comment puis je faire pour bloqué la cellule à zero pour eviter tout nombre négatif

Merci

[Pierre Fauconnier]

Bonjour

Il faudrait donner un peu de code, sinon, c'est la porte ouverte à toutes les suppositions et hésitations.

D'une manière générale, on peut utiliser IIF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cellule.value = iif(QteEnStock<0,0,QteEnStock)

[wabo67]

excuse moi
voila le code que j'utilise en ce moment

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Set c = Cells.Find(What:=UserForm1.TextBox4.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
         On Error GoTo Erreur
 
    If c = "" Then
        UserForm4.Hide
    End If
    c.Activate 'active la cellule trouvée
 
    Dim txt1 As Variant
    Dim txt2 As Variant
    txt1 = Val(TextBox10.Value)
    txt2 = Val(UserForm1.TextBox3.Value)
    UserForm1.TextBox3.Value = (txt1 - txt2) * -1
 
 
    ActiveCell.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value - Val(TextBox10.Value)
 
    TextBox10 = ActiveCell.Offset(0, 80).Value

donc si txt1 = 2 et txt2= 3 la somme est de -1 impossible pour le stock

[Pierre Fauconnier]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.TextBox3.Value = iif(((txt1 - txt2) * -1)<0;0;(txt1 - txt2) * -1)

Tu as intérêt à nommer mieux tes contrôles pour voir de quoi tu parles exactement lorsque tu utilises Txt1 et Txt2...

Ici, hors contexte, je ne comprends pas bien le * -1