Microsoft 365 Affichage calendrier dans le UserForm

[dubarre]

Bonjour à tous je viens vers vous car j'ai trouvé ce classeur qui affiche le calendrier comme je souhaite par contre j'ai un problème j'essaie de comprendre la façon qu'a été créé le codage mais je n'arrive pas à comprendre comment s'affiche le calendrier dans l'UserForm est-ce que quelqu'un pourrait m'aiguiller si vous plaît en vous remerciant

 

[patricktoulon]

RE
bonsoir
en fait c'est le calendrier que excel utilise déjà avec l'ocx sauf que la il est créé de toute pièce avec createwindowex avec l'argument "le nom du calendrier dans la dll

ca fait longtemps que j'avais pas vu cette version

 

[dubarre]

Bonsoir merci de vous pencher sur mon souci façon parler est-ce que cela peut s'adapter sur un autre classeur et si oui comment je peux récupérer ce calendrier s'il vous plaît j'avoue que la ce côté-là je ne connais pas grand-chose en gros vous m'avais parlé chinois lol

 

[kiki29]

Salut, cela s'apparente à de l'archéologie, juste pour information : à lire

 

[CHALET53]

Bonjour
Tu peux utiliser l'excellent travail proposé par RolM
a+

 

[dubarre]

Merci pour vos suggestions je vais regarder ça

 

[patricktoulon]

Bonjour
je te propose aussi le mien qui n'utilise rien d'autre que les controls basiques présent dans toute version d'excel et surtout pas d'api windows

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

www.excel-downloads.com

 

[dubarre]

Bonjour merci pour ta proposition qui a l'air de correspondre à ce que j'ai besoin contre il y a-t-il un fichier exemple pour que je puisse prendre comment cela fonctionne s'il vous plaît

 

[dubarre]

Rebonjour je retire le message supérieur je viens de voir où on peut télécharger le fichier merci encore de votre aide

 

[mymyetnono]

Bonjour à tous

Bonjour
Tu peux utiliser l'excellent travail proposé par RolM
a+

CHALET53 le calendrier de RolM que tu a donner est super mais je souhaiterais l'utilisé dans un UserForm avec le format "dddd dd mmmm" dans un Label et l'année dans un autre Label. Penses-tu qu'il a possibilité ? J'ai essayer mais je ne suis pas assez caler pour modifier cela dans un UserForm.

Cordialement.

 

[CHALET53]

Bonjour,
Sur ce calendrier , je ne sais pas
Sur celui joint, j'ai cela
a+

 

[mymyetnono]

merci CHALET53 mais le premier est mieux car il passe de décembre 2020 à janvier 2021 avec les curseurs des mois.

 

[CHALET53]

Bon ben ça doit pouvoir le faire

 

[CHALET53]

Pour que la date fin soit possible à compter de la date début
a+

 

[patricktoulon]

bonjour a tous
1° a tester mon calendrier : prenez la next version
2° j'ai pourtant bien precisé qu'il est completement autonome
donc les unload calendar et je ne sais quoi d'autre vous oubliez le calendar sait se fermer tout seul
3° quand aux events label et textbox c'est simple

Private Sub Label3_Click()
Dim A
A = Calendar.ShowX(Label3, 2, 0, 1)
    Label3.Caption = Format(A, "dddd dd mmmm")
    Label7.Caption = Year(CDate(A))
End Sub

Private Sub Label4_Click()
  Dim A
  A = Calendar.ShowX(TextBox1, 2, 0, 1)
    Label4 = Format(A, "dddd dd mmmm")
    Label8.Caption = Year(CDate(A))
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Dim A
   A = Calendar.ShowX(TextBox1, 2, 0, 1)
    TextBox1 = Format(A, "dddd dd mmmm")
    TextBox3.Caption = Year(CDate(A))
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim A
  A = Calendar.ShowX(TextBox2, 2, 0, 1)
    TextBox2 = Format(A, "dddd dd mmmm")
    TextBox4.Caption = Year(CDate(A))
End Sub

c'est pas compliqué tu a ta date et ton année dans le control a coté
je me suis permis de faire le nettoyage
bonne journée