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: 14
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
re
Code:
Je suis maintenant à la recherche de la méthode pour positionner le calendrier tout près de la cellule visée.
Je parcours en ce moment différents fils depuis de bonne heure ce matin, j'ai fait des test mais c'est très complexe et pas concluant. Je vais donc plutôt me diriger vers YouTube afin de voir s'il n'y a pas un tuto pour ajouter cette commande au VBA déjà en place.
mon calendar le fait déja çatu le vois qu'il est bien a droite et au même top que la cellule non ?
🤣 🤣
si tu le veux carrément au même left et top que la cellule c'est
[E4].Value = Calendar.ShowX([E4], 0, 0, 2)

je ne vois pas ce que tu cherche d'autre tout est automatique avec mon calendrier

maintenant si tu veux la même chose pour l'appliquer a un autre userform
va voir ici c'est l'ancienne methode j'ai fait plus simple depuis mais bon c'est formateur

C'est du au fait que je travaille avec 3 écrans, mystère résolu!
J'imagine qu'il n'y a rien à faire mais ça n'est pas dramatique; le calendrier s'affiche contre la marge droite du doc
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
tiens essaie cette démo
click droite sur n'importe quelle cellule ou que soit la fenêtre de la l'application(ecran(1,2,ou 3)
et dis moi si le userform est bien positionné
 

Pièces jointes

  • positionnement d'un userform dans l'application sur cellule precises.xlsm
    18.4 KB · Affichages: 5

Gen Rose

XLDnaute Impliqué
Supporter XLD
Je n'ai pas les outils pour créer un GIF à partir du PC actuel mais la distance est plus grande entre l'endroit du clic et l'apparition du Userform. Pour être précis, 8 colonnes vers la gauche et 6 lignes vers le bas.

Lorsque je retire mes 2 écrans et conserve uniquement le portable, ça fonctionne parfaitement :)
 

Discussions similaires

Statistiques des forums

Discussions
312 207
Messages
2 086 246
Membres
103 163
dernier inscrit
Pelaez