Aide pour modifier code VBA

bonjour le forum,

bonjour à tous,

je recherche de l'aide pour modifier le code ci-dessous (fichier en annexe) afin que dans les commentaires 1 et 2 il y ait en plus du mot "SORTIE", un espace et la quantité saisie dans le TextBox quantité prélevée.

exemple : SORTIE 150 si je fais un prélèvement de 150 sur le stock.

merci d'avance pour votre aide.

Moutchec.

Private Sub OptB_Operation_Sortie_Click()

Set Coll_NumLots = New Collection 'On initialise la Collection

VarQteMoins = True: VarQtePlus = False

Str_Operation = "SORTIE"

Ok_Change = False

With UsF_GESTION 'avec le Userform

.Lbl_Volume_Stock.Caption = ""

.Lbl_Lots.Visible = True

.Lbl_Quantite_10.Caption = "Quantité prélevée :"

.Lbl_Quantite_20.Caption = "Quantité prélevée :"

.TxtB_Commentaire_ES_1.Text = ""

.TxtB_Commentaire_ES_2.Text = ""

.Lbl_Date_1.Caption = "Date de sortie (jjmmaa) :"

.Lbl_Date_2.Caption = "Date de sortie (jjmmaa) :"

On Error Resume Next

With .CmbB_Lots

.Clear

For L = 2 To UBound(Tab_Stocks, 1)

Volume_Stock = Tab_Stocks(L, 11)

'*************

Coll_NumLots.Add Tab_Stocks(L, 3), CStr(Tab_Stocks(L, 3))

'*************

If Err.Number = 0 Then

.AddItem Tab_Stocks(L, 3)

.List(.ListCount - 1, 1) = Volume_Stock

.List(.ListCount - 1, 2) = 2 + L

End If

Err.Clear

Next L

.ListIndex = -1

.Visible = True

.SetFocus

End With

With .CmdB_Modifier_Stock

.Visible = True

.Enabled = False

End With

With .CmdB_Modifier_Stock

.Visible = True

.Enabled = False

End With

End With

Set Coll_NumLots = Nothing

On Error GoTo 0

End Sub

Private Sub OptB_Consulter_Change()

With UsF_GESTION 'avec le Userform

With MltiPg.Pages(3) 'Avec la page du Multipage

Ok_Change = Not .OptB_Consulter

With .Frm_Filtrage

.Visible = Ok_Change

With .CmbB_Filtrage

If .ListCount = 0 Then Exit Sub

.ListIndex = IIf(.ListCount = 2, 1, 0)

End With

End With

End With

End With

End Sub

Bonjour,

Avant toute chose .... Félicitations à l'auteur du UserForm ....!!!

Ci-joint ton fichier ... avec la modification demandée ... à tester ...

Bonjour le forum,

bonjour @James

je viens de tester mais je n'ai pas vu de différence, vous ne vous êtes pas trompé de fichier en uploadant par hasard?

merci beaucoup.

Moutchec.

Re,

Je me suis peut-être trompé dans le upload ...

Private Sub OptB_Operation_Sortie_Click()
Set Coll_NumLots = New Collection  'On initialise la Collection
    VarQteMoins = True: VarQtePlus = False
    Str_Operation = "SORTIE"
 Ok_Change = False
     With UsF_GESTION 'avec le Userform
             .Lbl_Volume_Stock.Caption = ""
             .Lbl_Lots.Visible = True
             .Lbl_Quantite_10.Caption = "Quantité prélevée :"
             .Lbl_Quantite_20.Caption = "Quantité prélevée :"
             ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
             ' Modification des Commentaires '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
             .TxtB_Commentaire_ES_1.Text = Str_Operation & " " & TxtB_Quantite_ES_1.Value
             .TxtB_Commentaire_ES_2.Text = Str_Operation & " " & TxtB_Quantite_ES_2.Value

             .Lbl_Date_1.Caption = "Date de sortie (jjmmaa) :"
             .Lbl_Date_2.Caption = "Date de sortie (jjmmaa) :"
     On Error Resume Next
        With .CmbB_Lots
             .Clear
      For L = 2 To UBound(Tab_Stocks, 1)
      Volume_Stock = Tab_Stocks(L, 11)
'*************
        Coll_NumLots.Add Tab_Stocks(L, 3), CStr(Tab_Stocks(L, 3))
'*************
        If Err.Number = 0 Then
             .AddItem Tab_Stocks(L, 3)
             .List(.ListCount - 1, 1) = Volume_Stock
             .List(.ListCount - 1, 2) = 2 + L
        End If
           Err.Clear
      Next L
             .ListIndex = -1
             .Visible = True
             .SetFocus
        End With
        With .CmdB_Modifier_Stock
             .Visible = True
             .Enabled = False
        End With
        With .CmdB_Modifier_Stock
             .Visible = True
             .Enabled = False
        End With
    End With
    Set Coll_NumLots = Nothing
On Error GoTo 0
End Sub

J'espère que cela pourra aider ...

j'ai trouvé la solution en ajoutant un code :

private sub txtb_commentaire _es1

+ la partie que tu as concaténé avec "commentairer es..."

mes sincères remerciements pour ton aide, je n'y serais pas arrivé sans.

Moutchec.

Ravi que tu aies pu trouvé la soltion à ton problème ...

Merci ... pour tes remerciements ...:smile

bonsoir,

une petite requête, dans une situation que je viens de rencontrer, il serait intéressant que le commentaire soit modifiable pour ajouter certaines infos spécifiques .

exemple "SORTIE 50" pour un enlèvement de 50 et modifiable pour ajouter par exemple "SORTIE 50 dont 25 pour X et 25 pour Y"

merci d'avance pour votre aide.

Moutchec.