Calendrier

0

Bonjour guyguay,

Je te propose ce fichier Excel : https://mon-partage.fr/f/lgL9yvUg/

C'est un fichier .xlsm car il contient du code VBA (tu comprendras
plus loin pourquoi c'est nécessaire).

-----------------------------------------------

Pour réaliser ta demande, j'ai ajouté ce contrôle ActiveX :
« Microsoft Date and Time Picker Control 6.0 (SP6) ».

Si tu as comme moi Excel 2007, alors tu n'as rien à faire de spécial
dans le sens où ce contrôle est déjà disponible par défaut.

Je pense que c'est idem pour les versions ultérieures ; s'il n'est pas
disponible, il faudra l'installer à partir d'internet.

-----------------------------------------------

ATTENTION : l'affichage de ce contrôle est instable car sans ajouter
le code VBA nécessaire, il y a un changement d'affichage inadéquat,
qui donne un très mauvais effet visuel : la case de la liste déroulante
se dédouble et l'une est décalée par rapport à l'autre ; et une reste
une vraie case de liste déroulante alors que l'autre n'est qu'un effet
visuel de mauvais aloi : c'est une sorte de « rémanence ».

Le code VBA inclus dans ThisWorkbook, sub Workbook_Open()
y remédie, mais ça m'a obligé à convertir ton fichier .xlsx en
fichier .xlsm, car un fichier .xlsx ne peut pas contenir de macro.

Grâce à ce code VBA, tu ne te rendras même pas compte du
désagrément visuel que j'ai évoqué : c'est ok dès l'ouverture
du fichier ! ;)

-----------------------------------------------

Le problème d'instabilité d'affichage étant réglé, voyons la suite :

Le contrôle est visible en haut de la colonne C, et la cellule liée correspondante

est la cellule C2 ; la date est au 06/11/2017 ➯ 06/11/2017 en C2, mais pour
éviter un affichage double de cette date, j'ai mis une couleur de police (texte)
« blanc » pour que le contenu de C2 ne se voit pas (car sur un fond blanc) :
si tu veux, c'est comme le style « caméléon » (une nouvelle mode ultra-chic
de la jet society, il paraît). ;P

J'ai essayé de mettre à la cellule liée un format personnalisé pour avoir
« lundi 6 novembre 2017 », mais ça ne tient pas : si on sélectionne une
autre date, ça revient au format JJ/MM/AAAA sans tenir compte du
format personnalisé : instable aussi ! mais avec ce que j'ai fait, c'est ok.

Il y a donc un seul contrôle, qui est au 06/11/2017 ; en C10 : =--C2
⚠ Ne mets pas =C2 car sinon, là aussi, ça ne tiendra plus compte
du format personnalisé et le format JJ/MM/AAAA sera appliqué.

-----------------------------------------------

Il semble que tu voulais un calendrier dans chacune de ces cellules :
C10, C12, C14, C16, C18, C20 (soit 6 contrôles Date Picker) ;
vu le contexte, c'est inutile, et ce qui suit est bien plus simple :

En C12 : =C10+1
En C14 : =C12+1
En C16 : =C14+1
En C18 : =C16+1
En C20 : =C18+1

-----------------------------------------------

Bien que le nom du fichier soit "Du 20 au 24 Nov 2017(.xlsm)",
j'ai volontairement mis une mauvaise date au 06/11/2017 ;
à toi de la changer en sélectionnant le 20 (novembre 2017) ;
tu pourras voir que tout s'adapte correctement grâce aux
formules vues ci-dessus.

Seule contrainte : l'utilisateur doit choisir une date uniquement dans
la 1ère colonne du calendrier, puisque c'est la colonne réservée pour
un Lundi ; rien ne l'empêche de choisir dans une autre colonne, mais
par exemple un « jeudi 23 novembre 2017 » en C10, ça ferait plutôt
un mauvais effet, car à droite de A10 = « LUNDI » ! ;)

-----------------------------------------------

Si tu veux ajouter du code VBA pour refuser une date qui n'est pas celle d'un
Lundi, je t'en laisse le soin : moi, j'ai reporté ça à la semaine des 4 jeudis... ;P
(si tu connais pas l'expression, c'est comme à la Saint Glin Glin ; une sorte
d'Arlésienne, quoi !)

-----------------------------------------------

J'espère que ma solution te plaira.
Merci de me donner ton avis.

Cordialement

Posté le 18 novembre 2017, 18:11
par rhodo

Calendrier

Questions similaires

Erreur

Signaler un problème