Faire une feuil recap des lignes factures

Question

Bonsoir j'ai creé une facture avec un archivage de chaque ligne. le probleme c'est qu'il me sauvegarde aussi les lignes non remplies . j'ai 8 lignes dans ma facture donc si je mets que 3 articles la macro m'archive 8 lignes . comment faire pour que les lignes vides de la facture ne s'archivent pas voici ma macro qui fonctionne bien. je debute j'ai cherché apparement ma macro est longue lol Sub Archiver() Ligne = Sheets("RECAP FACTURE").Range("A1000").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("b" & Ligne).Value = Sheets("FACTURE").Range("e11").Value Sheets("RECAP FACTURE").Range("c" & Ligne).Value = Sheets("FACTURE").Range("f11").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d25").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B25").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d25").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d26").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B26").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d26").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d26").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B26").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d26").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d27").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B27").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d27").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d28").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B28").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d28").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d29").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B29").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d29").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d30").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B30").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d30").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d31").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d31").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d31").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d32").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B32").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d32").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d33").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B33").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d33").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("RECAP FACTURE").Range("f" & Ligne).Value = Sheets("FACTURE").Range("d15").Value Sheets("RECAP FACTURE").Range("e" & Ligne).Value = Sheets("FACTURE").Range("c15").Value Sheets("RECAP FACTURE").Range("d" & Ligne).Value = Sheets("FACTURE").Range("d18").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("d33").Value Sheets("RECAP FACTURE").Range("g" & Ligne).Value = Sheets("FACTURE").Range("B33").Value Sheets("RECAP FACTURE").Range("h" & Ligne).Value = Sheets("FACTURE").Range("d33").Value Sheets("RECAP FACTURE").Range("A" & Ligne).Value = Sheets("FACTURE").Range("C16").Value Sheets("RECAP FACTURE").Range("i" & Ligne).Value = Sheets("FACTURE").Range("f36").Value Sheets("RECAP FACTURE").Range("j" & Ligne).Value = Sheets("FACTURE").Range("f37").Value Sheets("RECAP FACTURE").Range("k" & Ligne).Value = Sheets("FACTURE").Range("f38").Value Ligne = Sheets("RECAP FACTURE").Range("A300").End(xlUp).Row + 1 Sheets("FACTURE").Range("B24:B38").ClearContents Sheets("FACTURE").Range("D24:D38").ClearContents Sheets("FACTURE").Range("F11").Value = Sheets("FACTURE").Range("F11").Value + 1 End Sub meri pour votre aide...

Dan · Answer

Cordialement...