Gestion de stock avec Excel
Fermé
Jean-Mi087
Messages postés
5
Date d'inscription
lundi 29 août 2011
Statut
Membre
Dernière intervention
2 septembre 2011
-
29 août 2011 à 20:13
Jean-Mi087 Messages postés 5 Date d'inscription lundi 29 août 2011 Statut Membre Dernière intervention 2 septembre 2011 - 30 août 2011 à 17:33
Jean-Mi087 Messages postés 5 Date d'inscription lundi 29 août 2011 Statut Membre Dernière intervention 2 septembre 2011 - 30 août 2011 à 17:33
A voir également:
- Gestion de stock avec Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Logiciel gestion cave à vin gratuit excel - Télécharger - Cuisine & Gastronomie
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
1 réponse
Jean-Mi087
Messages postés
5
Date d'inscription
lundi 29 août 2011
Statut
Membre
Dernière intervention
2 septembre 2011
30 août 2011 à 17:33
30 août 2011 à 17:33
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 ;-)