Comparer colonnes de dates à la date d'aujourd'hui

deub-deub Messages postés 21 Statut Membre -  
 foo -
Bonjour ,

Je débute en VBA et je dois trier parmi une grosse une grosse liste toutes les lignes dont la date (se trouvant à la colonne 16) est ultérieure à aujourd'hui.
J' essayé d'écrire une macro , je pense que mon raisonnement est bon mais je sais pas comment le retranscrire en langage VBA :

Dim i as integer

For i = 2 to "ligne finale"

If Cells(i,16).value < Aujourd'hui() Then

"copier la ligne dans une nouvelle feuille"
End If

Next

Merci d'avance pour votre aide.
A voir également:

3 réponses

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour,

qu' appelles tu "grosse liste " : 2000 lignes,50000,20000?
Combien de colonnes dans ton tableau ou dernière colonne utilisée ?

avec tes réponses, on pourra te proposer une solution

Au besoin , mets un extrait (2000 lignesmaxi) de ton classeur

pour joindre une pièce
mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse

d'avance merci

Michel
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour

Pourquoi t'embêter avec une macro qui prendra du temps peut être à s'exécuter en lisant ligne par ligne en plus

Tu selectionnes ta colonne de dates; tu appliques un Filtre (onglet Données Filtrer) Tu cliques sur l'icône filtre au sommet de la colonne puis Filtres chronologiques puis Après et Postérieur au et tu choisis la date d'aujourdhui
Une fois le filtre appliqué tu selectionnes toutes les colonnes et tu fais un copier coller sur une autre feuille

Si tu veux automatiser la procédure tu peux lancer l'enregistreur de macro avant de commencer la manip pour obtenir une macro réutilisable

Cdlmnt
0
foo
 
Bonjour

deja ton If est pas bon

If Cells(i, 16).Value < DateValue(Now) Then

A+

Maurice
-1