XL 2016 Probleme de boucle

[Don pépé]

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:

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 😉

 

[M12]

Bonsoir,
Un code c'est bien, mais un classeur c'est surement mieux 😉

 

[Don pépé]

Salut M12

Y a pas de souci je met sa 😉

 

[JBARBE]

Bonjour à tous,
Pourquoi s'embêter !
Ici un large choix de caisses enregistreuses gratuites :
http://logiciels.gratuiciel.com/caisse-enregistreuse-excel.html
bonne journée !

 

[JBARBE]

Re,

Peut-être ceci :
A tester !

 

[Don pépé]

Bonjour

JBarbe pour commencer sa fonctionne très bien merci 😉
Pour se qui est de le télécharger déjà tout fait cela ne m'intéresse pas car je préfère le faire moi même, en même temps j'apprend excel 😉