Selection date du jour

salut,

avec cette vba j'ai pu sélectionner la date du jour juste en ouvrant la feuille voulue.

j'aime bien que cette vba me place sur la cellule du j-1 et si j-1 est un dimanche j-2 sera sélectionné.

Private Sub Worksheet_Activate()

For Each c In ActiveSheet.Range("A1:A100")

If c.Value = Int(Now) Then c.Select: Exit For

Next

End Sub

merci

Slt amroun,

où doit il entrer le j-1 ou j-2? dans la même plage c.a.d à la place de la date du jour dans la plage A1:A100 ?

@++

Bonjour à tous,

Une proposition

Private Sub Worksheet_Activate()
Dim C As Range
    With ActiveSheet.Range("A1:A100")
        Set C = .Find(Int(Now), LookIn:=xlValues)
        If Not C Is Nothing Then
            If Weekday(C.Offset(-1)) > 1 Then
                C.Offset(-1).Select
            Else
                C.Offset(-2).Select
            End If
        End If
    End With
End Sub

A+

Bonjour,

Une autre proposition à étudier.

Cdlt.

Private Sub Worksheet_Activate()
Dim dt As Date, n As Long
Const RNG As String = "A1:A100"
    dt = WorksheetFunction.WorkDay(VBA.Date, -1)
    With Me
        n = WorksheetFunction.Match(CLng(dt), .Range(RNG), 0)
        .Cells(n, 1).Select
    End With
End Sub