Discussion :

[Colphi]

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

[MarcelG]

Bonjour Colphi,

Bienvenue sur le Forum.

Tout d'abord, il serait utile de baliser tout code reporté par les bornes #.
Celui-ci n'en sera que plus lisible.

Ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne = Range("A3").End(xlDown).Row + 1

est imprécis, voire dangereux.
L'objet Range n'étant pas rattaché à la feuille parent, celui-ci est considéré par VBA comme appartenant à la feuille active.
Ce qui n'est sans doute pas le cas.

Dans ce genre de processus, par prudence, mieux vaut se diriger du bas de la feuille vers le haut (End(xlUp))

Lorsqu'un objet (ici Worksheets) est affecté de plusieurs méthodes ou propriétés, le bloc With permet une meilleure lisibilité du code et, partant, une gestion améliorée.

Pour ma part, dans mes développements, ce type de report (ici facture) est en liaison avec une plage comprenant une ligne de données.
Il est ensuite aisé de reporter cette plage dans une table de synthèse (Reporting des factures).
Ceci selon un schéma que je trouve logique
Formulaire (éventuel) ->ligne de données -> état facture
Ainsi, chaque cellule de la feuille facture est formulée
Illustration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("lafacture").Range("lemontant").Value = Range("T_Données[montant]").Value

La ligne de données venant ensuite compléter une feuille de synthèse.

Cela étant.
...
Cela étant

Si, comme je le présume , tu es débutant(e), alors je ne peux que te conseiller d'envisager la gestion de tables de données (ou tableaux structurés) pour la gestion de ces données dans une table de synthèse.
Cette dernière comprenant un tableau structuré (voir ci-dessous) auquel une ligne sera ajoutée
Avec un minimum d'investissement (au sens propre du terme), tu gagneras rapidement en rigueur donc en efficacité.
Fi donc des End(xl...
2 tutoriels pour cela
Les tableaux structurés
Les tableaux structurés par VBA

En espérant t'avoir aidé.

Bonne continuation.

Marcel

[Colphi]

merci de votre retour

[MarcelG]

Oui, et....?

[Colphi]

oui et?.......

et bien effectivement en tant que débutant du VBA vos conseils ont été précieux.
j'essaie de mettre en application tout ce qui a été dit et qui m'a été conseillé.

Pour l'instant j'avance a petits pas.

[MarcelG]

Bonsoir Colphi, Bonsoir le Forum,

Nous sommes, pour beaucoup, passés par ce stade.

Tu trouveras dans ce billet quelques liens documentaires qui, peut-être, te seront utiles.

Bonne suite et à bientôt.