Archivage de lignes
Bonjour,
Je vous expose mon problème (voir un fichier exemple en PJ avec mon code qui ne fonctionne pas) :
J'ai un fichier Excel avec 2 feuilles : une feuille "Planning" et une feuille "Archive".
"Planning" contient le tableau "Tableau"
"Archive" contient le tableau "Tableau_Archive".
Je souhaite faire un code qui effectue les opérations suivants :
- Vérifie la date dans la colonne "Dates" de "Tableau". Si cette date est inférieure à aujourd'hui alors :
- Copier la ligne de données correspondante dans "Tableau_Archivage".
- Passer à la date suivante dans "Tableau"...
L'incrément des copies doit se faire par la ligne du dessus dans "Tableau_Archivage".
Exemple :
Tableau Tableau_Archive
08/06/2023 09/06/2023
09/06/2023 08/06/2023
Ma macro ne copie que la première ligne et supprime les autres. Des idées ?
Merci !
Bonjour à tous,
Un essai....tu n'avais pas précisé sur quelle ligne il fallait écrire les données...
Cordialement,
Merci pour cette première réponse !
La copie des lignes n'est pas faite dans le bon sens quand il y a plusieurs lignes à archiver.
La date en haut du tableau est le 08/06/2023 alors que pour l'exemple donné, ça devrait être le 10/06/2023 (puis le 09/06/2023...)
Ca reviendrai à réorganiser les lignes pour que la date la plus proche du jour actuel soit en haut.
Des idées pour cela ?
Re,
Essaies en remplaçant cette ligne
Set ligne = tblArchive.ListRows.Add(1): lig = ligne.Indexpar celle-ci
Set ligne = tblArchive.ListRows.Add: lig = ligne.IndexCordialement,