Bonjour à tous,
je me suis crée un fichier de facture avec une base clients.
j'ai cree mon onglet facture et dans cette facture j'ai cree un bouton avec une macro pour sauvegarder chaque facture dans un onglet archives.
mon souci est que au lieu d'enregistrer les infos de la facture à la premiere ligne libre (la ligne 3), il enregistre à la ligne 26 et puis les autres à la suite.
donc les 23 premieres lignes sont vides.

merci de votre aide.

ci dessous mes lignes de code :

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'Archiver effacer et nouvelle facture
 
ligne = Range("A3").End(xlDown).Row + 1
 
Sheets("Archives").Range("A" & ligne).Value = Sheets("FACTURES").Range("G6").Value
Sheets("Archives").Range("B" & ligne).Value = Sheets("FACTURES").Range("G7").Value
Sheets("Archives").Range("C" & ligne).Value = Sheets("FACTURES").Range("F10").Value
Sheets("Archives").Range("D" & ligne).Value = Sheets("FACTURES").Range("F12").Value
Sheets("Archives").Range("E" & ligne).Value = Sheets("FACTURES").Range("F13").Value
Sheets("Archives").Range("F" & ligne).Value = Sheets("FACTURES").Range("F14").Value
Sheets("Archives").Range("G" & ligne).Value = Sheets("FACTURES").Range("G14").Value
Sheets("Archives").Range("H" & ligne).Value = Sheets("FACTURES").Range("F15").Value
Sheets("Archives").Range("I" & ligne).Value = Sheets("FACTURES").Range("F16").Value
Sheets("Archives").Range("J" & ligne).Value = Sheets("FACTURES").Range("H61").Value
Sheets("Archives").Range("K" & ligne).Value = Sheets("FACTURES").Range("d59").Value
Sheets("Archives").Range("L" & ligne).Value = Sheets("FACTURES").Range("d60").Value
Sheets("Archives").Range("M" & ligne).Value = Sheets("FACTURES").Range("d61").Value
 
Sheets("FACTURES").Range("f10").ClearContents
Sheets("FACTURES").Range("d22").ClearContents
Sheets("FACTURES").Range("c26:g57").ClearContents
Sheets("FACTURES").Range("d59:d61").ClearContents
Sheets("FACTURES").Range("g6").Value = Sheets("FACTURES").Range("g6").Value + 1
 
End Sub
Facturier.pdf