DataPicker et UserForm

Bonjour à toutes et tous,

Je cherche a intégrer un calendrier du type DataPicker de Microsoft dans un UserForm.
J'ai trouvé comment intégrer MSCOMCT2.OCX et MSCOMCTL.OCX dans Windows 11 Pro,
(avec la commande regsvr32 /s C:\windows\SysWOW64\MSCOMCTL2.OCX en mode administrateur)
mais aucun des deux n'apparait dans la boite à outils d'un UserForm ainsi que dans la boite à outils supplémentaire.
Pourquoi ?
Merci pour vos réponses

Bonjour,

Est ce que ton Office est en version 64 bits ? Si oui, il me semble que ce n'est pas possible, car ces contrôles sont en version 32 btis.

ONTAYG

Oui bien que je suis en 64 Bits pour Office. Quel dommage que ça ne puisse pas fonctionner (ce que j'ignorais !)
Existe-t-il une autre solution le plus simple possible ?
J'en ai trouvé des solutions, mais il faut être ingénieur +20 pour y comprendre quelques choses, ce qui est loin d'être mon cas !

Hello

Citation:

---

Envoyé par Jsiorat

J'en ai trouvé des solutions, mais il faut être ingénieur +20 pour y comprendre quelques choses, ce qui est loin d'être mon cas !

---

je ne sais pas si ce que je vais te proposer faisait partie de ces solutions, mais il me semble que ce n'est pas trop compliqué à utiliser.
Il s'agit du module de classe cCalendar. Celui-ci permet de pas mal personnaliser le contrôle, il est en 100% VBA et ne dépend pas d'autres modules.
1 - Télécharger le classeur exemple (tout en bas de cette page cliquer sur la flèche vers le bas de la ligne où il y a Calendar_Class_v2.0.0.xlsm )
2 - Ouvrir le classeur et exporter le module de classe cCalendar (il devient cCalendar.cls)
3 - Importer le module de classe dans le classeur où vous voulez l'utiliser.
Voici une utilisation simple dans un formulaire (Userform1) composé d'un cadre (Frame1), d'un bouton (CommandButton1) et d'un label (Label1).le DatePicker viendra se "loger" dans le cadre.
Code du formulaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Private WithEvents theCal As cCalendar   Private Sub CommandButton1_Click() theCal.Today End Sub   Private Sub theCal_AfterUpdate() Me.Label1.Caption = theCal.Value End Sub   Private Sub UserForm_Initialize() Set theCal = New cCalendar theCal.BackColor = RGB(255, 255, 255) theCal.SelectedBackColor = RGB(220, 255, 220) theCal.HeaderBackColor = RGB(240, 240, 80) theCal.SaturdayBackColor = RGB(230, 230, 230) theCal.SundayBackColor = RGB(230, 230, 255) theCal.MonthLength = mlLocalLong theCal.Add_Calendar_into_Frame Me.Frame1 End Sub

---

et voici ce que l'on obtient :

Pièce jointe 629611

Ami calmant, J.P

Merci, je vais "tenter" cette solution ! Qui ne faisait pas partie de celles déjà entrevue !
Merci pour l'explication de mise en oeuvre !