Gestion de stock avec Excel
Jean-Mi087
Messages postés
7
Statut
Membre
-
Jean-Mi087 Messages postés 7 Statut Membre -
Jean-Mi087 Messages postés 7 Statut Membre -
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
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
A voir également:
- Gestion de stock avec Excel
- Liste déroulante excel - Guide
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
- Logiciel gestion de stock et facturation - Télécharger - Comptabilité & Facturation
- Word et excel gratuit - Guide
- Si ou excel - Guide
1 réponse
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 ;-)
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 ;-)