Effacer ligne sous contrainte

[Sophie11]

Bonjour,
Je souhaiterais créer une macro qui efface les lignes lorsque dans ma cellule B il ne figure PAS la date d'aujourdhui.

J'ai pensais à utilisant ce code ci-dessous avec la fonction Today() mais sans succés 🙁
For n = Range("B65536").End(xlUp).Row To 3 Step -1
If Range("B" & n) = ?????? Then Rows(n).Delete
Next n

MERCI d'avance... 🙂🙂😉

 

[tototiti2008]

Re : Effacer ligne sous contrainte

Bonjour Sophie11,

En VBA, la date du jour est renvoyée par

Date

 

[Pierrot93]

Re : Effacer ligne sous contrainte

Bonjour Sophie, toto

peut être ainsi :

For n = Range("B65536").End(xlUp).Row To 3 Step -1
If Range("B" & n) <> Date Then Rows(n).Delete
Next n

bonne fin d'après midi
@+

 

[mfb]

Re : Effacer ligne sous contrainte

Bonsoir à tous,
J'ai essayé avec Now en lieu et place de date et ça marche.
A+
Daniel

 

[tototiti2008]

Re : Effacer ligne sous contrainte

Bonjour Pierrot 😉, Bonjour mfb,

Evidement, tout dépend si en colonne B il y a des dates ou des dates et heures....

 

[Pierrot93]

Re : Effacer ligne sous contrainte

Re,

si date du jour dans la cellule, si test avec "now", la ligne sera supprimée.... pas sur que ce soit le résultat attendu....

@+

 

[Sophie11]

Re : Effacer ligne sous contrainte

non il y a juste des date comme 09/06/2010
j'ai essayé :
For n = Range("B65536").End(xlUp).Row To 3 Step -1
If Range("B" & n) <> Date Then Rows(n).Delete
Next n

ca marche super 🙂 🙂 merciiii 😛