XL 2013 archivage ligne facture

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

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😀38").ClearContents


Sheets("FACTURE").Range("F11").Value = Sheets("FACTURE").Range("F11").Value + 1

End Sub


meri pour votre aide
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

David Aubert
Optimisation de code VBA
Réponses
5
Affichages
147
Cléa
Cléa
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
315
Piment
P
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
479
CortoXls
C
E
  • Résolu(e)
XL 2019 combobox intuitive
Réponses
14
Affichages
363
escudo
E
R
  • Question Question
XL 2021 Optimisation Code VBA
Réponses
10
Affichages
825
Dranreb
Dranreb
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
254
sebastien176
S
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
461
Oneida
Oneida
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
177
kiki29
kiki29
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
153
lestoiles1
lestoiles1
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
505
MBEPID
M
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
Chaton77
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
216
Abi23
A
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
409
gillesda
G
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
149
job75
job75
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
233
jp26200
J
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
446
AtTheOne
AtTheOne
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
488
patricktoulon
patricktoulon
Retour