Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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: 14
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
 

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
Donc je te laisse faire les autres mois sur le même principe
(soit manuellement, soit avec la macro en l'adaptant pour chaque mois)

Tu vois quoi changer dans la macro du message#59 pour ce faire ?

Je repasse plus tard, je dois m'absenter jusqu'à 23h27.
 

ReneDav14000

XLDnaute Occasionnel
Chez moi elle ne veut pas des points...
 

ReneDav14000

XLDnaute Occasionnel
Voici mon fichier, j'ai pas mal avancé dans sa fabrication. J'ai essayé de cacher les jours qui n'appartiennent pas au mois, mais sans succès (regarde un essai en MFC) pour janvier.
 

Pièces jointes

  • Agenda_Hebdo1.xlsm
    584.6 KB · Affichages: 8

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: 12

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…