Bonjour à tous,
Je cherche depuis quelques jours sans trouver la solution j'espère pouvoir trouver de l'aide parmi vous.
Grâce à des codes trouvés sur le net, j'ai réussi à mettre en place ce petit calendrier perpétuel, qui, grâce au code que j'ai posté plus bas, me renvoie, lorsque je clique dans la cellule (date) du calendrier, la date complète dans la cellule indiquée dans le code.
Ce que j'ai besoin d'obtenir, c'est 4 dates complètes. Donc comment pourrait-on faire en sorte qu'en cliquant sur les différentes cellules à la suite, chaque date soit renvoyée dans des cellules précisées dans le code.
Je vous remercie d'avance pour votre aide précieuse, bonne journée à tous.
Je cherche depuis quelques jours sans trouver la solution j'espère pouvoir trouver de l'aide parmi vous.
Grâce à des codes trouvés sur le net, j'ai réussi à mettre en place ce petit calendrier perpétuel, qui, grâce au code que j'ai posté plus bas, me renvoie, lorsque je clique dans la cellule (date) du calendrier, la date complète dans la cellule indiquée dans le code.
Ce que j'ai besoin d'obtenir, c'est 4 dates complètes. Donc comment pourrait-on faire en sorte qu'en cliquant sur les différentes cellules à la suite, chaque date soit renvoyée dans des cellules précisées dans le code.
Je vous remercie d'avance pour votre aide précieuse, bonne journée à tous.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("ACCUEIL2")
If Not Intersect(Target, Range("B13:H18")) Is Nothing Then
Range("D22").Value = Target.Value
End If
End With
End Sub