Macro Crée/sup en fonction de la date

[skun]

Bonjour,

J'utilise un outil qui aprés la saisie enregistre dans une base de donnée les informations en fonction de la date.
Chaque ligne de la base de donnée équivaut à un jour (ouvrable ou non ouvrable)
Le problème est que ma base de donnée est trop lourde (car je l'ai basé sur 10 ans)

J'aimerai créer une macro autonome qui définirait un nombre de ligne à la base de donnée en suprimant les informations dépassant cette intervalle:

J'aimerai que la base ai pour point de départ le 1er décembre 2008 , et comme extrémité +1 moi par rapport à aujourdhui() (sachant que "ajourdhui()" varie chaque jour 🙄 )
Ensuite, il faudrait qu'elle suprime les informations datant de plus de 2 ans avant aujourdhui() (sachant qu'il n'y en aura donc pas avant 2 ans vu que je viens de la créer) et qu'elle aille jusqu'à 1 moi (30j) aprés aujourdhui().

En gros, l'intervalle de la base de donnée serait: [-2ans par rapport à aujourdhui(); +1 moi par rapport à aujourdhui() ]

Cependant, les lignes compreinnent des informations, il faudrait donc qu'elles soient toujours sur la meme ligne que leurs dates initiales , et qu'elles soient donc suprimées aprés 2 ans(par rapport à aujourdhui)


J'ai joint un bout d'exemple de ma base de donnée.

Donc voilà, si quelqu'un à une idée pour la macro, ou une meilleur technique pour arriver à des fins similaires je suis preneur .

Je vous remercie d'avance

salutations


skun

 

[job75]

Re : Macro Crée/sup en fonction de la date

Bonjour skun,

C'est clair pour avant aujourdhui - 2 ans, mais si j'ai bien compris, vous voulez supprimer aussi après aujourd'hui + 1 mois, pourquoi ??

Edit : pardon, oui bien sûr puisque vous avez rempli de dates toute la 1ère colonne... ce n'est pas très classique ! Donc je regarde ça.

A+

 

[skun]

Re : Macro Crée/sup en fonction de la date

Bonjour job75,

enfete, je ne veux pas supprimer aprés 1 moi par rapport à aujourdhui() je me suis mal exprimé autant pour moi.

Ce que je souhaite c'est que justement, il y est toujours une marge de 1 moi par rapport à aujourdhui() mais pas plus ( dans mon exemple, il y a beaucoup plus d'un moi mais j'aimerai qu'il n'y est qu'un moi de marge)

je vous remercie pour l'interêt que vous portez à mon cas

salutations

skun

 

[pierrejean]

Re : Macro Crée/sup en fonction de la date

bonjour skun

Vois si cela te convient (macro declenchée par Thisworkbook_open )

Edit: Salut job

 

[skun]

Re : Macro Crée/sup en fonction de la date

Re pierrejean !

Aprés avoir fait planté le PC deux fois en modifiant la date (2012) et en lancant le doc excel lol, j'ai finalement réussi à le tester en y allant molo sur les dates, et en sauvegardant à chaque fois, et c'est exactement ce que je cherchais.

Il ne reste plus qu'a l'intégrer à mon cas réel.

Encore une fois merci pour ton aide précieuse !

et merci à vous 2 pour l'interet que vous avez porté à mon cas !!!

salutations


skun

 

[skun]

Re : Macro Crée/sup en fonction de la date

euh... petit problème d'adaptation,
comment faire pour que la macro s'effectue pour 3 feuille d'un classeur uniquement (j'ai 3 base de donnée de meme structure)

Quelle est la commande a inscrire dans le code pour désigner les feuilles où la macro s'appliquera svp ?


merci

skun

 

[pierrejean]

Re : Macro Crée/sup en fonction de la date

Re

A tester

voir en thisworkbook_open pour designer les feuilles a traiter

 

[skun]

Re : Macro Crée/sup en fonction de la date

Re,
alors j'ai essayé,
ca me fait un message d'erreur et ca me dit:

"erreur de compilation
Type d'argument ByRef incompatible"

en selectionnant dans le code:

Call test(tablo(n))

peut etre que j'ai loupé un truc? j'ai remplacé le nom des feuille dans ton code.

tablo = Array("BD camion", "BD chauffeur", "BD tournée")


si tu as une idée, sinon jpeux créer un exemple mais j'ai peur que ce soit trop gros..


salutations

skun

 

[pierrejean]

Re : Macro Crée/sup en fonction de la date

Re

teste

Private Sub Workbook_Open()
Dim tablo() As String
tablo = Array("Feuil1", "Feuil2", "Feuil3")
For n = LBound(tablo) To UBound(tablo)
  Call test(tablo(n))
Next n
End Sub

 

[skun]

Re : Macro Crée/sup en fonction de la date

re,
ca ne marche tjours pas 🙁 je joint un fichier ou il y a 3 feuille comme sur mon cas réel.


merci

skun


PS: j'ai édit le dossier joint, ce n'était pas une bonne version..

 

[pierrejean]

Re : Macro Crée/sup en fonction de la date

Re

Avec toutes mes excuses

Rien ne vaut un fichier réel pour tester !!!

 

[skun]

Re : Macro Crée/sup en fonction de la date

Mais c'est moi qui m'escuse de n'avoir pas joint un fichier plus tot !
Encore merci !

ca marche super 🙂

bonne fin de journée


salutations


skun