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

ReneDav14000 à dit:

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.

Cliquez pour agrandir...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    On Error Resume Next
    With Sheets(Format(Target, "mmmm"))
        .Activate
        .Application.Goto .Cells(4, Day(Target) + 1)
    End With
End Sub

Staple1600 à dit:

Bonjour @Jacky67

Merdre, je suis allé à l'encontre de mon principe KISS!

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Jour$, col&, Rng As Range
If IsDate(Target) Then
Jour = Day(Target)
With Sheets(MonthName(Month(Target)))
.Activate
Set Rng = .Range("B4:AF4")
col = Application.Match(Application.Index(Rng, 1, Jour), Rng, 0)
.Cells(4, col + 1).Select
End With
End If
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour

Pourquoi répéter N fois le calendrier de la feuille Calendrier sur les autres feuilles ?
C'est anti-ergonomique non ?

Cliquez pour agrandir...

Staple1600 à dit:

Re

Pour sélectionner selon la semaine, tu peux voir de ce côté
(et voir qu'il y aura des soucis à venir)

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N_SEM$
N_SEM = CStr(Application.IsoWeekNum(Target))
Worksheets(N_SEM).Activate
End Sub

Par exemple quid si tu sélectionnes la cellule Q6 de la feuille Calendrier ?

Cliquez pour agrandir...