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

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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û ?
 
ah ben j'ai trouvé
il faut déplacer l'appel config après le select case et supprimer le repaint dans le activate
VB:
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
 
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour