usf ajout/supp du stock

[Evelynetfrancois]

Bonjour
je me permets une fois de plus de vous solliciter pour un probleme
bien trop complexe pour moi
j'ai joint un fichier extra dépouillé pour etre plus clair

le probleme est : comment fairepour ajouter et soustraire un article d'un stock !

MERCI d'avance pour le temps que vous voudrez bien me consacrer
bonne journée a toute et tous

E et F [file name=STOCK.zip size=30206]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/STOCK.zip[/file]

 

[Evelynetfrancois]

oups ce fichier fonctionne mieux
desole

E et F [file name=stock2.zip size=30403]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/stock2.zip[/file]

 

[Evelynetfrancois]

bonsoir
meme si vous aviez un bout de solution sans traiter le probleme dans sont integralite
ca m'ouvrirais p etre bien une voie
encore merci
E et f

 

[ChTi160]

Salut'Evelynetfrancois'
en pièce jointe le fichier adapté [file name=EvelynetFrancois.zip size=31612]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EvelynetFrancois.zip[/file]

 

[E ET F]

Merci chti160
j'ai pas du bien expliqué
je clic sur un article au hasard dans la liste puis je lance l'userform
le textbox 2 se trouve donc remplis de cet article
puis je cherche un autre produit dans le conbobox 2
je me retrouve donc avec deux article different sur mon usf
je saisie une quantite dans le textbox1(mettons 60)
je voudrais que lorsque je clic sur OK
l'article du textbox2 s ajoute aux 1000 en stock dans la page stock
et que l'article de la conbobox2 se soustrait aux 1000 en stock dans la page stock

dans l'exemple joint l'article du textbox2 passerai a 1060
pendand que l'article du conbobox2 passerait lui a 940

merci pour tout en tout cas
bonne soiree
E et F

 

[ChTi160]

re
j'ai mis cette procédure dans le bouton K adaptes la procédure
Private Sub CommandButton2_Click()
Dim derlgn As Integer
Dim maplage As Range
Dim cel As Range
With Worksheets('STOCK')
.Select
derlgn = .Range('A1000').End(xlUp).Row
Set maplage = .Range('B2:B' & derlgn)
For Each cel In maplage
Select Case cel.Value
Case Is = UserForm3.ComboBox2.Value
cel.Offset(0, 1) = cel.Offset(0, 1) + TextBox1.Value
Case Is = UserForm3.TextBox2.Value
cel.Offset(0, 2) = cel.Offset(0, 2) - TextBox1.Value
End Select
Next
End With
End Sub

 

[Evelynetfrancois]

merci pour ton code chti160

je vais m'y attaqué ce week- end et bien evidement je te tiens au courant
encore uj grand merci pour ton devouement


bon week- end a toi
E et F

 

[Evelynetfrancois]

chti160 !!!!!!!!!

je n'est pas resister a la tentation de faire les essais entre midi et deux sur mes genoux au soleil lol
c'est carrement GENIAL
c'est exactement ce que je voulais faire
je l'ai adapté a mon programme (comme convenu)
c'est super efficace..........................
vraiment un grand merciiiiiiiii
je te souhaite un bon week-end
en tout cas le miens sera bon !!!!
a bientot te lire avec plaisir ............
E et f

 

[ChTi160]

salut 'Evelyne et F'
content d'avoir pu t'être utile
a bientôt