Don pépé
XLDnaute Occasionnel
Bien le bonjour
J'explique mon petit probleme, je suis entrain de faire une caisse enregistreuse avec une petite gestion de stock.
J'arrive a prendre la premiere ligne et la mettre dans la feuille log, mais pas a prendre le reste des autres ligne si elle ne sont pas vide et je voudrais juste prendre la de C4 a C14 et de D4 a D14 de la feuille accueil.
Mon code:
Merci bien a vous
J'explique mon petit probleme, je suis entrain de faire une caisse enregistreuse avec une petite gestion de stock.
J'ai un tableau: Produit - Quantité - Prix U - Prix total - Stock initial - Stock final .
Sur la feuille accueil c'est la caisse enregistreuse sur 14 ligne le tableau commence en C4.
J'ai un autre tableau qui me sert de log ou je voudrais mettre: Date et heure - Produit - Quantité.
Sur la feuille log.
Sur la feuille accueil c'est la caisse enregistreuse sur 14 ligne le tableau commence en C4.
J'ai un autre tableau qui me sert de log ou je voudrais mettre: Date et heure - Produit - Quantité.
Sur la feuille log.
J'arrive a prendre la premiere ligne et la mettre dans la feuille log, mais pas a prendre le reste des autres ligne si elle ne sont pas vide et je voudrais juste prendre la de C4 a C14 et de D4 a D14 de la feuille accueil.
Mon code:
VB:
Dim x As Integer
For x = 4 To 14
no_ligne = Sheets("Journal").Range("A365536").End(xlUp).Row + 1
Sheets("Log").Cells(no_ligne, 1) = Format(Date, "yyyy/mm/dd") & " " & Format(Time, "hh:mm:ss")
Sheets("Log").Cells(no_ligne, 2) = Range("C" & x).Value
Sheets("Log").Cells(no_ligne, 3) = Range("D" & x).Value
Next x
Merci bien a vous