XL 2021 Positionnement sur une cellule en fonction de la date, du jour et de l'heure

[clausen]

J'ai un tableau ou j'aimerai installer cette fonction. Elle permet de positionner à l'ouverture du fichier "Couleur" directement sur le jour et dans la tranche d'heure
ou je dois remplir la case. Je ne sais pas comment l'intégrer


Option Explicit

Private Sub GoCellDay()
Dim t As Date, C$: t = Time: C = "M"
If Time < [K3] Then C = "I"
If Time < [M3] Then C = "K"
Cells(Day(Date) + 3, C).Select
End Sub

Private Sub Workbook_Open()
Worksheets(Month(Date)).Select: GoCellDay
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'ne rien faire si la feuille active n'est pas celle du mois en cours
If Sh.Index = Month(Date) Then GoCellDay
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
[A1].Select
End Sub


Merci d’avance pour votre réponse et bonne journée

 

[mapomme]

Bonjour @clausen ,

Pas certain d'avoir compris vos intention puisqu'on aucune explication claire de ce que vous désirez n'est présente !

A tout hasard :

Private Sub GoCellDay()
Dim C$
   If Time < [K3] Then C = "I" Else If Time < [m3] Then C = "K" Else C = "M"
   Cells(Day(Date) + 3, C).Select
End Sub

 

[clausen]

Bonjour @clausen ,

Pas certain d'avoir compris vos intention puisqu'on aucune explication claire de ce que vous désirez n'est présente !

A tout hasard :

Private Sub GoCellDay()
  Dim t As Date, C$: t = Time: C = "M"
  If Time < [K3].Value Then C = "I" Else If Time < [m3] Then C = "K" Else C = "M"
  Cells(Day(Date) + 3, C).Select
End Sub

1) je ne sais pas comment intégrer ce code dans mon tableau Joint)

2) Ce que je désire c'est que le curseur se positionne sur la date et l'heure juste quand j'ouvre la feuille.

Merci d'avance