Bonjour,
Une proposition à tester.
Créer les nouvelles feuilles à la suite des existantes
Actualisation de la liste des onglets : Macro feuille liste
Private Sub Worksheet_Activate()
Dim i As Integer
Range("c3:c100").ClearContents
Range("c3").Select
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Actualisation de la liste des plats : Macro feuille Accueil
Private Sub Worksheet_Activate()
ActiveWorkbook.Connections("Requête - Tableau4").Refresh
End Sub
Choix d'un plat colonne Onglets : Macro feuille Accueil
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("TListePlats[Onglets]")) Is Nothing Then
Application.Goto Sheets("" & Target.Value).Range("A1")
End If
End Sub
Copier coller le bouton "Retour menu" dans les fiches plats : Macro dans le Module 1
Sub RetourMenu()
Sheets("accueil").Select
End Sub
Deux macros d'actualisation en cas de besoin dans le Module 1
Sub Actualisation_Menu()
Range("_Menu").Select
Selection.FormulaArray = "=TRANSPOSE(NomOnglet)"
Range("J15").Select
End Sub
Sub ActualiseListe()
Dim i As Integer
Feuil1.Activate
Range("b3:b100").ClearContents
Range("B3").Select
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1, 0).Select
Next i
Feuil1.Activate
End Sub
Cordialement.