Stock ?

[buromania]

Bjr à tous
J'essaie d'actualiser mon stock lorsque je génère une commande.Je n'arrive pas à me positionner automatiquement , dans la feuille produit, sur la ligne de ce produit. En enregistrant uneprocédure, il n'appaarait rien lorsque l'on appuie sur edition puis rechercher...?
J'ai essayé ceci et pas mal d'autres choses sans succès

With Sheets('produits').Range('a1:a15000')
c = UserForm5.ComboBox2.Value
Set c = .Find(UserForm5.ComboBox2.Value)

je vous remercie
Bon wk end

 

[deudecos]

Salut buromania, le forum,

Je ne suis pas sur de comprendre ce que tu souhaites, est ce que tu as deja un stock gere sur excel ou est ce que tu veux en creer un ?
Parce que si tu n'as rien, j'ai quelque chose qui m'a ete donne ici sur ce forum que je trouve plutot bien. En tout cas, moi il me sert beaucoup !
Donc si c'est le cas, je peux te le fournir, sinon, un fichier joint serait le bienvenu pour comprendre ce que tu veux...
Euh... zippe, sans accents et moins de 50 k le fichier hein...
Bonne fin d'apres midi
Olivier

 

[buromania]

bjr deudecos et le forum
mon stock est dejà créé et se trouve sur la dernière colonne de ma feuille produit
Ce n'est pas que ne veuille te joindre le fichier mais il est très lourd

Private Sub CommandButton3_Click()
Sheets('saisie').Select
Application.ScreenUpdating = False
Range('m1').Value = UserForm5.TextBox14
Range('e1').Value = UserForm5.TextBox12
If UserForm5.TextBox1.Value = UserForm5.ComboBox2.Value Then
Range('d1').Value = UserForm5.TextBox2
End If
If UserForm5.TextBox3.Value = UserForm5.ComboBox2.Value Then
Range('d1').Value = UserForm5.TextBox4
End If
If UserForm5.TextBox5.Value = UserForm5.ComboBox2.Value Then
Range('d1').Value = UserForm5.TextBox6
End If

Range('a1:n1').Select
Selection.Copy
Range('A1').End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.ClearComments
Range('A1:j1,m1').Select
Selection.ClearContents
Range('D1').Select
ActiveCell.FormulaR1C1 = '=RC[6]*R1C[+7]'
Range('F1').Select
ActiveCell.FormulaR1C1 = '=RC[-2]*RC[-1]'

With Sheets('produit').Range('a1:a15000')
c = UserForm5.ComboBox2.Value
Set c = .Find(UserForm5.ComboBox2.Value)

Je travaille via userform5 sur feuille saisie et le combobox2 à la feuille produit en row source
Le CB3 sert à valider ma ligne et imputer le stock
Je bloque à l'avant dernière ligne quand je renseigne c
ERREUR projet ou biblio introuvable
Je te remercie et vous souhaite à tous un bon WK End

 

[MichelXld]

bonjour Buromania , bonjour Deudecos

peux tu faire un essai sans cette ligne

c = UserForm5.ComboBox2.Value



ci dessous , un exemple d'utilisation de la methode 'Find' , issu de l'aide Excel


Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 dans la feuille de calcul Worksheet 1 contenant la valeur 2 et comment la remplacer par la valeur 5.

With Worksheets(1).Range('a1:a500')
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With


bonne soiree
MichelXld

Message édité par: MichelXld, à: 21/05/2005 17:41

 

[deudecos]

Re bonsoir Buromania et Michel, le forum,

Michel, tu arrives a point nomme, je n'aurais pas pu aider Buromania avec le peu de connaissance que j'ai, Mais bon, J'ai quand meme tente de comprendre... :unsure:

Bonne soiree
Olivier

 

[buromania]

Bjr Michel, Deudecos et le forum
je vous remercie de vous interesser à mon ptit problème.
J'ai essayé l'aide excel et l'exemple sur find mais sans savoir pourquoi il bloque sur set c
je viens de contourner le problème en mettant un filtre

Sheets('produit').Select
Selection.AutoFilter Field:=1, Criteria1:='=UserForm5.ComboBox2.Value', Operator:=xlAnd
Range('I1:J1').Select
Selection.ClearContents
Range('h1').Value = UserForm5.TextBox14
Selection.AutoFilter Field:=1

cela fonctionne même si je dois effacer i1:j1 (cellules vides) a qui la procédure ajoute le prix unitaire et cdt

Ouah j'suis content
A tous très très bon WK End

 

[Wilsar]

Bonjour à tous,

Je travaille sur le gestion de stock par Excel, et si cela ne t'embette pas deudecos, je serais très intéressé par ton fichier afin de m'en inspiré ou de travailler avec s'il répond à mes attentes.

Pour info je débute dans Excel, et tous les exemples et infos sont bonnes à prendre pour mon apprentissage.

PS : est il possible de mettre un commentaire dans un graphique ?


Merci et à bientôt

Wilsar

 

[Claudy]

Bonjour, deudecos,
Je suis interessé par ton fichier de gestion de stock...
Pourrais tu me l'envoyer ou le faire paraitre dans le forum?

Merci,
Claudy

 

[deudecos]

Bonjour Claudy, Wilsar, le forum,

Desole pour ma reponse tardive, mais(pour une fois) je profitais d'un dimanche ensoleille

Donc, en fichier joint le petit programme de gestion de stock qui m'a ete donne par une personne du forum et que je remercie encore.
Je l'ai bien entendu legerement modifie pour pouvoir m'en servir a mon niveau, et bien entendu, j'encourage tout le monde a en faire autant et a le garder sous le coude pour comparaisons...

Donc voil, et j'espere qu'il vous profitera comme a moi

Bonne soiree
Olivier

 

[deudecos]

J'ai du faire une c...
Desole [file name=stock_20050522192743.zip size=43477]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/stock_20050522192743.zip[/file]

 

[Wilsar]

Merci deudecos,

Je vais essayer ce petit prog.

PS: Veinard, dans l'Auvergne pas de soleil mais que de la pluie :unsure:

 

[deudecos]

Bonsoir Wilsar, le forum,

Oui, mais pour beneficier de ce soleil, il m'a fallu m'exiler a quelques 2000 kms a l'est de l'auvergne...
Bonne soiree

Olivier