suppression automatique d'une date perimé avec macro Résolu/Fermé

Question

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

Configuration: Windows 7 / Chrome 39.0.2171.95

cs_Le Pivert · Answer

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

peter · Answer

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

Maurice · Answer

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

peter · Answer

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

michel_m · Answer

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....

peter · Answer

oui evidemement
les dates sont saisies manuellement

michel_m · Answer

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 codeEnd IfEnd Sub
Pour accéder aumodule feuille
clic droit sur le nom d'onglet-visualiser le code



 
 Michel

Suppression automatique d'une date perimé avec macro

7 réponses

Discussions similaires