Microsoft 365 atteindre cellule

Excelchris · 24 Octobre 2022

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 · 24 Octobre 2022

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

Excelchris · 25 Octobre 2022

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

Microsoft 365 atteindre cellule

Excelchris

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Excelchris

XLDnaute Nouveau

Discussions similaires

Microsoft 365 atteindre cellule

Excelchris

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

Excelchris

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency