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

[patricktoulon]

Bonjour
à Voila le correctif a été mis en place dans la ressource

 

[F22Raptor]

Merci ! Je regarderai ça demain !

 

[F22Raptor]

Bonjour à tous, et encore bravo et merci à toi Patrick.
J'ai implémenté le calendrier dans quelques fichiers, et les tests sur Excel 365 se passent au mieux !

J'avais une question sur la rapidité d'affichage : quand on le lance, le calendrier s'affiche de suite, mais la le label "ldate" avec la date du jour met un temps (1 seconde ?) avant d'afficher la date J.

Pensant que ça pouvait être dû au chargement de la listbox des années, de 1800 à 2525, je l'ai raccourcie sur une plage 2008 - 2045.
Mais ça n'accélère pas + l'affichage de la date jour dans le label central.

Sais-tu à quoi c'est dû ?

 

[patricktoulon]

Bonjour @F22Raptor
je vais vérifier j'ai remarqué ça moi aussi pas aussi prononcé mais effectivement il y a une latence
je corrige ça dans la mises a jour qui arrive demain ou après demain

 

[F22Raptor]

Super ! Merci Patrick !

 

[patricktoulon]

ah ben j'ai trouvé
il faut déplacer l'appel config après le select case et supprimer le repaint dans le activate

Private Sub UserForm_Activate()
    Dim I&, TRT$
    
    If Not lance Then
        Unload Me
        MsgBox " c'est une boite de dialogue plus un userform" & vbCrLf & "il se lance uniquememt par une de ses deux fonctions " & vbCrLf & """ShowX"" ou   ""ShowTopLeft"""
        Exit Sub
    End If
 
    If Me.top = 0 Then
        valeur = valeur
        Me.Hide
    End If
      If Not Obj Is Nothing Then
        Select Case TypeName(Obj)
            Case "Label"
                OldValue = Obj.Caption
            Case "TextBox", "Range"
                OldValue = Obj.Value
            Case "CommandButton"
                OldValue = Obj.Caption
            Case "Shape"
                OldValue = Obj.TextFrame.Characters.Text
        End Select
    Else
        '
    End If
    Select Case region
        Case 0
            TRT = " US - Calendar"
            ldate = "Today is" & vbCrLf & Format(Date, "mm/dd/yyyy")
        Case 1
            TRT = "Calendrier  - Français"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 11
            TRT = "amzeriadur g.  - Breton"
            ldate = "hiziv" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 2
            TRT = "CANADIAN - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
        Case 12
            TRT = "calendario - italiano"
            ldate = "Oggi" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 22
            TRT = "CANADA(QUEBEC) - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
        Case 13
            TRT = "Suisse - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 14
            TRT = "calendario españa"
            ldate = "  Hoy  " & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 15
            TRT = "calendário português"
            ldate = "  Hoje  " & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 33
            TRT = "GB - Calendar"
            ldate = "Todays is" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 35
            TRT = "Deutscher Kalender"
            ldate = "Heute" & vbCrLf & Format(Date, "dd/mm/yyyy")
        Case 44
            TRT = "Belgique - Calendrier"
            ldate = "Aujourd'hui" & vbCrLf & Format(Date, "yyyy-mm-dd")
    End Select
  config
    Me.Caption = TRT
    'mappage pour evenement unique (42 boutons) (intra userform sans module classe)
    For I = 1 To 42
        Set clavier(I).bout = Me.Controls("j" & I)
    Next
    'Me.Repaint
End Sub

 

[F22Raptor]

Wow ! En effet c'est désormais fulgurant et radical ! 😀

Merci pour l'update !

 

[patricktoulon]

patricktoulon a mis à jour collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal avec une nouvelle entrée de mise à jour:

collection boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal V5.4 +skinner

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)
Regarde la pièce jointe 1221560

2° ajout des boutons d’intégration et export xlam(créateur de complément calendar)
3° ajout des fonctions
A...

Lire le reste de cette entrée de mise à jour...

 

[patricktoulon]

patricktoulon a mis à jour collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal avec une nouvelle entrée de mise à jour:

collection-fausse-boite-de-dialogue-patricktoulon-episode-1-le-calendrier-modal 2026

bonjour à
une petite mise a jour concernant les regions
il vous est possible désormais de paramétrer une region par defaut autre que celle du system
a l'aide du 3eme interface incorporé dans le Calendar
cet interface vous est accesible en live en haut a droite du Calendar par le bouton avec l'icone mollette
Regarde la pièce jointe 1229097
dans la petite video qui suit je vous montre comment on s'en sert

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

Lire le reste de cette entrée de mise à jour...

 

[Alain 79]

Bonjour Patrick,
Toujours aussi performant et génial.
Toutefois, je rencontre un petit problème (un simple petit détail) à l'affichage je n'arrive pas à avoir la boîte de dialogue entière (manque le bord à droite et en bas)

 

[patricktoulon]

re
bonjour Alain 79
oui a ce que je vois tu a le theme avec les gros coin arrondi de win11
difficilement solutionnable sans api dwrm
cela dit tu peux essayer ces deux lignes en remplacement dans la fonction show

  Me.Width = Calendar.FondCal.Left + Calendar.FondCal.Width + (Calendar.Width - Calendar.InsideWidth)
    Me.Height = Calendar.FondCal.top + Calendar.FondCal.Height + (Calendar.Height - Calendar.InsideHeight)

mais c'est non garanti après si la mesure dans l'instanté n'est pas suffisante ,il te faudra ajouter+ quelque chose toi même

 

[Alain 79]

Bonsoir Patrick
Merci de m'avoir répondu.
Finalement la modification est efficace et cela fonctionne parfaitement.
Bravo