Microsoft 365 Sélectionner une cellule

Electron24 · 10 Décembre 2023

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 · 11 Décembre 2023

Bonsoir.

VB:

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

Dranreb · 11 Décembre 2023

Bonsoir.

VB:

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 · 11 Décembre 2023

Bonjour Dranreb
Super un grand merci pour ton aide.
Cordialement

Microsoft 365 Sélectionner une cellule

Electron24

XLDnaute Occasionnel

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

Electron24

XLDnaute Occasionnel

Discussions similaires