Transfert ou Extration d'enregistrement a une date

Bonsoir le forum,

Besoin d'un petit coup de main pour rectifier un module d'extraction.

Merci à tous pour l'aide que vous m'apporterez

Cdlt, Thierry

Bonjour,

Je ne vois pas trop ce que tu veux faire au final.

La ligne en rouge permettait de n'archiver que les lignes qui avaient une date en colonne t.

Si tu veux que toutes lignes s'archivent, tu peux supprimer ta ligne en rouge.

Si tu veux autre chose, il va falloir préciser un peu plus.

Bonjour Joyeux Noel,

Désolé pour mes explications. Aujourd'hui lorsque "O" est renseigné ca indique une date à "T" est tous fonctionne à merveille.

par contre lorsque "O" est vide "T" est vide et mon programme se plante. d'où la ligne en rouge que je recois à l'ecran est que je precise sur mon screen. Moi, je souhaite que mon programme continue son check jusqu'au bout meme si la cellule "T" est vide

Merci

Rebonjour,

Peut-être peux-tu essayer ceci ?

    
if F1.Cells(I, "T") <>"" then
    If Date - CDate(F1.Cells(I, "T")) >= 0 Then

        lig = F2.Range("C" & Rows.Count).End(xlUp).Row + 1

        F1.Cells(I, 1).EntireRow.Copy F2.Cells(lig, 1)

        F1.Cells(I, 1).EntireRow.Delete

        compteur = compteur + 1

    End If
End if    
Next I

Bonjour Fred,

Merci beaucoup pour ta participation, cela fonctionne.

Je te souhaite une bonne soirée ainsi qu'un bon Week end

Thierry

Bonjour Thierry,

Si c'est tout bon, ce serait sympa que tu clôtures tes posts.