macro pour supprimer les dates perimées Résolu/Fermé

Question

Bonjour, 

je cherche un algorithme (macro ) qui me permetterai de vider les cellules  une fois la date est perimée. ces cellules peuvent etre vides ou remplies par des dates manuellement

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 
merci de poster le code au complet
la plage est delimitée par B5 ET F26.

Configuration: Windows 7 / Chrome 39.0.2171.95

eriiic · Answer

Bonjour,

C'est quoi une date périmée ?
Merci de déposer un fichier de travail en listant les cellules devant être vidée sur l'exemple.
eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

HQUIN · Answer

plage variable


Sub toto() 'plage entre b5 et la derniere ligne occupée
Dim c As Range
For Each c In Range("b5", [B65000].End(xlUp))
If c < Now() Then
'c.Interior.Color = 255 'pour colorier en rouge avant de lancer la macro
c.Value = ""
End If
Next c
End Sub


Plage B5 B26
Sub toto2()
Dim c As Range
For Each c In Range("b5:b26")
If c < Now() Then
c.Interior.Color = 255
'c.Value = ""
End If
Next c

End Sub

peter · Answer

MERCI BCP HQUIN
C'est le bon code
mercii

Macro pour supprimer les dates perimées

3 réponses

Discussions similaires