Macro pour supprimer les dates perimées
Résolu
peter
-
peter -
peter -
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.
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.
A voir également:
- Macro pour supprimer les dates perimées
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Nombre de jours entre deux dates excel - Guide
- Fichier impossible à supprimer - Guide
3 réponses
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
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
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
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