Microsoft 365 Sélectionner une cellule

[Electron24]

Bonsoir le Forum,
Comment est il possible de se positionner sur la cellule du jour grace à une macro actionnée par un bouton sur la feuille ?
Merci d'avance pour votre solution
cordialement

 

[Dranreb]

Bonsoir.

Option Explicit
Sub PositJour()
   Dim DécJour As Integer
   With [Tab_Calendrier]
      DécJour = Date - .Cells(1, 1).Value
      Application.Goto .Cells(1 + DécJour \ 7, 1 + DécJour Mod 7)
      End With
   End Sub

Ah, au lieu de Date c'est peut être Feuil1.[C16].Value

 

[Electron24]

Bonjour Dranreb
Super un grand merci pour ton aide.
Cordialement