Facture archive

Bonjour à la communauté,

J'ai pu parcourir les différents post qui traite ce sujet mais comme toujours, il y a autant de variables que d'utilisateur.
Je vous expose le fichier souhaité.

Je suis architecte et je travaille sur un classeur excel (qu'un ami m'a envoyé ) comprenant les feuilles suivantes :
- Facture
- Info
- Archive factures

Je veux en appuyant sur le bouton enregistrer remettre à zéro la page de la facture et mettre à jour le numéro de facture.
Une autre suggestion , sur la feuille archive factures , je veux quand je clique sur une facture elle s'affiche à nouveau.

Merci à vous

Bonjour

Si la dernière ligne maximum de votre facture est toujours la ligne 30, supprimez votre macro Enregistrer et mettez ces deux codes à la place.

Sub Enregistrer()
With Sheets("archive_factures")
    .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    .Range("B2").NumberFormat = "m/d/yyyy"
    With .Range("G2,I2:K2")
        .Style = "Comma"
        .NumberFormat = "_-* #,##0.000 _€_-;-* #,##0.000 _€_-;_-* ""-""?? _€_-;_-@_-"
    End With
    .Range("A2") = Sheets("facture").Range("D9").Value
    .Range("B2") = Sheets("facture").Range("A14").Value
    .Range("C2") = Sheets("facture").Range("D15").Value
    .Range("D2") = Sheets("facture").Range("D16").Value
    .Range("E2") = Sheets("facture").Range("D17").Value
    .Range("F2") = Sheets("facture").Range("D18").Value
    .Range("G2") = Sheets("facture").Range("D33").Value
    .Range("H2") = Sheets("facture").Range("D34").Value
    .Range("H2").NumberFormat = "0%"
    .Range("I2") = Sheets("facture").Range("D35").Value
    .Range("J2") = Sheets("facture").Range("D36").Value
    .Range("K2") = Sheets("facture").Range("D37").Value
End With

Call Effacer
End Sub

Sub Effacer()
With Sheets("facture")
    .Range("D9") = WorksheetFunction.Max(Sheets("archive_factures").Range("A:A")) + 1
    .Range("D15").ClearContents
    .Range("A21:D30").ClearContents
End With
End Sub

- Supprimez votre macro Effacer dans le module 1

Cordialement

Edit :

Une autre suggestion , sur la feuille archive factures , je veux quand je clique sur une facture elle s'affiche à nouveau.

C'est possible mais vu le tableau de votre feuille Archives, vous n'aurez pas les lignes contenant les articles

Dans la première ligne de code changez ceci --> CopyOrigin:=xlFormatFromRightOrBelow

merci pour votre réponse , c'est réglé.

Et concernant ma deuxième suggestion ? le faite d'afficher à nouveau les ancienne factures déjà enregistré dans les archives .

merci à vous

Oui c'est possible mais vu votre fichier vous n'aurez que le client et les totaux. C'est bon cela ?

Le but c'est juste d'archiver des factures complètes que je peux consulter à tout moment.

Le but c'est juste d'archiver des factures complètes

Cela ne répond pas à ma question posée dans mon post précédent.

Bonjour à vous tous et bon dimanche,

j'ai déjà vu cela,

https://www.excel-downloads.com/threads/archivage-facture.20061162/

bonne continuation ferdinand

Bonjour

@Ferdinand : merci de l'info !

@gazzeh : Il est de bonne habitude de tout de même informer que l'on a fait la même demande sur un autre forum, ne fusse que par correction vis à vis des membres qui passent du temps à chercher une solution qui est peut être déjà trouvée ailleurs et dont ils n'ont pas connaissance.
Merci de votre compréhension.

Cordialement

Vous avez raison et je suis sincèrement désolé.

J'ai fais ça avec de bonne intention , je voulais avoir plusieurs avis.

Désolé encore.

Ok.

Si vous avez trouvé votre solution sur l'autre forum, merci de cloturer ce fil

Cordialement