XL 2016 Bloquer la saise dans un textbox quand une cellule est égale à 0

A

admin59

XLDnaute Nouveau
Bonjour à tous,

J'ai dans un classeur un Userform qui me permet de d'incrémenter ou de décrémenter les stocks de produits.
Je souhaiterais bloquer la saisie en "sortie" lorsque que le stock d'un produit est à 0 afin d'éviter les stocks négatifs.
J'ai un MsgBox qui m'avertit que le stock est à 0, mais je souhaiterais que ce dernier n'apparaisse pas lorsque je réapprovisionne le stock.

Je vous joins le fichier

Je vous remercie par avance si vous avez une petite idée à me soumettre; cette dernière sera la bienvenue,

Cordialement

Emmanuel
 

Pièces jointes

  • 1.xlsm
    53.2 KB · Affichages: 19
Trier par date Trier par votes
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @admin59, le forum

Remplace cette partie de ton code de ton "UserForm1" par celle ci :
VB: 
Private Sub CommandButton1_Click()

'Mise à jour du stock et archivage du mouvement
i = CLng(TextBox1.Value)
j = CLng(TextBox3.Value)
r = LIBELLE(i)
S = ROWREF(i)

If Sortie Then
x = Worksheets("Bon de pret").Range("A65536").End(xlUp).Row + 1
Worksheets("Bon de pret").Cells(x, 1) = i

Worksheets("Bon de pret").Cells(x, 2) = r
Worksheets("Bon de pret").Cells(x, 4) = TextBox4.Value
Worksheets("Bon de pret").Cells(x, 5) = TextBox5.Value
Worksheets("Bon de pret").Cells(x, 3) = j

Worksheets("Bon de pret").Cells(x, 3) = j
Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) - j

End If

If Réappro = False Then
    If Worksheets("BD produits").Cells(S, 3) <= 0 Then
        UserForm1.SpinButton1.Enabled = False
        MsgBox "Stock insuffisant, voulez vous forcer la saisie"
    End If
End If

If Réappro Then
x = Worksheets("Réappro").Range("A65536").End(xlUp).Row + 1
Worksheets("Réappro").Cells(x, 1) = i

Worksheets("Réappro").Cells(x, 2) = r
Worksheets("Réappro").Cells(x, 4) = ComboBox1.Value
Worksheets("Réappro").Cells(x, 7) = TextBox4.Value
Worksheets("Réappro").Cells(x, 6) = TextBox5.Value
Worksheets("Réappro").Cells(x, 5) = Date

Worksheets("Réappro").Cells(x, 3) = j

Worksheets("Réappro").Cells(x, 3) = j
Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) + j

If Worksheets("BD produits").Cells(S, 3) <= 0 Then
    MsgBox "Stock négatif, Attention le stock est toujours négatif", vbCritical, "Gestion du stock"
End If

End If
Unload Me
End Sub

Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
A

admin59

XLDnaute Nouveau
Bonjour et merci encore de ta réponse.
J'ai remplacé mon code par le tien et cela ne change rien :

Quantité toujours décrémentée en sortie de stock lorsque ce dernier est à 0
Le Msg apparait seulement lors du réappro alors que je souhaite qu'il apparaisse seulement avec l'option sortie de stock et non pour le réappro.

De plus, j'aimerai remplacer les ID produits ( 1,2,3) par SM001, SM002 ect...., mais format pas pris en compte dans le textbox ID produits.

Je te remercie encore pour ton aide

Cordialement

Emmanuel
 
Vote positif 0 Vote négatif
A

admin59

XLDnaute Nouveau
admin59 à dit:
Bonjour et merci encore de ta réponse.
J'ai remplacé mon code par le tien et cela ne change rien :

Quantité toujours décrémentée en sortie de stock lorsque ce dernier est à 0
Le Msg apparait seulement lors du réappro alors que je souhaite qu'il apparaisse seulement avec l'option sortie de stock et non pour le réappro.

