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

Bonjour a tous
des mises à jour ont été faites dans le calendar et le skinner
le calendar
1 correctif de la latence d'affichage dans le calendar
2 config plus rapide
le skinner
1°nouveau look (plus sobre)

2° ajout des boutons d’intégration et export xlam(créateur de complément calendar)
3° ajout des fonctions
A: intégration dans les classeurs
B: export en xlam

Le Calendar entièrement personnalisable

boite de dialog perso Calendar pour vos applicatifs excelen 8 langues

www.youtube.com

ATTENTION
IL FAUT COCHER LA CASE DANS LES PARAMETRES MACROS
"accès approuvé au modèle d'object du projet vba"
sinon le skinner ne fonctionnera pas

Bonjour a tous

Mise a jour Majeure V 4.3.2.4

mise en compatibilité pour les jour fériés sur MaC et windows pour toute les régions
utilisation de dateserial plutôt que Cdate pour la coloration des boutons

simulation des jours fériés de 1800 à 1900 (sur 100 ans de plus )pour la coloration des boutons

j'ajoute encore une région la <<15>> pour le Portugal

Bonjour à tous
à tous comme ça m'a été demandé ce jour et que j'ai eu une heure de libre
j'ajoute la langue espagnole
on a donc
FR =region 1
US=region 0
cananda=region 2
cananda quebec =region 22
italien=region 12
espagnol=region 14
royaume uni=region 33 (angleterre , ecosse
belgique =region 44

bonjour suite a un entretien en MP avec un membre de la communauté
il y avait des fonctions vba qui ne pouvaient fonctionner sur MAC
j'ai donc modifié certaines petites choses
v 4.3.0.0

j'invite d'ailleurs @duplaly a venir chercher cette version a fin qu'il puisse s'en servir sur feuille et userform

enjoy! 😉

Bonjour à tous
pour une demande récente j'ajoute la possibilité de taper l'année avec le clavier dans la bombobox pour l'année

Bonjour à tous
je n'y ai jamais pensé mais l'idée est bonne donc ; après une demande j'ajoute la sortie par la touche ESC sur la version 4.2.3

bonjour a tous
Version 4.2.2
j'ajoute les jours fériés pour la Belgique c'est la région 44
et .. ça va faire plaisir a @ChTi160 j’intègre définitivement son idée
le carré date d'aujourd'hui devient donc cliquable
c'est un raccourci pour revenir au mois en cours dans le calendrier

bonjour a tous
j'ai ajouté le positionnement sur textbox et shapes sur feuille
et la fonction showCenter qui l'affiche au centre de l’écran

bonjour a tous
juste une petite correction pour les numéros de semaine
l'index pour weekday n'etait pas dynamique

VB:

'mise ajour du clavier
Public Sub ReloadClavier()
    Dim X&, I&, A&, NB_JOURS&, Y&, WkD&, j&
    If Cbmonth.Value = "" Or Cbyear.Value = "" Then Exit Sub
    Select Case Calendar.region
    Case 0, 22: WkD = vbSunday: j = 1
    Case 1, 2, 12, 13: WkD = vbMonday: j = 2
    End Select
    X = Weekday(DateSerial(Calendar.Cbyear, Calendar.Cbmonth.ListIndex + 1, 1), WkD)
    NB_JOURS = Day(DateSerial(Cbyear.Value, Cbmonth.ListIndex + 2, 0))
    For I = 1 To 6: Me.Controls("sem" & I) = "": Next
    For I = 1 To 42
        With Calendar.Controls("j" & I)
            .Caption = "": .Enabled = False: .BackColor = bt2Back: .ControlTipText = ""
            If I >= X And A <= NB_JOURS - 1 Then
                .Visible = True: A = A + 1: .Enabled = True: .Caption = A: .BackColor = bt1Back

                Y = CLng(DateSerial(Calendar.Cbyear.Value, Calendar.Cbmonth.ListIndex + 1, A))
                Controls(.Tag).Caption = Evaluate("= TRUNC((" & Y & "-WEEKDAY(" & Y & "," & j & ")+11-DATE(YEAR(" & Y & "-WEEKDAY(" & Y & " ," & j & ")+4),1,1))/7)")
                .BackColor = férié(I)
            End If
        End With
    Next
End Sub