Gestion de stock avec Excel
Jean-Mi087
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Jean-Mi087 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Jean-Mi087 Messages postés 5 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
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
- Word et excel gratuit - Guide
- Logiciel gestion de stock et facturation - Télécharger - Comptabilité & Facturation
- Déplacer colonne 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 ;-)