De plus, j'aimerai remplacer les ID produits ( 1,2,3) par SM001, SM002 ect...., mais format pas pris en compte dans le textbox ID produits.

Je te remercie encore pour ton aide

Cordialement

Emmanuel
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour Emmanuel, le forum

admin59 à dit:
Quantité toujours décrémentée en sortie de stock lorsque ce dernier est à 0
Cliquez pour agrandir...
Dans cette version toute saisie est impossible si le stock descend en dessous de 0

VB: 
Private Sub CommandButton1_Click()

'Mise à jour du stock et archivage du mouvement
i = CLng(TextBox1.Value)
j = CLng(TextBox3.Value)
r = LIBELLE(i)
S = ROWREF(i)

If Sortie Then
    'Ici on teste si le reste en stock est positif
   If Worksheets("BD produits").Cells(S, 3) - j < 0 Then
        MsgBox "Stock insuffisant, sortie stock imppossible" & Chr(13) & Chr(10) & _
        "Vous devez d'abord réapprovionner le stock.", vbCritical, "Rupture de stock !"
        Exit Sub
    Else
        With Worksheets("Bon de pret")
            x = .Range("A65536").End(xlUp).Row + 1
            .Cells(x, 1) = i
            .Cells(x, 2) = r
            .Cells(x, 4) = TextBox4.Value
            .Cells(x, 5) = TextBox5.Value
            .Cells(x, 3) = j
            .Cells(x, 3) = j
        End With
            Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) - j
    End If
End If
If Réappro Then
    With Worksheets("Réappro")
        x = .Range("A65536").End(xlUp).Row + 1
        .Cells(x, 1) = i
        .Cells(x, 2) = r
        .Cells(x, 4) = ComboBox1.Value
        .Cells(x, 7) = TextBox4.Value
        .Cells(x, 6) = TextBox5.Value
        .Cells(x, 5) = Date
        .Cells(x, 3) = j
        .Cells(x, 3) = j
    End With
        Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) + j
End If
Unload Me
End Sub

Pour ceci, il sera plus logique que cela fasse parti d'une autre question distincte.
Car le principe sur le forum est une question de départ correspond à une ou des solutions puis une autre question dans un autre fil etc.... ceci pour la bonne compréhension des réponses pour les autres personnes qui pourrait avoir une question similaire.
De plus signaler quelle solution ou mixte de solution que tu as retenu et qui correspond pour toi à la réponse à ta question.
admin59 à dit:
De plus, j'aimerai remplacer les ID produits ( 1,2,3) par SM001, SM002 ect...., mais format pas pris en compte dans le textbox ID produits.
Cliquez pour agrandir...

@Phil69970
 
Vote positif 0 Vote négatif
A

admin59

XLDnaute Nouveau
Phil69970 à dit:
Bonjour Emmanuel, le forum


Dans cette version toute saisie est impossible si le stock descend en dessous de 0

VB: 
Private Sub CommandButton1_Click()

'Mise à jour du stock et archivage du mouvement
i = CLng(TextBox1.Value)
j = CLng(TextBox3.Value)
r = LIBELLE(i)
S = ROWREF(i)

If Sortie Then
    'Ici on teste si le reste en stock est positif
   If Worksheets("BD produits").Cells(S, 3) - j < 0 Then
        MsgBox "Stock insuffisant, sortie stock imppossible" & Chr(13) & Chr(10) & _
        "Vous devez d'abord réapprovionner le stock.", vbCritical, "Rupture de stock !"
        Exit Sub
    Else
        With Worksheets("Bon de pret")
            x = .Range("A65536").End(xlUp).Row + 1
            .Cells(x, 1) = i
            .Cells(x, 2) = r
            .Cells(x, 4) = TextBox4.Value
            .Cells(x, 5) = TextBox5.Value
            .Cells(x, 3) = j
            .Cells(x, 3) = j
        End With
            Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) - j
    End If
