Archiver données sur une autre feuille

[IPOUEST]

Bonjour tout le monde,

Je reviens vers vous pour un nouveau problème.

Je dois dans mon fichier proposer un "archivage" des données saisies sur une feuille vers une autre feuille. Ça c'est bon j'ai réussi (feuille "ARRET CAISSE" vers "ARCHIVE").

Maintenant mon problème est pour la page "CHEQUES". Je voudrais pouvoir ajouter à ma macro "enregistrement" :

- Archiver dans la page "REMISE CHEQUES" les lignes où il y a eu de la saisie dans "CHEQUES" et que cela remplisse le tableau.
- Récupérer la date de "CHEQUES" (cellule C4) et la placer dans la colonne B de "REMISE DE CHEQUES"

J’espère être bien net par rapport à ma demande. Ou est-ce qu'il y a une autre solution plus simple ?

Merci d'avance

 

[IPOUEST]

Re : Archiver données sur une autre feuille

Help please 🙄

 

[Thekak]

Re : Archiver données sur une autre feuille

Je ne sais pas si j'ai bien compris, mais je te propose ça :

Sub enregistrement2()
Dim i, j As Integer
i = 0
j = 0
For i = 1 To 40
    If Worksheets("CHEQUES").Cells(9 + i, 4).Value <> 0 Then
        Worksheets("REMISE CHEQUES").Cells(3 + i, 2).Value = Worksheets("CHEQUES").Cells(4, 3).Value
    End If
    Worksheets("REMISE CHEQUES").Cells(3 + i, 3).Value = Worksheets("CHEQUES").Cells(9 + i, 4).Value
    Worksheets("REMISE CHEQUES").Cells(3 + i, 4).Value = Worksheets("CHEQUES").Cells(9 + i, 5).Value
    Worksheets("REMISE CHEQUES").Cells(3 + i, 5).Value = Worksheets("CHEQUES").Cells(9 + i, 6).Value
Next
End Sub

 

[IPOUEST]

Re : Archiver données sur une autre feuille

Ça me semble super Thekak, j’intègre cela demain à mon fichier et je te valide 😉

Merci encore,
Bonne soirée