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

R

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: 13
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.
Trier par date Trier par votes

Staple1600

XLDnaute Barbatruc
Re

J'avais prévenu
Staple à dit:
(et voir qu'il y aura des soucis à venir)
Cliquez pour agrandir...
Selon la norme ISO, le 01/01/23 est dans la semaine 52.

NB: Quand la structure d'un classeur n'est pas "optimale", rien n'empeche de changer son fusil d'épaule ou son point de vue.

Qui formule la demande ?
Toi ?
Un tiers ?

PS: Il y a de nombreux exemples de calendriers/agenda sur le forum

Plannings et Calendriers

Fichiers Excel qui vous aideront à planifier les activités de votre vie privé
excel-downloads.com

Un exemple d'agencement simple est:
une seule feuille
avec deux spinbutton pour le choix de l'année et du mois.

Cela évite bien des complications et des messages d'erreur en provenance de VBA
 
Dernière édition:
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
J'ai regardé le lien que tu m'as donné il y des choses intéressantes.
La demande est faite par mon supérieur (pas facile)...
Je vais protéger les zones où ils ne devront pas aller en expliquant que l'on doit cliquer sur la première cellule, ça détournera le problème sans le régler, je l'avoue.
Merci encore mille fois pour ton aide.
Je reviendrai en cas de besoin.
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
A partir de ce code, comment l'appliquer uniquement pour la zone k5:bk5
Merci
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
Voici un petit exemple fait sur le pouce (le temps que ma soupe refroidisse)
(que permet Excel 365)
Juste deux formules (avec SEQUENCE) , deux MFC, et une liste de validation et controle de formulaire
(pas de VBA)
NB: J'ai oublié : il y a une troisième formule pour le N° de semaine.
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
Pour répondre à ta demande
(mais là encore, il y aura un problème)
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N_SEM$
On Error Resume Next
If Not Intersect(Target, [B6:BK6]) Is Nothing Then
N_SEM = CStr(Application.IsoWeekNum(Target))
Worksheets(N_SEM).Activate
End If
End Sub

EDITION: Bonsoir job75
Merci pour la précision.
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Merci beaucoup Staple1600, c'est très intéressant comme approche.
Serait-il possible d'avoir ton exemple pour que je puisse l'adapter afin qu'apparaissent les semaines en agenda.
Sinon, ce ne pas grave je vais essayer de le faire ça pourra permettre d'avoir 3 propositions à présenter à mon chef.
Encore merci pour l'idée
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

@ReneDav14000
Retrouvé dans mes archives
J'ai fait une petite macro juste pour que tu puisses tester plus facilement
Donc sur un classeur vierge, lance la macro ci-dessous
NB: La macro ne doit servir qu'à insérer les formules.
Puisque l'interet est de montrer qu'on peut réaliser un petit calendrier avec une seule formule matricielle.
Code: 
Sub Calendrier_Formule_MAT()
[B3:H3] = [{"L","M","M","J","V","S","D"}]: [B1] = "2022": [F1] = "12": [E1] = "=(""1-""&RC[1])*1"
[I1] = "=DATE(RC[-7],RC[-3],1)-WEEKDAY(DATE(RC[-7],RC[-3],1),2)": [B4:H9].FormulaArray = "={0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}+R[-3]C[7]"
[B4:H9].NumberFormat = "d/mm": [E1].NumberFormat = "mmmm": [I1].NumberFormat = ";;;": [A1] = "ANNEE": [D1] = "MOIS"
[B3].CurrentRegion.Borders.Value = 1: [B1,F1].Interior.Color = vbYellow: [B1,F1].Font.Bold = -1
End Sub
Ensuite pour tester, ne modifie que les cellules jaunes.
(en B1 saisir une année (sur 4 chiffres) et en F1 un mois de 1 à 12)
Il ne faut pas saisir de date

Redis-moi si cela fonctionne sur ton PC
(ou si tu as des questions sur la formule matricielle que tu peux voir en sélectionnant la plage de cellules B4:H9)

(On peut ensuite ajouter quelques améliorations esthétiques avec MFC et Données/Validation (choix année) et l'ajout d'un contrôle formulaire (choix des mois) => une toupie ou une barre de défilement)

Ci-dessous, le résultat de la macro avec quelques ajouts cités plus haut.
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Bonjour Staple1600
Merci beaucoup pour cet exemple.
Où dois-je insérer cette macro, dans thisworkbook, la feuille ?
Je vais essayer dans l'une ou l'autre en attendant.
Encore merci
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Je viens de tester, le code dans un module et appelle dans la feuille.
C'est très intéressant comme façon de faire. Il faudrait pouvoir y adjoindre un code pour accéder aux autres feuilles en cliquant sur la cellule du jour.
Il faudrait également cacher les jours qui n'ont rien à voir avec le mois. Avec des MFC je devrais pouvoir y arriver.
Il faut aussi calculer les numéros de semaine
 
Dernière édition:
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Comment dire que si dans la sélection il y une cellule vide alors la macro ne se déclenche pas ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

S
  • Question
Microsoft 365 insérer une note avec enregistrement des données
Réponses
5
Affichages
260
sebastien176
S
S
  • Question
Microsoft 365 Problème d'affichage du calendrier dans mes cellules
Réponses
9
Affichages
303
scoubidou35
S
  • Question
XL 2021 Mise en forme conditionnelle date du jour
Réponses
4
Affichages
309
AIXELS
V
  • Question
Microsoft 365 besoin d'aide sur une formule comptage le nombre de jour dans un calendrier
Réponses
7
Affichages
438
vincentast
V
  • Résolu(e)
XL 2019 Heures réelles du mois
Réponses
3
Affichages
260
eddy1975
Z
  • Question
Microsoft 365 Figer les prix Produits vendu tableau2, après mise à jour prix dans Tableau 1
2
Réponses
23
Affichages
696
sousou
A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
198
AD95
A
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
15
Affichages
519
LuanaDDC
L
P
  • Question
XL 2019 Protection dans une feuille.
2 3
Réponses
33
Affichages
804
Paulle
P
E
  • Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
626
fanch55
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…