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

clausen

XLDnaute Occasionnel
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
 

Pièces jointes

  • Couleur.xlsm
    130.4 KB · Affichages: 4

clausen

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
1
Affichages
110

Statistiques des forums

Discussions
313 226
Messages
2 096 354
Membres
106 584
dernier inscrit
guillaume.81.deluca@gmail