Discussion :

[Jsiorat]

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

[ONTAYG]

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

[Jsiorat]

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 !

[jurassic pork]

Hello

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



Ami calmant, J.P

[Jsiorat]

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