Un classeur ListeArticles :
A B L M
N O
___________________________________________________________
______________________________
Code D=E9signation Qte en Stock
Sortie Cumul Sortie Stock Mini
J'ai cod=E9 pour pouvoir mettre =E0 jour la cumul des sorties=20
en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G9:G1000]) Is Nothing Then
codearticle =3D Target.Offset(0, -6) ' ici je trouve le=20
code article correspondant
Windows("ListeArticles.xls").Activate
Sheets("ListeArticles").Range("N2").Value =3D Sheets
("ListeArticles").Range("N2").Value + Target.Value 'cumul=20
des sorties
End If
Windows("Facture..xls").Activate
Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai=20
forc=E9 pour exemple) mais j'aimerai controler le code=20
article de Facture pour mettre =E0 jour le stock de cet=20
article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je=20
gal=E8re depuis qq temps.
Un classeur ListeArticles : A B L M N O ___________________________________________________________ ______________________________ Code Désignation Qte en Stock Sortie Cumul Sortie Stock Mini
J'ai codé pour pouvoir mettre à jour la cumul des sorties en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [G9:G1000]) Is Nothing Then codearticle = Target.Offset(0, -6) ' ici je trouve le code article correspondant
Windows("ListeArticles.xls").Activate Sheets("ListeArticles").Range("N2").Value = Sheets ("ListeArticles").Range("N2").Value + Target.Value 'cumul des sorties End If Windows("Facture..xls").Activate Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai forcé pour exemple) mais j'aimerai controler le code article de Facture pour mettre à jour le stock de cet article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je galère depuis qq temps.
Merci de votre aide
envoie ici si tu veux , je peux y regarder si tu veux ! (sans promesse)
avec explication et exemple clairs :)))
--
répondre ici: p.mackay@skynet.be
"jed" <jedwiller@yahoo.co.uk> a écrit dans le message de news:
0a2c01c3689b$a580d810$a401280a@phx.gbl...
bonjour,
Je suis entrain de faire une apllication de gestion
commerciale et je bute avec un problème de mise à jour du
stock.
Voilà mon problème;
J'ai un classeur Facture :
A B C D E F G
_______________________________________________________
Code Article Désignation Unité Qté
Un classeur ListeArticles :
A B L M
N O
___________________________________________________________
______________________________
Code Désignation Qte en Stock
Sortie Cumul Sortie Stock Mini
J'ai codé pour pouvoir mettre à jour la cumul des sorties
en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G9:G1000]) Is Nothing Then
codearticle = Target.Offset(0, -6) ' ici je trouve le
code article correspondant
Windows("ListeArticles.xls").Activate
Sheets("ListeArticles").Range("N2").Value = Sheets
("ListeArticles").Range("N2").Value + Target.Value 'cumul
des sorties
End If
Windows("Facture..xls").Activate
Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai
forcé pour exemple) mais j'aimerai controler le code
article de Facture pour mettre à jour le stock de cet
article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je
galère depuis qq temps.
Un classeur ListeArticles : A B L M N O ___________________________________________________________ ______________________________ Code Désignation Qte en Stock Sortie Cumul Sortie Stock Mini
J'ai codé pour pouvoir mettre à jour la cumul des sorties en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [G9:G1000]) Is Nothing Then codearticle = Target.Offset(0, -6) ' ici je trouve le code article correspondant
Windows("ListeArticles.xls").Activate Sheets("ListeArticles").Range("N2").Value = Sheets ("ListeArticles").Range("N2").Value + Target.Value 'cumul des sorties End If Windows("Facture..xls").Activate Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai forcé pour exemple) mais j'aimerai controler le code article de Facture pour mettre à jour le stock de cet article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je galère depuis qq temps.
Merci de votre aide
jed
Bonsoir, Le fichier a été envoyé. Merci pour ton aide. Mais ne te prend pas la tete avec quand meme ! cordialement.
-----Message d'origine----- envoie ici si tu veux , je peux y regarder si tu veux ! (sans promesse)
avec explication et exemple clairs :)))
--
répondre ici:
"jed" a écrit dans le message de news:
0a2c01c3689b$a580d810$ bonjour,
Je suis entrain de faire une apllication de gestion commerciale et je bute avec un problème de mise à jour du stock. Voilà mon problème;
J'ai un classeur Facture : A B C D E F G _______________________________________________________ Code Article Désignation Unité Qté
J'ai codé pour pouvoir mettre à jour la cumul des sorties en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [G9:G1000]) Is Nothing Then codearticle = Target.Offset(0, -6) ' ici je trouve le code article correspondant
Windows("ListeArticles.xls").Activate Sheets("ListeArticles").Range("N2").Value = Sheets ("ListeArticles").Range("N2").Value + Target.Value 'cumul des sorties End If Windows("Facture..xls").Activate Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai forcé pour exemple) mais j'aimerai controler le code article de Facture pour mettre à jour le stock de cet article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je galère depuis qq temps.
Merci de votre aide
.
Bonsoir,
Le fichier a été envoyé. Merci pour ton aide. Mais ne te
prend pas la tete avec quand meme !
cordialement.
-----Message d'origine-----
envoie ici si tu veux , je peux y regarder si tu veux !
(sans promesse)
avec explication et exemple clairs :)))
--
répondre ici: p.mackay@skynet.be
"jed" <jedwiller@yahoo.co.uk> a écrit dans le message de
news:
J'ai codé pour pouvoir mettre à jour la cumul des sorties
en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G9:G1000]) Is Nothing Then
codearticle = Target.Offset(0, -6) ' ici je trouve le
code article correspondant
Windows("ListeArticles.xls").Activate
Sheets("ListeArticles").Range("N2").Value = Sheets
("ListeArticles").Range("N2").Value + Target.Value 'cumul
des sorties
End If
Windows("Facture..xls").Activate
Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai
forcé pour exemple) mais j'aimerai controler le code
article de Facture pour mettre à jour le stock de cet
article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je
galère depuis qq temps.
J'ai codé pour pouvoir mettre à jour la cumul des sorties en colonne N
sur le classeur Facture:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [G9:G1000]) Is Nothing Then codearticle = Target.Offset(0, -6) ' ici je trouve le code article correspondant
Windows("ListeArticles.xls").Activate Sheets("ListeArticles").Range("N2").Value = Sheets ("ListeArticles").Range("N2").Value + Target.Value 'cumul des sorties End If Windows("Facture..xls").Activate Sheets("Detail").Select
End Sub
Cela exemple fonctionne bien pour la cellule N ( que j'ai forcé pour exemple) mais j'aimerai controler le code article de Facture pour mettre à jour le stock de cet article dans ListeArticles !!!!
Je sais que je demande beaucoup mais sur ce point je galère depuis qq temps.
