Code copier-coller

Bonjour à tous,

J'ai crée un fichier "caisse". Je souhaitais réaliser une sauvegarde des factures depuis l'onglet "facture" vers l'onglet "Archive". J'ai pas mal bidouiller mais je bloque : le bouton fonctionne de temps en temps et des fois, je ne sais pas pourquoi, les factures ne se recopient pas ...

Quelqu'un pourrait-il jeter un œil aux formules/macro et m'aider svp ?

D'avance merci beaucoup

Bonjour,

C'est un peu compliqué votre manière d'archiver car j'imagine avoir 300 factures annuelles avec chacune 25 lignes.

Quoi qu'il en soit essayez votre macro archive comme ceci

Sub Rectangle5_Cliquer()
Dim der_lig As Long, Lig As Long, i As Long
Dim Trouve

Application.ScreenUpdating = False

With Sheets("Archive")
    der_lig = .Range("D" & Rows.Count).End(xlUp).Row
    Trouve = "non"

For i = 1 To der_lig
    If .Range("D" & i) = Range("D74") Then
        Trouve = "oui"
        Exit For
    End If
Next i
End With

If Trouve = "non" Then
    Sheets("Facture").Range("A3:D74").Copy

    With Sheets("Archive")
        With .Range("A" & der_lig + 1)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With

        Lig = der_lig + 15
        While .Range("A" & Lig) <> "TOTAL"
            If .Range("B" & Lig) = "0" Then
                .Range("B" & Lig).EntireRow.Hidden = True
            End If
            Lig = Lig + 1
        Wend
    End With
End If
Application.ScreenUpdating = True
End Sub

Crdlt

Bonjour Dan,

Oui en effet, ca risque de faire beaucoup, je vais peut être imaginer un fichier spécial pour archiver par mois ou par semaine ... (Si meilleure idée, je suis preneur ;p)

En tout cas, j'ai testé la macro et tout semble fonctionner parfaitement, vous êtes un génie ;)

Merci pour le temps passé et la réponse apportée

Cordialement

Ok. Parfait

Oui en effet, ca risque de faire beaucoup, je vais peut être imaginer un fichier spécial pour archiver par mois ou par semaine ... (Si meilleure idée, je suis preneur ;p)

Essayez de penser à sauvegarder en base de données plutôt. 1 ligne par article vendu.

Bonjour,

Je récidive avec un problème de copier-coller...

Quelqu'un pourrait il m'aider à retoucher le code svp (code du bouton de sauvegarde des factures) ?

D'avance merci