Gestion de stock avec Excel

Jean-Mi087 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
Jean-Mi087 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Quelqu'un peut il m'aider ? Je usi confronter un à petit souci dans le début de création d'un programme de gestion de stock sous Excel.
Mon but est d'entrer la production journalière (date, caractéristique du produit en production, quantité,...) et en cliquant sur un bouton "Enregistrer", transférer ces données vers la première ligne vide de la feuille 1 (journal de production).

Le problème est que les donnée se copie sur la même feuille.

Quelqu'un à une solution ? merci

1 réponse

  1.
    Jean-Mi087 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
     
    Voici ce que je mets :

    Sub jj()
    With Sheets("Production du jour")
    'Calcul la dernière ligne vide de la feuille resultat et ajoute 1
    derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
    'Copie la ligne 2 de la feuille formulaire
    Sheets("Livre de production").Rows(2).Copy
    'Colle dans la première ligne vide de la feuille resultat uniquement les valeurs
    .Rows(derlg).PasteSpecial Paste:=xlPasteValues
    'Supprime les pointillé de la selection
    Application.CutCopyMode = False
    .Select
    .Range("a" & derlg).Select
    End With
    End Sub

    Donc les données sont à entrer sur la feuille "Production du jour" et à transférer sur la première ligne vide de la feuille "Livre de production"

    Où est l'erreur ? Merci de m'aider svp ;-)
    0