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

PatLep

XLDnaute Nouveau
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
 

Pièces jointes

  • test.xlsx
    24.8 KB · Affichages: 14
Solution
Bonjour PatLep,

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

L'instruction
VB:
 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 !?

Oui merci. J'ai maintenant tout compris

sylvanu

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

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.
 

Pièces jointes

  • test (36).xlsm
    83.8 KB · Affichages: 14

PatLep

XLDnaute Nouveau
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 :

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
 

Pièces jointes

  • Formulaire accompagnemnt individualisé.xlsx
    58.2 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • Formulaire accompagnemnt individualisé.xlsm
    118.3 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
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
 

Pièces jointes

  • test(2)+calendar V4.4.2 patricktoulon.xlsm
    93.4 KB · Affichages: 23

PatLep

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Pièces jointes

  • Formulaire d'accompagnement individuel spécialisé V 2.0.1.xlsm
    116.5 KB · Affichages: 2

PatLep

XLDnaute Nouveau
Bonsoir,
Bis repetita

Voir PJ, il suffit de changer :
VB:
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.
 

Pièces jointes

  • Formulaire d'accompagnement individuel spécialisé V 2.0.xlsm
    115.6 KB · Affichages: 2
C

Compte Supprimé 979

Guest
Bonjour PatLep,

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

L'instruction
VB:
 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 !?
 

Discussions similaires

Statistiques des forums

Discussions
312 211
Messages
2 086 299
Membres
103 173
dernier inscrit
Cerba95