XL 2016 Cliquer sur un jour du calendrier pour aller dans une autre feuille

ReneDav14000

XLDnaute Occasionnel
Bonsoir à tous,
Dans le fichier joint, il y a une feuille "Calendrier" dans laquelle se trouve un calendrier des douze mois de l'année.
Dans les autres feuilles il y a le détail du mois à plat. Ces feuilles serviront d'agenda de travail.
Je souhaiterai mettre en place un code qui me permettrait lorsque je clique sur un jour du calendrier des 12 mois, d'aller directement à ce jour dans une feuille du classeur.
Par exemple : Je clique sur le 15 mars, alors la feuille Mars s'affiche et on se positionne au 15.
Avez-vous une idée de comment réaliser cela ?
J'ai essayé de chercher mais ce n'est pas facile de trouver les bons mots à mettre dans les moteurs de recherche.
Merci par avance pour vos suggestions.
 

Pièces jointes

  • agenda_macro .xlsm
    85.3 KB · Affichages: 12
Solution
Re

@ReneDav14000
Donc finalement, c'était bien des points ;)

Une formule possible pour masquer les jours "hors mois"
Ici pour janvier
=MOIS(C7)<>MOIS(DATE($F$2;1;1))

NB: Ta formule ne fonctionnait pas car C2 ce n'est pas une date, mais un nombre
(l'année sur 4 chiffres)

PS: J'ai oublié de te dire bravo pour ta persévérance ;)
Je vois que tu as réussi à mettre toutes les formules et la liste de validation.

Il reste le problème de la semaine 52/53 à traiter car selon le mois, on ne sera pas dans le bon agenda.
Exemple: En 2023
Semaine 52 en B7 et en AQ20, sauf que ce n'est pas la même année ;)
Donc problème pour le VBA dans la procédure évènementielle.

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
J'ai du l'écrire quelque part
Si tu testes mes codes, n'hésites pas à poser des questions
Et quand tu testes mes codes, suis les consignes

Ce sont bien des points dans la formule (si tes paramètres régionaux sont: France) et pas des points virgules
(sinon j'aurai mis des points virgules ;))

la formule doit être validée matriciellement
C'est à dire en faisant : CTRL+SHIFT+ENTER
simultanément
 

ReneDav14000

XLDnaute Occasionnel
Re

@ReneDav14000
J'ai du l'écrire quelque part
Si tu testes mes codes, n'hésites pas à poser des questions
Et quand tu testes mes codes, suis les consignes

Ce sont bien des points dans la formule (si tes paramètres régionaux sont: France) et pas des points virgules
(sinon j'aurai mis des points virgules ;))

la formule doit être validée matriciellement
C'est à dire en faisant : CTRL+SHIFT+ENTER
simultanément
Chez moi elle ne veut pas des points...
1667917022784.png
 

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
Donc finalement, c'était bien des points ;)

Une formule possible pour masquer les jours "hors mois"
Ici pour janvier
=MOIS(C7)<>MOIS(DATE($F$2;1;1))

NB: Ta formule ne fonctionnait pas car C2 ce n'est pas une date, mais un nombre
(l'année sur 4 chiffres)

PS: J'ai oublié de te dire bravo pour ta persévérance ;)
Je vois que tu as réussi à mettre toutes les formules et la liste de validation.

Il reste le problème de la semaine 52/53 à traiter car selon le mois, on ne sera pas dans le bon agenda.
Exemple: En 2023
Semaine 52 en B7 et en AQ20, sauf que ce n'est pas la même année ;)
Donc problème pour le VBA dans la procédure évènementielle.
 
Dernière édition:

ReneDav14000

XLDnaute Occasionnel
Bonjour Staple1600,
Merci pour tes encouragements et ton aide. Après mon AVC je pensais que tout ça serait fini pour moi, mais avec de la persévérance et de la patience (surtout de ceux qui nous aident) on peut y arriver, c'est difficile, fatiguant, mais on y arrive.
Je vais mettre ta formule en place pour les jours hors mois et regarder pour les années de 53 semaines.
Encore mille merci
 

ReneDav14000

XLDnaute Occasionnel
Staple1600,
Cette formule ne fonctionne pas, ou alors je l'ai mal entré mais dans la MFC rien ne se passe
"=MOIS(C7)<>MOIS(DATE($F$2;1;1))"

Pour le numéro de semaine j'ai mis cette formule qui semble régler le problème
=SIERREUR(NO.SEMAINE.ISO(C7);"")

Qu'en penses-tu ?
 
Dernière édition:

ReneDav14000

XLDnaute Occasionnel
Bonjour à tous,
J'ai bien avancé dans mon projet, cependant je suis freiné par 3 petits soucis que je n'arrive pas à résoudre.
1 - Lorsque je clique sur une date qui va ouvrir la feuille correspondant à la semaine, j'aimerai que l'on positionne directement sur la même date de la feuille (par ex : je clique sur le 18/01 semaine 3 alors dans la feuille 3 la cellule correspondant au 18/1 est sélectionnée.

2 - CACHER les jours hors mois par une MFC (couleur blanche) pas les supprimer car j'en ai besoin.

3 - Si j'écris en AK27 de la feuille "Calendrier" alors le texte est copié dans la cellule du 9 janvier de la semaine correspondant (feuille "3" - cellule AP2).

Il n'y a pas de mot de passe dans le verrouillage des feuilles (pour l'instant)

Merci par avance pour vos suggestions ou solutions
 

Pièces jointes

  • Agenda_Heb.xlsm
    612.6 KB · Affichages: 11

Discussions similaires

Réponses
5
Affichages
124

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510