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
177
Cléa
Cléa
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
547
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
793
spike29
S
D
  • Question Question
XL 2019 VBA Définir une zone d'impression
Réponses
5
Affichages
346
dadaze
D
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
889
CortoXls
C
E
  • Résolu(e)
XL 2019 combobox intuitive
Réponses
14
Affichages
391
escudo
E
R
  • Question Question
XL 2021 Optimisation Code VBA
Réponses
10
Affichages
845
Dranreb
Dranreb
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
612
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
347
sebastien176
S
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
628
Oneida
Oneida
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
471
kiki29
kiki29
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
286
lestoiles1
lestoiles1
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
648
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
712
Chaton77
Chaton77
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
431
un internaute
U
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
410
Abi23
A
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
440
gillesda
G
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
533
KRUG WOO
K
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
200
job75
job75
Retour