Bouton pour accéder à la date du jour

VBA
2

Bonjour,

Voici une macro

Option Explicit

Sub SelectDateJour()
'Déclaration des variables
Dim i As Integer
Dim Derlign As Integer

'Initialisation des variables
'***********************************************
Derlign = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A de la feuille 1
' "Feuil1" est à modifier suivant le nom de la feuille
'***********************************************
  For i = 31 To Derlign 'boucle de la ligne i (de 31 à la dernière ligne non vide)
      If Range("A" & i) = Date Then 'Si la cellule (A31) est = à la date du jour (Date étant l'équivalent de "AUJOURDHUI()" en VBA
          Range("A" & i).Activate 'Je me position dessus
          Exit Sub 'et je quitte la procèdure
      End If
  Next i ' si la date n'est pas trouvée en A31, la boucle continue et i prend la valeur de 32, puis 33, etc

End Sub

Date du jour.xlsm (19,5 Ko)

2 « J'aime »