Permettre saisie lot dans textbox

Bonjour moutchec, bonjour le forum,

Je vais regarder cela, mais laisse-moi un peu de temps s.t.p.

Joseph

Bonjour moutchec, bonjour le forum,

Une proposition à tester :

Si la quantité saisie dans "TxtB_Quantite_ES_1" est plus petite que la différence entre "Volume du Stock" et "Quantité en stock", la valeur saisie reste valide.

Sinon la quantité saisie est diminuée pour équivaloir le "Volume du Stock" moins "Quantité en stock" ... si j'ai bien compris le besoin.

Private Sub TxtB_Quantite_ES_1_Change()
On Error Resume Next
If Ok_Change = False Then Ok_Change = True: Exit Sub 'on quitte selon la valeur de OK_Change
With UsF_GESTION 'avec le Userform
    With MltiPg.Pages(2).Frm_Operations  'Avec la page du Multipage
        With .TxtB_Quantite_ES_1 'Avec le TextBox

''''     VarQte_Compare_10 = IIf(CLng(.Value) > VarQte_Stock_1, VarQte_Stock_1, CLng(.Value)) 'On définit sa valeur en fonction de la variable  "VarQte_Stock_1"
' ******** ligne modifié pour la soustraction
            VarQte_Compare_10 = IIf(CLng(.Value) > VarQte_Stock_1, Lbl_Volume_Stock - Lbl_Stock_1, CLng(.Value)) 'On définit sa valeur en fonction de la variable  "VarQte_Stock_1"

     'pour eviter d'entrer plus que ce qu'est la valeur en Stock
            .Value = IIf(.Value = "", 0, VarQte_Compare_10) 'Idem
            .BackColor = IIf(VarQte_Compare_10 = 0, &H8080FF, &H80FF80) 'On colore le fond du controls en fonction de la variable "VarQte_Compare_10"
        End With
        With .CmdB_Tranferer 'Avec le Combobox
            .Visible = IIf(VarQte_Compare_10 = 0, False, True) 'On affiche selon valeur de la Variable
            .SetFocus 'on prend le Focus
        End With
'********** ' bloc désactivé pour empêcher Lbl_Stock_1 de s'adapter
''''    With .Lbl_Stock_1 'Avec le label
''''       Select Case True 'selon la variable qui est à True
''''              Case VarQteMoins 'ci c'est un prélévement
''''                 .Caption = IIf(VarQte_Compare_10 = 0, .Tag, (VarQte_Stock_1 - VarQte_Compare_10)) 'On affiche le resultat en fonction de la variable "VarQte_Compare_10"
''''     VarQte_Stock_Restante_1 = CLng(.Caption) 'On initialise la Variable
''''              Case VarQtePlus 'ci c'est un Ajout
''''                 .Caption = IIf(VarQte_Compare_10 = 0, .Tag, (VarQte_Stock_1 + VarQte_Compare_10)) 'On affiche le resultat en fonction de la variable "VarQte_Compare_10"
''''     VarQte_Stock_Restante_1 = CLng(.Caption) 'On initialise la Variable
''''       End Select
''''   End With
' ********** fin du bloc désactivé

    End With
End With
On Error GoTo 0
End Sub

Joseph

BONSOIR MR

c'est bien cela.

juste un réglage à faire pour que la quantité en stock dans l'userform se modifie au fur et à mesure de la saisie de l'apport car c'est cette quantité en stock qui est utilisée pour mettre à jour les feuilles 'Stocks' et 'Mouvements'.

merci beaucoup.

MOUTCHEC.