soustraire les quantitées

[petchy]

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

 

[Creepy]

Si j'ai bien compris (j'ai lu le code en rapide j'ai pas trop le temps !)

Faudrait que tu fasses un :

Cint(label7.caption)'Converti en chiffre la valeur de label7, je suppose qu'iln'y a pas de chiffre après la virgule !

textbox8.value - label17.caption

et voila. Je pense que tu peux aussi mettre un : if isnotnumeric pour eviter les plantages si l'utilisateur met du texte à la place d'un chiffre.

+++

Creepy

 

[petchy]

bonsoir Creepy et le forun

merci Creepy,mais ça ne fonctionne pas il met une erreur sur cint.
en fait la quantité sur le label17 arrive quand on clik sur un article du comboref,donc c'est un chiffre .
merci
petchy