XL 2021 Position en fonction de la date et de l'heure

clausen · 15 Novembre 2023

Impossible de faire marcher cette programmation

Le matin jusqu'à 9:00 dans la colonne "I" ensuite jusqu'à 14:00 dans la colonne "K" et le soir jusqu'à 19:00 dans la colonne "M"

Dudu2 · 15 Novembre 2023

Bonjour,
C'est quoi qui ne marche pas ?
Si c'est le Sub GoCellDay alors...

VB:

Private Sub GoCellDay()
    Dim C As String
   
    With ActiveSheet
        If Time < .[K3] Then
            C = "I"
        ElseIf Time < .[M3] Then
            C = "K"
        Else
            C = "M"
        End If
       
        .Cells(Day(Date) + 3, C).Select
    End With
End Sub

Dudu2 · 15 Novembre 2023

Mais le calcul Cells(Day(Date) + 3, C) est faux puisque tu as 2 lignes par jour, une ligne M et un ligne S.
Qu'est-ce qui fait qu'on doit se positionner sur la ligne M ou la ligne S ?

clausen · 15 Novembre 2023

Dudu2 à dit:
Mais le calcul Cells(Day(Date) + 3, C) est faux puisque tu as 2 lignes par jour, une ligne M et un ligne S.
Qu'est-ce qui fait qu'on doit se positionner sur la ligne M ou la ligne S ?

C'est en fonction de la date de la colonne "H"

clausen · 15 Novembre 2023

Dudu2 à dit:
Mais le calcul Cells(Day(Date) + 3, C) est faux puisque tu as 2 lignes par jour, une ligne M et un ligne S.
Qu'est-ce qui fait qu'on doit se positionner sur la ligne M ou la ligne S ?

Maintenant la position du curseur devrait être en M18

Dudu2 · 15 Novembre 2023

C'est en fonction de la date de la colonne "H"

Alors le calcul est bon.

Maintenant la position du curseur devrait être en M18

A partir de 19h00 oui. Mais il n'est pas encore 19h00.

Ou alors, donne la règle en français.

clausen · 15 Novembre 2023

Dudu2 à dit:
Alors le calcul est bon.

A partir de 19h00 oui. Mais il n'est pas encore 19h00.

Ou alors, donne la règle en français.

Le matin jusqu'a 9:00 position colonne "I"
dés 9:01 position "K"
dés 14.01 position "M"

Dudu2 · 15 Novembre 2023

VB:

Private Sub GoCellDay()
    Dim C As String
    
    With ActiveSheet
        If Time < .[I3] Then
            C = "I"
        ElseIf Time < .[K3] Then
            C = "K"
        Else
            C = "M"
        End If
        
        .Cells(Day(Date) + 3, C).Select
    End With
End Sub

clausen · 15 Novembre 2023

Dudu2 à dit:

VB:

Private Sub GoCellDay()
    Dim C As String
   
    With ActiveSheet
        If Time < .[I3] Then
            C = "I"
        ElseIf Time < .[K3] Then
            C = "K"
        Else
            C = "M"
        End If
       
        .Cells(Day(Date) + 3, C).Select
    End With
End Sub

Merci, je vais essayer demain matin pour voir si la feuille s'ouvre bien sûr le 16 et sur la colonne "I"

Bonne soirée et encore merci

Dudu2 · 15 Novembre 2023

J'en mets ~~ma main, un doigt~~, un ongle à couper

clausen · 16 Novembre 2023

Rien à couper, ce matin était ok, on verra à midi et ce soir, bonne journée et merci encore pour toute cette aide.

Le code que j'ai :
Option Explicit

Private Sub GoCellDay()
Dim C As String

With ActiveSheet
If Time < .[I3] Then
C = "I"
ElseIf Time < .[K3] Then
C = "K"
Else
C = "M"
End If

.Cells(Day(Date) + 3, C).Select
End With
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

Savez-vous à quoi servent les autres lignes ?

Dudu2 · 16 Novembre 2023

VB:

Private Sub GoCellDay()
    Dim C As String
  
    With ActiveSheet
        If Time < .[I3] Then
            C = "I"
        ElseIf Time < .[K3] Then
            C = "K"
        Else
            C = "M"
        End If
      
        .Cells(Day(Date) + 3, C).Select
    End With
End Sub

Private Sub Workbook_Open()
    Worksheets(Month(Date)).Select
    Call 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 Call GoCellDay
End Sub

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

Les autres fonctions gèrent des évènements.
1 - Workbook_Open() -> Ouverture du classeur
2 - Workbook_SheetActivate() -> Activation / sélection d'une feuille en cliquant en bas sur son nom
3 - Private Sub Workbook_SheetDeactivate() -> Désactivation d'une feuille quand on en choisit un autre.

Le 3 ne sert pas à grand chose et pourrait être supprimé sauf à vouloir absolument sélectionner A1 quand la feuille choisie n'est pas celle du mois en cours. Le code aurait d'ailleurs pu être placé en 2 dans le Else du If.

XL 2021 Position en fonction de la date et de l'heure

clausen

XLDnaute Occasionnel

Pièces jointes

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

clausen

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

clausen

XLDnaute Occasionnel

Dudu2

XLDnaute Barbatruc

Discussions similaires