En premier lieu, mettons en place les contrôles "Microsoft Monthview" et "Microsoft DTPicker", le fichier MSCOMCT2.OCX contient les contrôles en question, ainsi que les contrôles UpDown, ScrollBar et Animation. Il faut commencer par télécharger ce fichier, car il n'existe probablement pas sur votre ordinateur (si vous utilisez Excel 2013 ou 2016) vous pouvez le télécharger à l'adresse suivante : http://www.ocxme.com/ocx/files/mscomct2_ocx.html
ou
le dossier : https://www.cjoint.com/c/FICjNGNhNhE
Vous devez ensuite copier le fichier dans le dossier c:\Windows\system32 si vous avez une version 32 bits de Windows, ou dans le dossier c:\windows\sysWOW64\ en cas de version 64 bits.
Il faut à présent Exécuter le fichier OCX, pour cela activer l'invite de commande en mode Administrateur : Utiliser la commande CMD dans votre commande Démarrer / Exécuter ou dans la zone de recherche selon votre version de Windows. Attention de bien valider la saisie à l'aide des touches SHIFT+ CTRL + Entrée du clavier pour bien basculer l'invite de commande en mode Administrateur.
Pour windows 32 bits : %systemroot%\System32\regsvr32 c:\windows\System32\"Nom du fichier"
Pour windows 64 bits : %systemroot%\SysWoW64\regsvr32 c:\windows\SysWOW64\"Nom du fichier"
exemple pour MSCOMCT2 pour DTPicker
La ligne de commande à saisir, sera alors :
Pour windows 32 bits : %systemroot%\System32\regsvr32 c:\windows\System32\MSCOMCT2.OCX
Pour windows 64 bits : %systemroot%\SysWoW64\regsvr32 c:\windows\SysWOW64\MSCOMCT2.OCX
Utilisation des contrôles dans Excel : Saisir une date dans une cellule
Accéder à l'onglet Développeur du Ruban
Utilisez la commande Insérer / contrôles ActiveX / Autres contrôles
Sélectionnez le contrôle "Microsoft Date and Time Picker control 6.0 (SP6)"
Créez un formulaire VBA
Affichez la boîte à outils
Faites clic droit pour obtenir le menu contextuel de la boîte
Sélectionner alors la commande Contrôle Supplémentaires…
Dans la liste des contrôles Choisissez "Microsoft MonthView control 6.0 (SP6)" et "Microsoft Date and Time control 6.0 (SP6)"
Cliquez sur OK
Dessiner les 2 objets MonthView1 et DTPicker1 sur votre formulaire grâce aux nouveaux contrôles apparaissant dans la boîte à outils.
Ici le code VBA nous montre comment affecter le choix de l'utilisateur dans un contrôle ou l'autre, à une cellule de la feuille de calcul.
Private Sub CommandButton1_Click()
Range("a10").Value = DTPicker1.Value
Range("a11").Value = MonthView1.Value
UserForm1.Hide
End Sub
Voilà