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

clausen · 15 Novembre 2023

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 · 15 Novembre 2023

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 :

VB:

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 · 15 Novembre 2023

mapomme à dit:
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 :

VB:

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

Code:

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

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

clausen

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

Discussions similaires