gestion stock

[arthur1952]

bonsoir
j'ai cre un dossier pour gerer un stock de pieces detaches
j'ai un autre dossier avec des feuilles d'intervention et les pieces de rechange utilisees
je voudrait lorsque je rentre mes reference et quantites de pieces sur mes feuilles d'intervention que cela me mette automatiquement a jour mon stock si quelqu'un a une solution
merci par avance
art

 

[ChTi160]

Salut Arthur1952
Bonjour le Forum
je te conseille, si celà n'a pas déjà été fait de consulter la rubrique recherche du Forum La Haut à Droit 'Rechercher'
tu tappes 'Stock ' par exemple et tu auras accès a des fils qui ont trait à ce sujet
ensuite tu vois et tu reviens pour adaptation de ta Procèdure
Bonne Journée à toutes et à tous
Amicalement
Jean Marie

 

[arthur1952]

je te remercie, mais j'ai deja effectue la recherche et j'ai trouve un fichier qui s'appelle entreesortie qui correspond a ce que je veux faire mais malheureusement ça ne fonctionne pas si quelqu'un a une autre solution a me proposer
merci
arthur

 

[ChTi160]

Re arthur
si celà correspond mais ne fonctionne pas y a t'il pas moyen de l'adapter???
pense a mettre un fichier Zip avec un exemple
Jean Marie

 

[Hervé]

Bonjour arthur
salut chti

juste pour avoir une base de travail, je pense qu'arthur fait référence à ce post :

Lien supprimé

Salut

 

[arthur1952]

j'envoie une version allege de mes classeurs autrement ça ne passe pas le premier c'est la feuille ou je rentre mes operation de maintenance reference et quantite le fichier fair 48ko
et apres j'envoie le deuxieme [file name=e32.zip size=48548]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/e32.zip[/file]

 

[arthur1952]

et voila le deuxieme fichier qui est ma base de donnee du stock allegee aussi et comme le precise HERVE je me suis servi du fichier entree sortie mais je ne suis pas tres bon en vba et je n'arrive pas a adapter correctement merci si quelqu'un peut me depanner
arthur [file name=stock.zip size=12924]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/stock.zip[/file]

 

[Hervé]

re

Voici le code de la macro a placer dans le module 10 par exemple de ton fichier E32.xls.

Attention les deux fichiers doivent être ouverts pour que le code fonctionne.

Public Sub sortie()
Dim c As Range

For Each c In Range('c54:c60')
If c <> 'STOP PAS DE PIECE EN STOCK-' And c <> '' Then
With Workbooks('stock.xls').Sheets('stock')
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = c.Offset(0, 3)
End With
End If
Next c
End Sub

salut

 

[arthur1952]

re bonsoir
j'ai bien eu ta réponse et je te remercie beaucoup mais malheureusement ça ne fonctionne pas , la macro ne fonctionne pas quand j'arrive a la ligne:
with workbooks
j'ai erreur de compilation sub ou fonction non definie
et tout s'arrete et mon stock ne se mets pas a jour
si tu as une solution elle est la bienvenue
merci
arthur

 

[ChTi160]

Salut arthur1952 et Hervé
voilà ce que j'ai mis et celà fonctionne
Public Sub sortie()
Dim c As Range

For Each c In Sheets('Feuil1').Range('C54:C60')'nom de la feuille dans E32
If c <> 'STOP PAS DE PIECE EN STOCK-' And c <> '' Then
With Workbooks('stock.xls').Sheets('stock')
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = c.Offset(0, 3)
End With
End If
Next c
End Sub
Amicalement
Jean Marie

Message édité par: ChTi160, à: 25/04/2005 18:46
NewEdition
Herve
peux tu m'expliquer cette phrase
.Range(.Columns('B:B').Find(c).Address(0, 0)).Offset(0, 3) = c.Offset(0, 3)
merci d'avance
.range(.columns('B:B') je comprends plage de recherche
.find(c) valeur cherchée
.Address (0,0) ???????
.Offset(0,3) c'est bon
Merci d'avance
Jean Marie

Message édité par: ChTi160, à: 25/04/2005 18:56

 

[Hervé]

re

Arthur, la macro fonctionne, par contre n'aurait tu pas modifié le nom de ton classeur stock ou le nom de la feuille ?

En tout cas j'ai fait le test d'après les fichiers que tu avais mis en pièce jointe.

Chti, le adresse(0,0) permet de récupérer une adresse de cellule sous la forme A1 au lieu de A$1$, c'est tout.

on pourrait mettre : .....Address(RowAbsolute:=False, ColumnAbsolute:=False) mais comme false=0 on simplifie ainsi la synthaxe.

En espérant t'avoir aidé, chti, autant que tu m'aides.

Salut

 

[olive2.5]

salut Arthur,

Si tu me procure ton mail, je t'envoie le logiciel GMAO que j'ai fait et la fonction que tu cherche est dans l'icone 'Interventions'.
Par contre, il faudra que tu changes les chemins d'accès dans les macros.
Je ne peux pas le faire depuis le forum puisqu'il fait 950K en zip.

 

[ChTi160]

re
Hervé merci pour le complément d'info Lol
pour ce qui est de ta macro
j'avais le même problème il m'a suffit d'indiquer le nom de la feuille source pour que celà fonctionne
Merci encore
Amicalement
Jean Marie

 

[Hervé]

re chti

Normalement on n'a pas besoin d'indiquer le nom de la feuille (meme si c'est mieux) puisque VBA travaille toujours sur la feuille active.

Salut

 

[arthur1952]

mon adresse :arthur1592@tiscali.fr
merci
mais meme apres avoir effectue les modif toujours la meme erreur meme avec les fichiers alleges que j'ai envoye, je desespere mais j'y crois .
bonne nuit en esperant que demain nous apportera la solution
arthur