Microsoft 365 atteindre cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
184
Réponses
6
Affichages
122
Réponses
3
Affichages
151
Réponses
15
Affichages
223
Réponses
4
Affichages
114
Réponses
2
Affichages
153
Retour