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 · 31 Août 2023

patricktoulon à dit:
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

placer un userform en lieu et place d'un range

pour placer un userform au niveau d'une cellule il y plusieurs choses a prendre en compte la position de l'application les scrolls vertical et horizontal les ligne éventuellement figées qui faussent les calculs le fractionnement de fenêtre qui...

excel-downloads.com

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

patricktoulon · 31 Août 2023

re
si tu cherche bien je crois avec une petite usine a gaz @Dudu2 a trouvé pour deux ecrans
après je peux faire une légère modif pour apparenter le calendar a l'application excel
je vais essayer de faire une demo avec un userform vide voir si mon idée est possible

patricktoulon · 31 Août 2023

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é

Gen Rose · 31 Août 2023

patricktoulon à dit:
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é

Le Userform apparaît l'instant d'une nanoseconde et disparaît, mais il fait ça toujours au même endroit, que ma fenêtre soit partiellement ouverte ou en plein écran

patricktoulon · 31 Août 2023

chez moi ca donne ça

Gen Rose · 31 Août 2023

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

Microsoft 365 Adaptation d'un Userform calendrier

Gen Rose

XLDnaute Impliqué

Pièces jointes

patricktoulon

Gen Rose

XLDnaute Impliqué

placer un userform en lieu et place d'un range

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Gen Rose

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

Gen Rose

XLDnaute Impliqué

Discussions similaires