examiner une liste de date

[mpm87]

Bonjour le forum.
Dans le cadre de mon boulot, je posséde un fichier avec plusieurs dates. j'aurais besoin qu'excel examine la colonne B qui contient les dates, et si la date du jour n'est pas trouvé, alors il exécute ma procédure (un copier/coller). je ne sais pas réaliser cet examen de date. Quelqu'un peut-il venir à mon aide ? Merci d'avance. :S

 

[porcinet82]

Salut mpm87,

Avec le code suivant, ca devrait fontionner comme tu veux, il te reste juste a rajouter ton code de copier/coller.

Sub test()
Dim cel As Variant
Dim plage As Range

Application.Goto Sheets('feuil1').Range('B1')
Set plage = Range('B1:' & Selection.End(xlDown).Address)
For Each cel In plage
    If cel = Date Then
        Exit Sub
    End If
Next cel
'le code de copie
End Sub

@+

 

[mpm87]

Merci porcinet82 ; cela fonctionne à merveille.
Bonne soirée.