P
petchy
Guest
bonjour le forum
voila,avec se bouton j'envoi les données des quantitées sorties sur la feuille,est ce possible de soustraire une fois validé les quantitées sorties au quantité entrée mais sur la feuille:
textbox8 - label17
Private Sub CommandButton3_Click() 'validations des sorties
Dim rep As Byte
Dim Feuille As String
If TextBox8 = "" Then
MsgBox "Renseigné la quantitée,SVP ! ", _
vbCritical, "MANQUE DONNEE"
Exit Sub
End If
If TextBox8 > Label17 Then 'stock insuffisant
MsgBox "La quantité demandée " & TextBox8 & " est supérieur au stock " _
& Label17, vbCritical, "Stock Insuffisant"
TextBox8 = Label17
TextBox8.SetFocus
Exit Sub
End If
Feuille = ActiveSheet.Name
Range("A5:J5").Select
Selection.Insert Shift:=xlDown
With Sheets(Feuille)
.Range("B5").Value = TextBox7.Text 'date
.Range("A5").Value = ComboNOM.Text 'nom de la personne
.Range("F5").Value = Comboref.Text 'article
.Range("g5").Value = Label17 'quantité entrée
.Range("h5").Value = Label20 'prix/article
.Range("D5").Value = Label22 'code
.Range("j5").Value = TextBox8.Text 'quantitée sortie
End With
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
ComboNOM = ""
Comboref = ""
Label17 = ""
Label22 = ""
TextBox8 = ""
End Sub
merci
@ plus
petchy
voila,avec se bouton j'envoi les données des quantitées sorties sur la feuille,est ce possible de soustraire une fois validé les quantitées sorties au quantité entrée mais sur la feuille:
textbox8 - label17
Private Sub CommandButton3_Click() 'validations des sorties
Dim rep As Byte
Dim Feuille As String
If TextBox8 = "" Then
MsgBox "Renseigné la quantitée,SVP ! ", _
vbCritical, "MANQUE DONNEE"
Exit Sub
End If
If TextBox8 > Label17 Then 'stock insuffisant
MsgBox "La quantité demandée " & TextBox8 & " est supérieur au stock " _
& Label17, vbCritical, "Stock Insuffisant"
TextBox8 = Label17
TextBox8.SetFocus
Exit Sub
End If
Feuille = ActiveSheet.Name
Range("A5:J5").Select
Selection.Insert Shift:=xlDown
With Sheets(Feuille)
.Range("B5").Value = TextBox7.Text 'date
.Range("A5").Value = ComboNOM.Text 'nom de la personne
.Range("F5").Value = Comboref.Text 'article
.Range("g5").Value = Label17 'quantité entrée
.Range("h5").Value = Label20 'prix/article
.Range("D5").Value = Label22 'code
.Range("j5").Value = TextBox8.Text 'quantitée sortie
End With
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
ComboNOM = ""
Comboref = ""
Label17 = ""
Label22 = ""
TextBox8 = ""
End Sub
merci
@ plus
petchy