Microsoft 365 Adaptation d'un Userform calendrier

Gen Rose

XLDnaute Impliqué
Supporter XLD
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 ❤️
 

Pièces jointes

  • Test_Macro_Calendrier.xlsm
    66 KB · Affichages: 15
Solution
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
demo.gif

Gen Rose

XLDnaute Impliqué
Supporter XLD
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 🥰
 

Pièces jointes

  • Calendrier_envois_VF.xlsm
    62.5 KB · Affichages: 9

Gen Rose

XLDnaute Impliqué
Supporter XLD
Bonjour
tu le prends dans la ressource avec le bouton télécharger
et tu a la video qui t explique
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:
1693395166066.png

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!
 
Dernière édition:

Gen Rose

XLDnaute Impliqué
Supporter XLD
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:

1693401067352.png
 

Discussions similaires

Statistiques des forums

Discussions
313 314
Messages
2 097 052
Membres
106 820
dernier inscrit
Kalouppppp