Discussion :

[Squall13400]

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

[EricDgn]

Bonjour,

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

Code :

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

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 :

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

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.

[Squall13400]

Bonjour Eric,

Je vous remercie de votre aide.

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

[Squall13400]

(Re) bonjour Eric,

1/ C'est tout à fait ça . 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" :



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,

[EricDgn]

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

[Squall13400]

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,