Macro avec onglet d'une feuille

Bonjour,

Je cherche un créer un Macro pour remplacer les onglets en bas de la feuille de calcul.

Je voudrai supprimer les onglet pour en faire un sommaire en MACRO

Pouvez-vous m'aider en m'expliquant les étapes à suivre ?

Merci

Niko28

Bonjour

Je voudrai supprimer les onglet pour en faire un sommaire en MACRO

Les onglets ne se suppriment pas mais se masquent.

Un fichier de Nad pour créer le Sommaire

Pour masquer les onglets, tu les sélectionnes et "Format "Feuilles" "Masquer" (Sur mon Excel 2003)

Cordialement

D'accord Merci !

Mais, on ne peut plus se servir de l'onglet qui a été masqué ! ! ! car je clique sur le lien et il ne fonctionne pas ....

Comment fait-on alors ?

Niko28

Bonjour

Code de Feuille Sommaire

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If ActiveCell.Column = 3 Then
    x = ActiveCell
    Sheets(x).Visible = True
    Sheets(x).Select
  End If
End Sub

Code Module

Sub lienSommaire()
'sélection de la feuille Sommaire
  Sheets("Sommaire").Select
  Range("C3").Select
  For Each i In ActiveWorkbook.Sheets
    f = i.Name
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
    ActiveCell.Offset(1, 0).Select
  Next i
End Sub

Sub RetourSommaire()
  For i = 2 To Sheets.Count
    Sheets(i).Select
    Range("A1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Sommaire!A1", TextToDisplay:="Sommaire"
  Next i
  Sheets(1).Select
End Sub

Code dans ThisWorkBook

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Sommaire" Then
Sheets("Sommaire").Visible = True
ElseIf Sh.Name <> "Sommaire" Then Sh.Visible = False
End If
End Sub

Cordialement

Merci beaucoup ! ! !

Cela va me débloquer ! ! !