Microsoft 365 Adaptation d'un Userform calendrier

[Gen Rose]

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

 

[Gen Rose]

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]

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

 

[Gen Rose]

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]

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]

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:

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]

bONJOUR @Gen Rose
les indications

 

[Gen Rose]

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]

rassure moi tu n'est pas sur mac?

 

[Gen Rose]

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]

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

 

[Gen Rose]

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

    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]

non
Unload calendar
Doevents

 

[Gen Rose]

non
Unload calendar
Doevents

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

 

[patricktoulon]

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