mise à jour inventaire

[Audrey]

Bonjour à toutes et à tous
En faisant des recherches dans l'historique je suis tombée sur un code que j'ai modifié selon mais besoin mais qui malheureusement ne fonctionne pas après modification.
Pour vous situez dans mon application:
Une fiche article est ouvert, après avoir modifier cet article (entrée ou sortie), je voudrais que lorsque je click sur 'mise à jour inventaire', celui s'ajoute ou se modifie au tableau situé dans la feuille inventaire.
De plus ActiveCell.value = Sheets.name ne fonctionne pas.
Pouvez-vous m'aider à améliorer ce code?

Sub mise_à_jour_inventaire_click()
'sélectionne l'inventaire
Sheets('Inventaire').Select
'si la 1ère ligne est vide commencé à cette ligne
If Range('b3').Value = '' Then
décalage = 0
Range('b3').Select
'sinon se position sur la 1ère cellule vide
Else
décalage = 1
Position = Range('b65000').End(xlUp).Address
Range(Position).Select
Range('b65000').End(xlUp).Select
End If
'ajout de la ligne
ActiveCell.Offset(décalage,0).Range('b2').Select
ActiveCell.Value = Sheets.Name
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('f16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('e16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('d16')
ActiveCell.Offset(0, 1).Range('2').Select
ActiveCell.Value = Range('g11')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g12')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g13')
End Sub

Merci d'avance!!!

 

[Audrey]

Je viens de modifier le code de cette façon mais il me mats le nom de la feuille en C4 au lieu de le mettre en B3!!

Sub mise_à_jour_inventaire_click()
'sélectionne le tableau inventaire
Sheets('Inventaire').Select
'si la 1ère ligne est vide commencé à cette ligne
If Range('b3').Value = '' Then
décalage = 0
Range('b3').Select
'sinon se position sur la 1ère cellule vide
Else
décalage = 1
Position = Range('b65000').End(xlUp).Address
Range(Position).Select
Range('b65000').End(xlUp).Select
End If
'ajout de la ligne
ActiveCell.Offset(décalage, 0).Range('b2').Select
ActiveCell.Value = ActiveSheet.Name
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('f16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('e16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('d16')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g11')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g12')
ActiveCell.Offset(0, 1).Range('b2').Select
ActiveCell.Value = Range('g13')
End Sub

 

[Hervé]

re audrey

suite à ton message sur offset.

pourrais-tu nous fournir un exemple simplifié de ce que tu as actuellement et de ce que tu désires.

Car là je t'avouerai que ton code n'est pas simple à comprendre.

je sais pas sur quelle post tu as trouvé cette histoire de activecell.offset.range.select, mais c'est surement pas la bonne méthode.

en attendant de voir ton fichier...

salut

 

[Hervé]

re

a titre d'exemple, ce type de code copie les cellules f16 et g16 de la feuille active sur la feuille inventaire (en b2,c2).

With Sheets('inventaire')
        .Range('b2') = Range('f16')
        .Range('c2') = Range('g16')
        'etc....
End With

salut

 

[Audrey]

je t'ai mis un exemple en fichier joint. J'espère ne rien avoir oublié. [file name=inventaire_20060116135113.zip size=13046]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inventaire_20060116135113.zip[/file]

 

[GClaire]

Audrey,

Si cela t'interresse, j'ai eu en récupérant et en modifiant un classeur fait une gestion de stock.

Tiens moi au jus, G'Claire

 

[Hervé]

bonsoir audrey, gclaire

audrey, a quoi sert l'userform ?

faut'il récapituler les données de toutes les feuilles dans la feuille inventaire ?

merci de me donner un peu plus d'explication, je dois pas etre malin car je ne comprend vraiment pas le but de ta macro.

salut

 

[Audrey]

Bonjour GClaire, Hervé,

En affet GClaire ce que tu as à me proposer pourrait m'intéresser, j'ai bientôt terminé ce qui m'était demandé mais on sait jamais il pourrait y avoir plein d'idée qui me seront utiles!!

Hervé, comme je te l'ai dis, c'est un code que j'ai récupéré quelquepart sur le forum j'ai essayé d'éviter l'userform mais sans lui ça ne fonctionnait pas alors je l'ai laissé. Je sais que ça complique les choses mais bon en même tant je me dis que ça permet de vérifier les données.
Ceci dit, en tant que néophyte dans le domaine je suis ouverte à toute proposition!!

Merci à vous pour votre aide et votre patiente.