Suppression automatique d'une date perimé avec macro

[Résolu/Fermé]
Signaler
-
 peter -
Bonjour,
je cherche un algorithme (macro ) qui me permetterai de vider les cellules d'une colonne X une fois la date est perimée. ces cellules peuvent etre vides ou remplies par des dates
merci pour votre aide

7 réponses

Messages postés
7571
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 octobre 2021
664
Bonjour,

Je pense que tu peux faire cela avec des formules. Par macro voici le code à mettre dans un UserForm :

Private Sub UserForm_Initialize()
Label1.Caption = Date
TextBox1.Text = Date - 1 ' a adapter
If TextBox1.Text < Label1.Caption Then
MsgBox "Perime"
'mettre le code pour supprimer les cellules
End If
End Sub


C'est juste la marche à suivre, a adapter avec un bouton
merci pour le temps que vous me consacrez.
le pb c'est que je veux pas utiliser de bouton , juste definir une plage sur laquelle la macro va etre executée et une fois la date d'une cellule sera inferieure a la date d'aujourd'hui la cellulle se vide automatiquement
j'espere que je vous apporte plus de details mnt.
merci
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Bonjour,

les dates sont elles issues de formules, saisies manuellement ou par un coiper (ou couper)- coller ?
Bonjour

Voila une macro a toi de la mettre en forme car sans model et sans reference de colonne dur

Sub TestDate()
MaDate = DateValue(Now)
Col = 1
For L = 1 To Range("A" & Rows.Count).End(xlUp).Row
   Tdate = Cells(L, Col).Value
   If Tdate < MaDate And Tdate > 0 Then
      Cells(L, Col).Value = ""
   End If
Next
End Sub


A+
Maurice
merci pour votre aide
le pb persiste tjrs, je veux preciser que les date en question peuvent etre n'importe ou sur une plage de (A5;G50)
j'attend vos solutions et merci
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Bonjour

j'attend vos solutions et merci


D'accord, mais puis je caresser l'espoir d'avoir une réponse à ma demande de précisions du 24 décembre, sans vouloir abuser, bien sûr....
oui evidemement
les dates sont saisies manuellement
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Pourquoi évidemment ? je n'ai pas de boule de cristal....

il se pourrait sans explications correctes de ta part, que des dates soient le résultat de formules: dans ce cas, il arait fallut passer par un bouton d'où ma question

donc...bonne semaine
>
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021

bjrs michel
tu as dit :
puis je caresser l'espoir d'avoir une réponse à ma demande de précisions du 24 décembre...
j'ai dit :
oui evidement
je vois po de raison pour que tu te fache contre moi
Messages postés
16527
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2021
3 232
Bonjour,

La solution est pratiquement identique sur l'aide Microsoft VBa avec la fonction "Find"
Elle est indiquée. rubrique "range.find.methode"

pour lancer sans bouton écrire la macro dans un module feuille
et délimiter au départ la zone d'action
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(laplageconcernée)) Is Nothing Then

'..le code

End If
End Sub

Pour accéder aumodule feuille
clic droit sur le nom d'onglet-visualiser le code




Michel
veux tu indiquer le code stp
je trouve nul part
merci
de quel code parle tu???