Microsoft 365 atteindre cellule

[Excelchris]

bonjour a vous
A partir d une date que j’écris dans une cellule donnée, atteindre cette date.
Je joint un fichier c' est pour atteindre une date dans la ligne 3.
Merci d'avance

 

[Hasco]

Bonjour,

Changer la date en C3 après autorisé les macros.

Dans le code de la feuille vous trouverez les lignes suivantes :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("C3").Address And _
       Not IsEmpty(Target(1)) And IsDate(Target) Then
        Dim x As Variant
        x = Application.Match(CLng(Target), Range("D3").Resize(, 365), 0)
        If Not IsError(x) Then Application.Goto Target.Offset(, x), True
    End If
End Sub

Les volets ont été figés à l'intersection de la colonne D et de la ligne 5 pour que les deux premières colonnes et 4 premières lignes soient toujours visibles.

Cordialement

 

[Excelchris]

Super Hasco
Je vous remercie c'était vraiment mes attentes.
Bonne journée à vous