Macro ClearContents particulière

[LINO60POST]

Bonjour le Forum,

Il y a quelques temps, Hervé m'avait écrit une macro d'effacement de données style 'ClearContents' plages à effacer.
Cette macro fonctionne très bien et ce n'est pas le problème.
Par contre, y-a-t-il une possibilité de la faire évoluer dans 2 directions :
1- en lui demandant de n'effacer que les dernières saisies effectuées .
2- en lui demandant de ne pouvoir effacer qu'en fin de mois.
L'idéal pour moi, serait d'avoir 3 possibilités d'effacement donc 3 boutons disposant chacun de son type d'effacement.
Merci d'avance à tous ceux qui voudront bien s'intéressé à mon souci d'évolution.
Amitiés
Lino60post

 

[LINO60POST]

Bonjour le Forum,

Ce matin, j'ai posté un fil à 8h25 et pour le moment personne n'a pu donner suite à ma demande.
Est-ce infaisable?

Merci d'avance pour vos réponses.
Amitiés
Lino

 

[Pierrot93]

Bonjour Lino, Le Forum

Pour ce qui est d'effacer sur les derniers jours du mois tu peux essayer le code ci dessous

Sub Test1()

If Day(Date) < 25 Then Range('A1:A3').ClearContents

End Sub

Par contre pour effacer les dernières saisies je ne sais pas ...

Bonne journée

 

[Pierrot93]

Re Bjr

lire > (supérieur) au lieu de < (inférieur)

@+

 

[Hervé]

bonjour alain, pierrot

alain, pourrais tu nous fournir un fichier.

pourrais tu précisez ce que tu entends par : '1- en lui demandant de n'effacer que les dernières saisies effectuées .'

salut

 

[LINO60POST]

Bonjour le forum,

Suite à ma requête de ce matin à 8h25, ci joint un fichier explicatif.

merci d'avance à tous

Amitiés
Alain [file name=TabLinoV1.zip size=3709]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TabLinoV1.zip[/file]

 

[LINO60POST]

Bonjour le forum, PIERROT93,

Excuses-moi pour tout à l'heure, car lorsque je suis revenu sur le fil pour joindre un fichier exemple, j'ai complètement oublié de te remercier pour ta réponse.
Je testerai demain, et j'espère que quelqu'un m'aidera à trouver la solution pour mes problèmes de macros.
A tous merci d'avance
Amitiés
Lino