Macro suppresion ligne si date anterieur à 2 ans

Bonjour,

Je suis actuellement en stage dans un service marketing où j'ai pour mission d'améliorer certains outils.

L'un de ces outils utilise une base de donnée qui est alimentée tous les jours.

A partir de la cellule A2 et sur toute la colonne A il y a des dates qui correspondent à la date ou la ligne a été rempli.

Je ne sais pas comment codé une macro, cependant j'aimerais pouvoir supprimé automatiquement toute les ligne ou la date (en A) a plus de 2 ans.

Si quelqu'un pouvait m'aider ça serai super !

Merci d'avance

Buzz

Bonjour Madame la stagiaire

Je vais vous donner une macro, si vous ne savez pas comment la mettre en place, dites le moi je vous aiderai :

Sub Code()

Dim DL As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

For i = DL To 2 Step -1

If DateDiff("yyyy", Range("A" & i), Date) > 2 Then
Rows(i).Delete
End If

Next i

End Sub

Cordialement.

Merci Kuartz pour ta réponse rapide.

Je sais ou il faut rentrer la macro. Enfaite ce que je ne comprend pas c'est ce qu'il faut que je mette a place de DL.

Peux-tu m'éclairer ?

PS : Je ne suis pas Madame la stagiaire, mais Monsieur le stagiaire

Lol ! Pardon, j'avais cru voir Claire dans le pseudo alors que c'était BuzzLeclaire. Enfin bref....

Donc MONSIEUR le stagiaire (:p), la variable DL ne se touche pas :

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

DL : Le nom de la variable

Application.Rows.Count : Les cellules non vides

1 : C'est la colonne A, en fait, il faut que tu mettes la colonne la plus remplie du tableau, celle dont la dernière cellule remplie est le plus bas

End(xlUp) : Jusqu'à la fin de la feuille excel, sens vers le haut.

Row : Ligne

DL est donc la variable qui définir la dernière ligne de ton tableau. C'est que pour la variable i parcoure bien tout le tableau.

Voilà voilà.

D'accord ! Autant pour moi

Ca a l'air de plutôt bien fonctionner !

JE vais faire quelques test pour être sûr

En tout cas je te remercie de ton aide.

Bonne journée