End If
If Réappro Then
    With Worksheets("Réappro")
        x = .Range("A65536").End(xlUp).Row + 1
        .Cells(x, 1) = i
        .Cells(x, 2) = r
        .Cells(x, 4) = ComboBox1.Value
        .Cells(x, 7) = TextBox4.Value
        .Cells(x, 6) = TextBox5.Value
        .Cells(x, 5) = Date
        .Cells(x, 3) = j
        .Cells(x, 3) = j
    End With
        Worksheets("BD produits").Cells(S, 3) = Worksheets("BD produits").Cells(S, 3) + j
End If
Unload Me
End Sub

Pour ceci, il sera plus logique que cela fasse parti d'une autre question distincte.
Car le principe sur le forum est une question de départ correspond à une ou des solutions puis une autre question dans un autre fil etc.... ceci pour la bonne compréhension des réponses pour les autres personnes qui pourrait avoir une question similaire.
De plus signaler quelle solution ou mixte de solution que tu as retenu et qui correspond pour toi à la réponse à ta question.


@Phil69970
Cliquez pour agrandir...
Bonjour

Un grand merci pour tout
Cela fonctionne

C'est exactement ce que je voulais

Cordialement
 
Vote positif 0 Vote négatif
A

admin59

XLDnaute Nouveau
Bonjour

Je me permets de vous recontacter pour un nouvelle question

J'ai dans un Userform un TextBox dans lequel je saisis les ID produits ( dans mon fichier, ils se nomment 1,2,3 etc...

Je voudrais les remplacer par SM001, SM002 et ainsi de suite.
Le souci est que mon TextBox n'accepte pas ce format
Auriez vous une solution pour ceci

D'avance merci

Cordialement
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
@admin59

Ceci fonctionne mais tu risques d'avoir des pb sur ton "label7"
Code: 
Private Sub TextBox1_Change()
Me.TextBox1 = Format(Me.TextBox1, """SM""000")
'*****C'est ici que tu dois déclarer Label7.Caption = ....
End Sub

et ici ton code est à repenser
Code: 
Private Sub CommandButton1_Click()

'Mise à jour du stock et archivage du mouvement
i =......... '??? Pb de code à prévoir ici

@Phil69970
 
Vote positif 0 Vote négatif
A

admin59

XLDnaute Nouveau
Bonjour,

Oui, le label 7 me pose un problème.....
Je pense avoir atteint mes limites car je ne comprends pas pourquoi un changement de format sur l'ID produit peut avoir une incidence sur le label 7 ( libellé produit) qui ne s'affiche plus

Cordialement

Emmanuel
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
736
Mody200
M
M
  • Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
1 K
Mody200
M
P
  • Résolu(e)
Microsoft 365 décaler le contenu d 'une cellule si celle ci est à 0
2 3 4
Réponses
46
Affichages
3 K
TooFatBoy
TooFatBoy
G
  • Résolu(e)
XL 2010 Mettre une textbox en négatif.
Réponses
6
Affichages
300
Phil69970
Phil69970
C
  • Résolu(e)
XL 2021 Supprimer des lignes lorsque, dans une colonne, une certaine valeur est présente
Réponses
14
Affichages
635
Constantin
C
S
  • Résolu(e)
XL 2016 Ne pas imprimer si 0 dans une cellule
Réponses
14
Affichages
378
AtTheOne
AtTheOne
P
  • Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
483
sylvanu
sylvanu
C
  • Question
XL 2019 Attribuer un % en fonction de la place d'un ingrédient dans la compo de la formule
Réponses
7
Affichages
361
TooFatBoy
TooFatBoy
klin89
  • Question
Microsoft 365 Formule : Atteindre un seuil et repartir à 0
Réponses
4
Affichages
553
TooFatBoy
TooFatBoy
C
  • Question
XL 2019 Récupérer titre de ligne et colonne quand une cellule est rempli dans un tableau
Réponses
3
Affichages
359
Clemee61
C

Membres actuellement en ligne

10 membres et 66 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 133
Messages
2 116 603
Membres
112 802
dernier inscrit
Dan Marc