Microsoft 365 allert à la date du jour

[Pitolat]

Bonjour
j'ai un fichier contenant en collone A les dates , à la suite, se souhaite mettre un bouton pour aller diectement à la date du jour.
Merci pour votre aide

 

[fanch55]

Bonjour,
Associez le code ci-dessous à une forme sur votre feuille :

Sub GoToday()
Dim Rw
    [Tableau5].ListObject.Range.AutoFilter Field:=1
    [Tableau5].ListObject.Range.AutoFilter Field:=1, _
        Criteria1:=">=" & Format(Date, "mm/dd/yyyy")
    On Error Resume Next
    Rw = [Tableau5].SpecialCells(xlCellTypeVisible).Row
    [Tableau5].ListObject.Range.AutoFilter Field:=1
    If Err = 0 Then ActiveWindow.ScrollRow = Rw Else MsgBox "Date non trouvée"
End Sub

 

[Cousinhub]

Bonjour,
Une autre possibilité

Sub Goto_Date()
Dim LaDate
LaDate = Application.Match(CLng(Date), Range("Tableau5[Date]"), 0)
If Not IsError(LaDate) Then Application.Goto Range("Tableau5[Date]").ListObject.DataBodyRange(LaDate, 1), True
End Sub

Bonne journée

 

[job75]

Bonjour,

Si les dates en colonne A sont toujours classées en ordre croissant :

Sub SelectJour()
Cells(Application.Match(CLng(Date), Columns(1)), 1).Select
End Sub

Nota : chez moi dans Outils => Références j'au dû décocher une référence MANQUANT.

A+

 

[Cousinhub]

Bonjour,
Job
Et si la date n'y est pas?

 

[job75]

Dans le fichier il y a toutes les dates de 2024 mais si on en enlève la date sélectionnée sera la date précédant la date du jour.

 

[Pitolat]

Merci ça fonctionne à merveille