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

[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...