Microsoft 365 Supprimer des lignes selon deux critères

[Dem8]

Bonjour à tous,

Je reviens vers vous avec mon fichier de stockage d'échantillons que je cherche constamment à améliorer.
Cette fois-ci, l'idée est la suivante :

Physiquement :
Je conserve tous mes échantillons 1 an. A chaque fin de mois, je vide les armoires du mois suivant qui sont donc remplies avec les échantillons de l'année dernière. Par exemple, fin juin, je vais vider les armoires de juillet, qui contiennent les échantillons de juillet 2021, afin de pouvoir ranger les échantillons de juillet 2022.

Informatiquement :
J'aimerais qu'à l'ouverture de mon fichier, si nous sommes à la fin du mois, les lignes contenant les échantillons du mois suivant se suppriment.
La base de données ne contient pas de date, uniquement un numéro de mois dans la colonne E (1 pour janvier jusqu'à 12 pour décembre).

Comment je pensais m'y prendre :
- La colonne E contient donc le numéro de mois
- En J1, j'ai une formule qui me donne le numéro du mois en cours (actuellement, nous sommes en juin, donc 6)
- En J2, la formule me donne le premier jour du mois suivant (actuellement, 01-07-2022)
- En J3, j'ai le nombre de jours restants jusqu'au 1er jour du mois suivant (aujourd'hui, 19)

De manière rédigée, le code serait : si J3 < ou = à 15, alors : si colonne E contient valeur égale à J1+1, alors supprimer les lignes concernées. Sinon rien.

Mais comment dit-on ça en VBA ??? Est-ce que vous auriez des idées ? Est-ce que ma manière de procéder est bonne ?

Dans l'attente de vos retours,

Dem8

 

[Phil69970]

Bonjour @Dem8

Je te propose ce fichier

On peux le faire de manière automatique va regarder les commentaire ici :

Si la solution te satisfait tu peux la valider.

*Merci de ton retour

@Phil69970

 

[Dem8]

Magnifique ! Je valide, merci pour ton aide et ta réactivité @Phil69970 !

 

[Phil69970]

@Dem8

Et si tu veux paramétrer le délai

@Phil69970

 

[Dem8]

Merci @Phil69970 , je l'avais fait de mon côté aussi, ce n'est pas la partie du code qui me posait problème.

Je viens de me rendre compte qu'il y a un cas dans lequel le code ne fonctionne pas : quand on est en décembre et qu'il faut supprimer les lignes de janvier. Est-ce que tu aurais une astuce ?

 

[Phil69970]

@Dem8

Je vais réfléchir à ça et voir si je trouve une solution de contournement
Mais pas maintenant je sors profiter du soleil

@Phil69970

 

[Dem8]

@Dem8

Je vais réfléchir à ça et voir si je trouve une solution de contournement
Mais pas maintenant je sors profiter du soleil

@Phil69970

Pas de soucis, profite bien !

 

[Phil69970]

@Dem8

Vite fait j'ai ça si je mets la date système du 17/12/2022

Donc pour moi c'est ok

Le reste après la sortie si pb pour toi

@Phil69970

 

[Dem8]

Bonjour @Phil69970 ,

Je ne voulais pas te déranger davantage hier.
J'avais mal exprimé mon problème par rapport à décembre et janvier, mais c'est bon, la solution m'est venue tout à l'heure. Je la partage ici :


Le code VBA dit : si mois de l’échantillon = mois en cours + 1, alors la ligne se supprime

Exemple 1 : mois de l’échantillon : mars = 3 et nous sommes en février = 2 + 1 = 3. L’égalité est bonne, le code supprime la ligne de l’échantillon

Exemple 2 : mois de l’échantillon : janvier = 1 et nous sommes en décembre = 12 + 1 = 13. L’égalité n’est pas bonne, le code ne supprime pas la ligne

Du coup, pour contourner le problème, plutôt que de mettre dans la cellule J1 =MOIS(AUJOURDHUI()), j’ai mis: =SI(MOIS(AUJOURDHUI())=12;0;MOIS(AUJOURDHUI()))

Comme ça, si je reprends mon
exemple 2 : mois de l’échantillon : janvier = 1 et nous sommes en décembre = 0 + 1 = 1. L’égalité est bonne, le code supprime la ligne

Le sujet est définitivement clos, je te remercie pour ton aide

 

[Deadpool_CC]

Bonjour,

C'est réglé mais pour le fun ...

=SI(A3+$B$1>12;MOD(A3+$B$1;12);A3+$B$1)

A+

 

[Dem8]

Merci pour ta participation @Deadpool_CC ! Je ne connaissais pas la fonction MOD(). Je garde ta formule en mémoire.