Bonjour.
Actuellement la macro ci-dessous permet d'entrer la date dans les cellules nommées "DepartRetour" en effectuant un double clic:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("DepartRetour")) Is Nothing Then Target.Value = Now: Cancel = True
End Sub
Je souhaite que si on effectue un nouveau double clic dans une cellule déjà remplie, une MSGBOX s'ouvre demandant la confirmation de changer la date. Si OUI, permettre de saisir manuellement la date.
Merci pour votre aide.
Actuellement la macro ci-dessous permet d'entrer la date dans les cellules nommées "DepartRetour" en effectuant un double clic:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("DepartRetour")) Is Nothing Then Target.Value = Now: Cancel = True
End Sub
Je souhaite que si on effectue un nouveau double clic dans une cellule déjà remplie, une MSGBOX s'ouvre demandant la confirmation de changer la date. Si OUI, permettre de saisir manuellement la date.
Merci pour votre aide.
