Calendrier de cellule

Bonjour,

J'ai adapté un calendier automatique pour la saisie de dates.

Cependant, ce calendrier s'affiche dès qu'une cellule au format date est selectionnée.

Je n'arrive pas à trouver la variable à modifier pour afficher ce calendrier par couble clic au lieu du simple sur une cellule....

Peut-on m'aider ?

Bonjour,

dans le code de feuil1, remplace

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

par

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Merci ! tout simplement