Macro aujourdhui

Résolu

Bonjour les amis

Comment dois-je modifier cette macro qui viens sélectionner la date d'aujourd'hui dans mon tableau afin qu'elle sélectionne la date de la veille soit 2 juillet au lieu de 3 juillet

Sub Aujourdhui()
Dim i As Integer
i = Application.WorksheetFunction.Match(CLng(Date), Range("A:A"), 0)
Range("A" & i).Activate
End Sub

Merci

4 réponses

  1. Désolé

    J'ai en colonne A, j'ai es date des toutes l'année 2024. Et ma formule actuelle me permet d'aller directement à la cellule contenant la date d'aujourd'hui. Mon souhait serait que la formule me permette de sélectionner la date d'hier.

    Est-ce plus clair?

    1. Contributeur

      bonjour,

      Sub Aujourdhui()
      Dim i As Integer
      i = Application.WorksheetFunction.Match(CLng(Date)-1, Range("A:A"), 0)
      Range("A" & i).Activate
      End Sub
      1. Grand merci yg_be

        C'est exactement ce que je souhaitais.

        Bonne journée