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

[clausen]

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]

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

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]

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]

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]

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]

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]

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]

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]

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]

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

 

[clausen]

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]

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.