PROBLEME AVEC MACRO ARCHIVER

Bonjour à tous, bonjour le forum,

1/ Dans mon fichier, j'ai créé une feuille me servant de facture ainsi qu'une autre feuille me servant elle à archiver mes factures.

Quand je clique sur le bouton "Archiver", l'archivage se passe correctement, mais dès que je souhaite archiver une nouvelle facture, celle-ci remplace la précédente au lieu d'aller à la ligne en dessous.

Je vous mets ci-dessous le code :

Sub Archiver_et_Réinitialiser()
'
' Archiver_et_Réinitialiser Macro
'
ligne = Sheets("Archivage Facture").Range("A3").End(xlUp).Row + 1
Sheets("Archivage Facture").Range("A" & ligne).Value = Sheets("Facture").Range("F6").Value
Sheets("Archivage Facture").Range("B" & ligne).Value = Sheets("Facture").Range("F7").Value
Sheets("Archivage Facture").Range("C" & ligne).Value = Sheets("Facture").Range("A25").Value
Sheets("Archivage Facture").Range("D" & ligne).Value = Sheets("Facture").Range("B25").Value
Sheets("Archivage Facture").Range("E" & ligne).Value = Sheets("Facture").Range("F25").Value

MsgBox ("La facture a bien été archivée ! En route pour la suivante")

Range("A2:B2").ClearContents
Range("F7").ClearContents
Range("F17").ClearContents
Range("A25:C25").ClearContents
Range("A2:F25").Font.Size = 9
Range("A2:F25").HorizontalAlignment = xlCenter
Range("A2:F25").VerticalAlignment = xlCenter
Range("A25:C25").NumberFormat = "#,##0.00 €"
Range("F25").NumberFormat = "#,##0.00 €"
'
End Sub

2/ Je souhaiterais aussi que le numéro de facture soit mis à jour automatiquement après avoir cliqué sur le bouton "Archiver". Le numéro de facture est sous la forme "2022.Fv-001".

Après avoir fait des recherches sur différents sites et forums, j'avoue que je ne sais pas comment gérer ce problème.

Par avance, je vous remercie de votre aide précieuse :D

Bonjour,

Pour ce qui de la ligne de copie, l'erreur vient du "A3" utilisé. La bonne instruction:

Code:

---

ligne = Sheets("Archivage Facture").Range("A" & Rows.Count).End(xlUp).Row + 1

---

Pour ce qui est d'avoir le prochain numéro de facture, vous pourriez utiliser cette fonction (où sNF = numéro de la dernière facture):

Code:

---

1 2 3 4 5 6 7 8 9

Function NouvNumFact(sNF As String) As String Dim k As Integer If Year(Date) = Val(Left(sNF, 4)) Then k = Val(Right(sNF, 3)) + 1 NumFact = Left(sNF, 8) & Format(k, "000") Else NumFact = Year(Date) & ".Fv-001" End If End Function

---

Cordialement.

Bonjour Eric,

Je vous remercie de votre aide.

Je teste et vous fait un retour. Excellente journée.

(Re) bonjour Eric,

1/ C'est tout à fait ça :D. En revanche, je m'excuse car je me suis rendu compte que je n'avais pas précisé un point.
Ma feuille "ARCHIVAGE FACTURE" est mise sous forme de tableau avec entête sur les lignes 1 & 2 et quand je clique sur le bouton "ARCHIVER", j'ai bien le msgbox mais l'archivage ne marche pas.

Ci-dessous, capture d'écran de ma page "ARCHIVAGE FACTURE" :

Pièce jointe 629861

J'ai essayé en enlevant la mise sous forme de tableau et là, l'archivage marche correctement. Savez-vous d'où peut venir le problème ?

2/ Question peut être bête, mais pouvez-vous svp me dire à quel endroit de ma macro, dois-je insérer la fonction pour le numéro de facture ?

Je vous en remercie.
Cordialement,

Bonjour,
Pour cela, voir le petit exemple ci attaché.
Cordialement.

Bonjour Eric,

Merci de votre retour et de votre fichier explicatif.

Grâce à votre aide, mes problèmes ont été résolus. Je vous en remercie.

Cordialement,