Microsoft 365 allert à la date du jour

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
103
Réponses
6
Affichages
65
Réponses
1
Affichages
230
Réponses
6
Affichages
81
Réponses
8
Affichages
580
Retour