Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Archiver données sur une autre feuille

  • Initiateur de la discussion Initiateur de la discussion IPOUEST
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

I

IPOUEST

Guest
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
 
Dernière modification par un modérateur:
Re : Archiver données sur une autre feuille

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

Code:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…