Autres Comment puis-je m'en sortir?

[un internaute]

Bonjour le forum
Dans un module j'ai cette macro

Option Explicit

Sub ChangerNumeroAfficherSemaines()
    Dim Semaine As Long
    If MsgBox("Voulez-vous Changer de semaine ", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
        Range("AE1").Value = Range("AE1").Value + 1
        ActiveWindow.FreezePanes = False
        Semaine = Range("AE1").Value
        Rows((Semaine * 5) + 4).Select
    End If
    Application.ScreenUpdating = True
    If MsgBox("Voulez-vous Afficher les Semaines", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
        Semaine = Range("AE1").Value
        Rows.Hidden = False
        Range("AE1:AE1").Interior.ColorIndex = 36
        ActiveWindow.FreezePanes = False
        Rows(3).Select
    End If
    ActiveWindow.FreezePanes = True
    Range("A1").Select
End Sub

Dans la feuille PLANNING ANNUEL j'ai cette macro en double click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("AE1"), Target) Is Nothing Then
      Application.ScreenUpdating = False
        NoSem = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
        Range("AE1").Value = ((Date - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \ 7 + 1
    End If
  Application.ScreenUpdating = True
End Sub

1er double click
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("AE1"), Target) Is Nothing Then
Application.ScreenUpdating = False
NoSem = DateSerial(Year(Date + (8 - Weekday(Date)) Mod 7 - 3), 1, 1)
Range("AE1").Value = ((Date - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \ 7 + 1
End If
Application.ScreenUpdating = True
End Sub

Comment puis-je "intégrer" tout ça en double click
Je m'explique

1er double click on fait changer de semaine ou pas message => Ok ou Annuler
2ème double click on fait afficher toutes les semaines de l'année => Ok ou Annuler
3ème double click on fait revenir à la semaine en cours
Je ne sait pas si c'est possible sans fichier
Avec toutes mes excuses de ne pas pouvoir le fournir
Merci pour vos éventuels retours

 

[fanfan38]

Bonjour
Si toi tu ne peux pas fournir de fichier. Nous on doit le créer...
Donc... Tu crée un fichier qui ressemble à tes souhaits...
A+ François

 

[un internaute]

Laisse tomber
Au revoir