comment atteindre la date "aujourdhui" dans un tableau

Bonjour pac124,

Avec la plade de données "dates" nommée ici "dtS"

Sub zaza()
Set dateJ = ActiveSheet.[dtS].Find(Date, , xlValues)
If Not dateJ Is Nothing Then
Application.GoTo Reference:ÚteJ, Scroll:=True
Else: MsgBox "La date du jour n'a pas été trouvée"
End If
Set dateJ = Nothing
End Sub


ChrisV


"pac124" <pac124@discussions.microsoft.com> a écrit dans le message de news:
018A5ABE-2553-470F-8F52-5DBB32BCC65B@microsoft.com...

Bonjour, j'utilise Excel 2000. j'ai un tableau avec les dates du mois en
cours en colonne J'aimerais créer une macro qui me positionne
automatiquement
sur la date du jour.
Merci de votre aide.

Bonjour pac124,

Avec la plade de données "dates" nommée ici "dtS"

Sub zaza()
Set dateJ = ActiveSheet.[dtS].Find(Date, , xlValues)
If Not dateJ Is Nothing Then
Application.GoTo Reference:ÚteJ, Scroll:=True
Else: MsgBox "La date du jour n'a pas été trouvée"
End If
Set dateJ = Nothing
End Sub


ChrisV


"pac124" <pac124@discussions.microsoft.com> a écrit dans le message de news:
018A5ABE-2553-470F-8F52-5DBB32BCC65B@microsoft.com...

Bonjour, j'utilise Excel 2000. j'ai un tableau avec les dates du mois en
cours en colonne J'aimerais créer une macro qui me positionne
automatiquement
sur la date du jour.
Merci de votre aide.
Bonjour. merci mais je ne suis pas certain de tout comprendre.
Pourrais-je vous atteindre autrement. Mon adresse:pac124@msn.com

Avec ta série de dates et quel que soit le format de celles-ci (prioblème avec
"Find"), en colonne A, pour te positionner sur la date du jour :

Sub zz_ChercheDate()
Range("A" & Application.Match(Date * 1, [A:A], 0)).Select
End Sub

AV