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

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)
1755687449728.png


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

  • J'aime
Réactions: Lorenzini et sylvanu
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

demo.gif
  • J'aime
  • J'adore
Réactions: Gen Rose et anthoYS
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
demo7.gif
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

demo7.gif
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
Retour