Microsoft 365 allert à la date du jour

Pitolat

XLDnaute Nouveau
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
 

Pièces jointes

  • Heures Perso-codever.xlsm
    123.8 KB · Affichages: 4

fanch55

XLDnaute Barbatruc
Bonjour,
Associez le code ci-dessous à une forme sur votre feuille :
VB:
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
 
Dernière édition:

Cousinhub

XLDnaute Barbatruc
Bonjour,
Une autre possibilité
Code:
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

XLDnaute Barbatruc
Bonjour,

Si les dates en colonne A sont toujours classées en ordre croissant :
VB:
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+
 

Discussions similaires

Réponses
8
Affichages
341

Statistiques des forums

Discussions
313 209
Messages
2 096 241
Membres
106 541
dernier inscrit
edf