XL 2016 XL Tools.net Calendar

[Claudy]

Bonjour à tous,
en téléchargeant un fichier sur le site, j'ai découvert un calendrier qui me plait bien: XL Tools.net Calendar.
Mais je ne voit pas comment l’intégrer dans une feuille!
Merci d'avance pour votre aide,

Claudy

 

[patricktoulon]

bonjour
là il faut que tu me redonne ton fichier avec tes adaptations je l'ai plus moi
je n'ai que la base label 24 et 25 j'ai pas moi 😛 😛 😉

 

[Claudy]

RE bonjour,
et voilà,
merci d'avance,
Claudy

 

[ChTi160]

Bonjour Claudy
Bonjour le Fil ,le Forum
En attendant Patrick (Que je salue)
voilà ce que j'ai mis et semble répondre à la demande!

Sub reloadClavier()    'mise a jour du clavier
    Dim Madate, i&, sem
    If CBM.Value <> "" And CBA.Value <> "" Then
        Madate = DateSerial(CBA.Value, CBM.ListIndex + 1, 1)
        Madate = Madate - Weekday(Madate, vbUseSystemDayOfWeek)
        For i = 1 To 6: Me.Controls("sem" & i) = "": Next
        For i = 1 To 42
            Madate = Madate + 1
            sem = DatePart("ww", Madate, vbMonday, vbFirstFourDays)
            With Me.Controls("j" & i)
                .Enabled = False
                .Caption = Day(Madate)
                .ControlTipText = ""
                If Month(Madate) = CBM.ListIndex + 1 Then .Enabled = True: Me.Controls(.Tag) = sem
                  .BackColor = Array(&HC0C0C0, Array(vbWhite, vbYellow)(Abs(Madate = Date)))(Abs(Month(Madate) = CBM.ListIndex + 1))
                If .Enabled Then
                    Select Case .Caption
                    Case 5: .BackColor = vbGreen: .ControlTipText = "ONSS"
                    '''Claudy
                    Label24.Caption = "ONSS: " & Format(DateSerial(CBA.Value, CBM.ListIndex + 1, 5), "dddd dd mmmm yyyy")
                    Label24.BackColor = IIf(Weekday(DateSerial(CBA.Value, CBM.ListIndex + 1, 5), vbMonday) > 5, vbRed, vbGreen) 'Ici
                    Case 10
                    .BackColor = vbGreen
                    .ControlTipText = "Prec Prof"
                    '''Claudy
                     Label25.Caption = "Prec Prof: " & Format(DateSerial(CBA.Value, CBM.ListIndex + 1, 10), "dddd dd mmmm yyyy")
                     Label25.BackColor = IIf(Weekday(DateSerial(CBA.Value, CBM.ListIndex + 1, 10), vbMonday) > 5, vbRed, vbGreen) 'Ici
                    End Select
                End If
            End With
        Next
    End If
End Sub

Bonne fin de journée
Jean marie

 

[patricktoulon]

re
Bonjour ChTi160
d'accords je commence a comprendre
c'est a l'open du calendar que ça doit être fait
parce que je pigais pas là car quand on choisi un jour le calendar se ferme donc inutile de triturer les labels c'est inutile
bon ben ChTi160 a répondu 😉

bon sauf que le click droit ou le double click je sais plus (sur feuille) ne fonctionne plus sur ton exemple et pour cause il n'y a plus d'initialisation ni dans l'open ni dans les activate des feuilles
il faudra m'expliquer là
on vous donne un truc saint et vous en faite une marmelade pour 2 labels
bref

 

[ChTi160]

Re
Patrick
Ce qui fait que je n'ai pas encore testé ton fichier.
Mais je vais pas tarder lol
Merci de ce que tu nous proposes.
Amicalement
jean marie

 

[patricktoulon]

re
tu peux tester comme tel il est ouvert au menu contextuel cellules le 1 er bouton du menu 😉
il est non modal et non intégré comme j'ai l'habitude de le faire
c'est un model spécial claudy 😀

 

[ChTi160]

Re
C'est fait ! cool
j'attends l'épisode suivant Lol
Merci
Amicalement
jean marie