Microsoft 365 Affichage calendrier dans le UserForm

patricktoulon

XLDnaute Barbatruc

• 8 Juillet 2020

• #2

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

 

Vote positif 0 Vote négatif

D

dubarre

XLDnaute Occasionnel

• 8 Juillet 2020

• #3

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 9 Juillet 2020

• #4

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 9 Juillet 2020

• #5

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

 

Pièces jointes

• CalendrierAutonome_RolM_Complet.xlsm

  96.9 KB · Affichages: 82

Vote positif 0 Vote négatif

D

dubarre

XLDnaute Occasionnel

• 9 Juillet 2020

• #6

Merci pour vos suggestions je vais regarder ça

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Juillet 2020

• #7

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

 

Vote positif 0 Vote négatif

D

dubarre

XLDnaute Occasionnel

• 9 Juillet 2020

• #8

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

 

Vote positif 0 Vote négatif

D

dubarre

XLDnaute Occasionnel

• 9 Juillet 2020

• #9

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

 

Vote positif 0 Vote négatif

M

mymyetnono

XLDnaute Junior

• 24 Novembre 2020

• #10

Bonjour à tous

CHALET53 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 24 Novembre 2020

• #11

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

 

Pièces jointes

• Calendrier USF bis Calendar Format Présentation.xlsm

  68.4 KB · Affichages: 26

Vote positif 0 Vote négatif

M

mymyetnono

XLDnaute Junior

• 24 Novembre 2020

• #12

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 24 Novembre 2020

• #13

Bon ben ça doit pouvoir le faire

 

Pièces jointes

• CalendrierAutonome_RolM_Complet Format spéc.xlsm

  100.6 KB · Affichages: 15

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 24 Novembre 2020

• #14

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

 

Pièces jointes

• CalendrierAutonome_RolM_Complet Format spéc.xlsm

  99.5 KB · Affichages: 13

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2020

• #15

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

VB:

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

 

Pièces jointes

• Calendrier USF bis Calendar Format Présentation (1).xlsm

  64.8 KB · Affichages: 47

Vote positif 0 Vote négatif