Microsoft 365 atteindre cellule

Excelchris

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

Pièces jointes

  • Planning essais 2.xlsm
    299.4 KB · Affichages: 10

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

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

Dans le code de la feuille vous trouverez les lignes suivantes :
VB:
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
 

Pièces jointes

  • Planning essais 2.xlsm
    309 KB · Affichages: 10

Discussions similaires

Statistiques des forums

Discussions
314 738
Messages
2 112 343
Membres
111 516
dernier inscrit
Ayoubsdf