Fonction DatePicker

Private Sub Workbook_Open()

    MsgBox "Message de bienvenue"
   Dim madate As Date

    madate = datepicker("1/1/2021", 2, 1, 1, "Date choisie")

End Sub

Bonjour à tous,

Je souhaiterais créer une boîte de dialogue sous forme de calendrier permettant à l'utilisateur de choisir une date.

Pour cela, j'ai coché dans les contrôles supplémentaires "Microsoft MonthView" et "Microsoft Date and Time Picker".

De plus, j'ai noté le code suivant, trouvé sur un des cours VBA de ce site, malheureusement en l'exécutant cela ne fonctionne pas.

Voici le lien du cours en question : Fonction VBA : datePicker (excel-pratique.com)

Merci d'avance.

Cordialement

Nouun

Bonjour Noun,

Il faut télécharger et installer le pack de fonctions complémentaires, est-ce fait ?

@+

Bonjour tout le monde.
Il serait utile que tu paramètres ton compte en précisant ta version Excel. Je ne pense pas que ce plugin soit compatible avec une version 64 bits d'Office, par exemple.

Bonjour à vous,

Effectivement ma version n'est pas compatible.

Je suis passée par la création d'un Userform avec pour code :

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
   On Error Resume Next
   Dim xRg As Object
   xRg.Value = DateClicked

   Unload Me
End Sub

Merci pour vos réponses