Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 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
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.
- 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