Bonjour,
je suis sur un fichier et grâce à mes recherche j'ai trouvé le code qu'il me fallait mais j'ai juste un problème:
la ligne si dessous concerne les cases K2 K3 K5 et je voudrais que cela s'applique sur la colonne K à partir de la ligne 2 et je n'arrive pas à modifier le code.
Merci pour votre aide.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("k3,k2,k5")) Is Nothing Then
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Target.Offset(0, -1).Select
Else
Target = ""
Target.Offset(0, -1).Select
End If
End If
End Sub