Lorsqu'une cellule est vide elle est de type Empty, pas Date.Je voudrais juste que quand je clique sur une cellule de type date il m'ouvre un petit calendrier.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Target(1, 1)
If Target.NumberFormat Like "*y*" Then
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie("", Target.Value, Date)
End If
End Sub