XL 2019 Créer un calendrier sous forme de POP-UP

[PatLep]

Bonjour,

J'aimerais avoir la possibilité d'avoir 3 fenêtres de calendrier sous forme de POP-UP distinctes d'une à l'autre.

Voir dans le fichier TEST en attachement

J15

F19

I19

Le calendrier que vous voyez est une image

Merci

 

[Staple1600]

Bonsoir @PatLep, le fil

Tu as affecté cette macro à ta forme automatique
'D:\EXCEL\Calendrier.xlsm'!getdate
(or on ne dispose pas du classeur Calendrier.xlsm)

Quel le code de la macro getdate ?

 

[sylvanu]

Bonjour PatLep, Stapple,

J'aimerais avoir la possibilité d'avoir 3 fenêtres de calendrier sous forme de POP-UP distinctes d'une à l'autre.

Je suppose que le but est d'entrer une date dans chaque cellule via un userform?
Si oui, on peut exploiter le Calendar de Patricktoulon, qui est en ressource XLD :

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

excel-downloads.com

En PJ un fichier test comme exemple, où j'ai transférer de façon "brute" le calendrier de Patrick, à peaufiner, optimiser.
Un clic droit sur J15, F19, I19 ouvre un userform sous forme de calendar.

 

[PatLep]

Bonjour PatLep, Stapple,


Je suppose que le but est d'entrer une date dans chaque cellule via un userform?
Si oui, on peut exploiter le Calendar de Patricktoulon, qui est en ressource XLD :

collection fausse boite de dialogue (Patricktoulon) episode 1 Le calendrier Modal

Bonjour a tous voici ma dernière version de mon calendrier all excel version Une video très courte en bas dette présentation vous montre comment j'installe le calendar de mon fichier dans un autre fichier une autre video dans les mises a...

excel-downloads.com

En PJ un fichier test comme exemple, où j'ai transférer de façon "brute" le calendrier de Patrick, à peaufiner, optimiser.
Un clic droit sur J15, F19, I19 ouvre un userform sous forme de calendar.

Bonjour, j'ai joint mon fichier principale. J'aime bien le calendrier de M. Patrick Toulon. pouvez-vous me le transférer aux mêmes endroits dans les cellules respectives ?
ou sinon, est-ce que je peux le faire moi-même avec votre fichier Test (36).xlsm?

Merci

 

[sylvanu]

Vous abusez c'est vraiment simple. Voir PJ.

où j'ai transférer de façon "brute" le calendrier de Patrick, à peaufiner, optimiser.

Je suppose que cela ne sera jamais fait.
Alors je l'ai mis au moins en calendrier canadien, sinon reprendre les "case" et mettre le bon paramètre.

 

[Staple1600]

@PatLep
J'attends toujours une réponse à ma question du message#2...

C'est aussi simple de répondre que de faire la manip détaillée par sylvanu dans le message#5)

 

[patricktoulon]

bonsoir ou bonjour c'est comme vous voulez
ci joint le classeur avec le calendar V4.4.2 décembre 2021
y a eu beaucoup de changement depuis c'est @sylvanu qui va être contant
il a plein d'option en plus et on peut modifier les couleur aisément dans vbe
c'est la 2d fois que je donne cette version car je l'ai pas mis en ressource because je voudrais dès que j'ai le temps faire une démo car il a vraiment plein d'options
en commentaire en début de module il y toutes les façons de l'appeler
et il peut même fonctionner en modal , non modal , multicells et même avec un tableau de date pour les férié
sur userform aussi bouton label textbox
bref c'est du bon
te reste plus qu'a cliker droite sur j15 , I19 , F19 là c'est du tout cuit

 

[PatLep]

Vous abusez c'est vraiment simple. Voir PJ.

Je suppose que cela ne sera jamais fait.
Alors je l'ai mis au moins en calendrier canadien, sinon reprendre les "case" et mettre le bon paramètre.

Merci beaucoup. J'ai opté pour ce calendrier.

 

[PatLep]

bonsoir ou bonjour c'est comme vous voulez
ci joint le classeur avec le calendar V4.4.2 décembre 2021
y a eu beaucoup de changement depuis c'est @sylvanu qui va être contant
il a plein d'option en plus et on peut modifier les couleur aisément dans vbe
c'est la 2d fois que je donne cette version car je l'ai pas mis en ressource because je voudrais dès que j'ai le temps faire une démo car il a vraiment plein d'options
en commentaire en début de module il y toutes les façons de l'appeler
et il peut même fonctionner en modal , non modal , multicells et même avec un tableau de date pour les férié
sur userform aussi bouton label textbox
bref c'est du bon
te reste plus qu'a cliker droite sur j15 , I19 , F19 là c'est du tout cuit

Merci beaucoup pour le calendrier V4.4.2
C'est très apprécié

 

[PatLep]

Vous abusez c'est vraiment simple. Voir PJ.

Je suppose que cela ne sera jamais fait.
Alors je l'ai mis au moins en calendrier canadien, sinon reprendre les "case" et mettre le bon paramètre.

Bonjour, Voir un nouveau document ci-joint.
Pouvez-vous remettre le calendrier Canadien comme la dernière fois mais cette fois-ci aux cellules J20, F24 et I24 ? ca serait très apprécié. Merci beaucoup

 

[sylvanu]

Bonsoir,
Bis repetita

Vous abusez c'est vraiment simple. Voir PJ.

Voir PJ, il suffit de changer :

If Not Intersect(Target, Range("J15,F19,I19")) Is Nothing Then
par
If Not Intersect(Target, Range("J20,F24,I24")) Is Nothing Then

 

[PatLep]

Bonsoir,
Bis repetita

Voir PJ, il suffit de changer :

If Not Intersect(Target, Range("J15,F19,I19")) Is Nothing Then
par
If Not Intersect(Target, Range("J20,F24,I24")) Is Nothing Then

Merci beaucoup!
Je suis curieux de savoir comment vous faites pour intégrer un calendrier dans une cellule.
Avez-vous une liste d'étapes à suivre ?

Merci

 

[PatLep]

Bonsoir,
Bis repetita

Voir PJ, il suffit de changer :

If Not Intersect(Target, Range("J15,F19,I19")) Is Nothing Then
par
If Not Intersect(Target, Range("J20,F24,I24")) Is Nothing Then

Voir le fichier ci-joint.
J'aurais aussi besoin des calendrier dans les cellules J80 et J102
Merci beaucoup de votre aide.

 

[Compte Supprimé 979]

Bonjour PatLep,

Avez-vous au moins essayez de comprendre le code qu'on vous donne je en pense pas

L'instruction

 If Not Intersect(Target, Range("J20,F24,I24")) Is Nothing Then

détermine dans qu'elles cellules va se produire la suite du code.

Il faut le lire comme : Si l'intersection de la cellule actuelle est contenu dans la plage "J20,F24,I24" alors ...

Il SUFFIT donc d'ajouter les 2 cellules données à la liste en les séparant par une virgule...

Est-ce plus compréhensible !?

 

[patricktoulon]

Bonjour @BrunoM45
c'est a ce demander si mâcher le travail en vaut la peine