Problème DatePicker

Bonjour,

J'aurais besoin de votre aide, je n'arrive pas à utiliser la fonction DatePicker avec cette simple Sub . Mais j'ai un message d'erreur à chaque fois. Je suis bien en 32Bits et en 64Bits ca ne fonctionne pas non plus.

Merci d'avance,

Bonne journée.

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

    If Target.Address = "$A$1" Then 'Si cellule A1

        Cancel = True

        maDate = datePicker(Range("A1"))

        If maDate <> "" Then 'Si date choisie par l'utilisateur
            Range("A1") = maDate
        End If

    End If

End Sub

Bonjour toutes et tous

@Vince27

un fil de discussion ici

https://forum.excel-pratique.com/viewtopic.php?t=117869

add-in ou calendrier autonome

crdlt,

André

Bonjour,

EDIT : J'ai réussi. Merci.