XL 2013 archivage ligne facture

laurentsicli

XLDnaute Nouveau
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 factue 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

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
 

laurentsicli

XLDnaute Nouveau
le classeur est tres lourd nom client adresse ect
je veux simplement recuperais chaque ligne de mes factures dans une feuil archive
la macro fonctionne mais me sauvegarde aussi les lignes vides ce que j'aimerais supprimer
apres j'essai de faire seul les macro donc c'est peut etre pas la bonne soutions mais ca marche
donc je repete 9 lignes de sauvegarde c'est pur cela que solicite de l'aide

merci
 

M12

XLDnaute Accro
Re,
Puisque tu veux résoudre ton problème,
il te faut déclarer la dernière ligne de la facture remplie dans une variable
faire une boucle allant de la première ligne à copier jusqu'à la dernière ligne (ta variable)
et n'utiliser qu'un seul bloc de ta macro
 

Discussions similaires