XL 2016 Probleme de boucle

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'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.​

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 ;)
 

Discussions similaires