Microsoft 365 Adaptation d'un Userform calendrier

Gen Rose · 29 Août 2023

Bonjour tlm,
Le forum,

J'ai trouvé un userform de calendrier (datepicker) dans les ressources créé par @Dudu2.

J'ai commencé à adapter le tout à mon document afin de faciliter le choix de date pour les gens.
En ce moment, j'ai créé une zone test en H qui copie essentiellement la colonne E sur la feuille "Consultation".

J'ai plusieurs problèmes et j'ai besoin de votre aide.
Les voici:

Le format de date n'est pas reconnu (H4) et la formule matricielle en H8 ne fonctionne pas;
Si j'ajoute une colonne dans cette page, cela la corrompt en entier et même ma colonne en E ne fonctionne plus;
Si je tente de modifier l'apparence du userform (couleur) , il ne fonctionne plus; et
j'ai un problème de liaison probablement lié quelque part dans le code (version?)

J'ai utilisé le document original et retiré ce qui n'était pas nécessaire en prenant soin de tout garder (j'ai ajouté un apostrophe devant les lignes non-nécessaires).

Mon objectif est que mes formules matricielles fonctionnent, que le format de date soit le bon et de modifier l'apparence du calendrier.

Merci infiniment à tous

patricktoulon · 30 Août 2023

re
c'est donc le theme XLD(avec les couleur du forum )
ben voila
juste pour info je ne l'ai pas fait mais tu aurais pu coder l'appel tout simplement comme ca dans test2

VB:

Sub test2() 'test de la fonction showx
    [E4].Value = Calendar.ShowX([E4], 2, 0, 1)
End Sub

Gen Rose · 29 Août 2023

J'ai changé mon fusil d'épaule avec une nouvelle ressource trouvée sur le forum créé par PatrickToulon.
Je l'ai adapté afin de déclencher le calendrier par un bouton plutôt qu'un clic droit dans une cellule.

Je partage pour tout ceux que cela peut intéresser

patricktoulon · 30 Août 2023

re
Bonsoir
pourquoi n a tu pas pris la dernière version qui concerne justement les couleurs

Gen Rose · 30 Août 2023

patricktoulon à dit:
re
Bonsoir
pourquoi n a tu pas pris la dernière version qui concerne justement les couleurs

Quelle version? Dans le même fil?
Peux-tu me pointer dans la bonne direction? Merci

patricktoulon · 30 Août 2023

Bonjour
tu le prends dans la ressource avec le bouton télécharger
et tu a la video qui t explique

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal - Mises à jour

excel-downloads.com

Gen Rose · 30 Août 2023

patricktoulon à dit:
Bonjour
tu le prends dans la ressource avec le bouton télécharger
et tu a la video qui t explique

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal - Mises à jour

excel-downloads.com

Re,

J'ai testé le calendrier pour voir les différents thèmes dans le document original que j'ai téléchargé et j'obtiens un bug (la fameuse erreur 91) de mon côté, le voici:

J'ai tenté l'ajout Is nothing mais pas plus de succès:

VB:

Private Sub Valider_Click()
    Dim uf As Object, CtrL As Control, cheminFond$, A&, Tabtheme, cel As Range, Lst, Nom$, R As Range, ReP As VbMsgBoxResult
    cheminFond = ThisWorkbook.Path & "\fond.jpg"
    Unload Calendar
    Set uf = ThisWorkbook.VBProject.VBComponents("Calendar")
    For Each CtrL In Me.Controls
        If CtrL.Tag = "thema" Or CtrL.Tag = "themaF" Then
            uf.designer.Controls(CtrL.Name).BackColor = CtrL.BackColor
        If uf Is Nothing Then
        End If
        End If
    Next

Une idée pourquoi il ne fonctionne pas?
Sinon j'adore cette version modifiable et j'aimerais l'adapter!

patricktoulon · 30 Août 2023

bONJOUR @Gen Rose
les indications

Gen Rose · 30 Août 2023

patricktoulon à dit:
bONJOUR @Gen Rose
les indications
Regarde la pièce jointe 1177502

Re,

Bien sûr çà c'est déjà fait
D'autres idées?

patricktoulon · 30 Août 2023

rassure moi tu n'est pas sur mac?

Gen Rose · 30 Août 2023

patricktoulon à dit:
rassure moi tu n'est pas sur mac?

Non un PC HP pour le travail et ici nous sommes sur 365 mais je travaille sur l'appli bureau (jamais en ligne)

patricktoulon · 30 Août 2023

dans le doute ajoute un doevents après le "unload calendar "
en dessous bien sur hein

Gen Rose · 30 Août 2023

patricktoulon à dit:
dans le doute ajoute un doevents après le "unload calendar "
en dessous bien sur hein

Hmn... je ne m'y connais pas en VBA mais ainsi?
Car si oui, ça ne fonctionne pas

VB:

    Unload Calendar
    uf = DoEvents()
    Set uf = ThisWorkbook.VBProject.VBComponents("Calendar")
    For Each CtrL In Me.Controls
        If CtrL.Tag = "thema" Or CtrL.Tag = "themaF" Then
            uf.designer.Controls(CtrL.Name).BackColor = CtrL.BackColor
        End If
    Next

Résultat:

patricktoulon · 30 Août 2023

non
Unload calendar
Doevents

Gen Rose · 30 Août 2023

patricktoulon à dit:
non
Unload calendar
Doevents

Non même chose après avoir retiré tout sauf DoEvents.

patricktoulon · 30 Août 2023

ben là mon pauvre
je peux plus rien te dire
tu es bien sur d'avoir activé l'accès?

Microsoft 365 Adaptation d'un Userform calendrier

Gen Rose

XLDnaute Impliqué

Pièces jointes

patricktoulon

Gen Rose

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal - Mises à jour

Gen Rose

XLDnaute Impliqué

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal - Mises à jour

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Discussions similaires