Sommaire et Feuille modèle

Bonjour à tous,

J'ai créé ce type de fichier (PJ) avec mes faibles connaissances en macro et VBA.

Je rencontre un problème sur mon sommaire lorsque je le mets à jour le lien ne fonctionne pas.

Je souhaiterais aussi savoir comment créer une feuille modèle (CR Modèle en l'occurence) mais que celle-ci ne soit pas visible.

Merci d'avance de votre aide.

Bonne journée et bon weekend

Mermill

Bonjour,

Sub Sommaire()
    Dim Fcr(), a%, sh As Worksheet, PlgSom As Range, c As Range
    For Each sh In Worksheets
        Select Case sh.Name
            Case "SOMMAIRE", "ModèleCR"
            Case Else
                ReDim Preserve Fcr(a)
                Fcr(a) = sh.Name: a = a + 1
        End Select
    Next sh
    With Worksheets("SOMMAIRE")
        .Hyperlinks.Delete
        .Range("A3").CurrentRegion.ClearContents
        Set PlgSom = .Range("A3").Resize(a)
        PlgSom.Value = WorksheetFunction.Transpose(Fcr)
        For Each c In PlgSom
            .Hyperlinks.Add c, "", c.Value & "!A1", , c.Value
        Next c
    End With
End Sub

Sub AjouterCR()
    Dim NFcr As Worksheet, cr$
    Application.ScreenUpdating = False
    With Worksheets("ModèleCR")
        .Visible = xlSheetVisible
        .Copy after:=Worksheets(Worksheets.Count)
        Set NFcr = ActiveSheet
        .Visible = xlSheetHidden
    End With
    'Revoir ce qui suit selon noms à donner aux feuilles CR
    With NFcr
        If .Previous.Name Like "CR*" Then
            cr = "CR" & Format(CInt(Right(.Previous.Name, 3)) + 1, "000")
        Else
            cr = "CR001"
        End If
        .Name = cr
    End With
End Sub

Cordialement.

Bonjour à tous

Bonjour MFerrand

Une variante.

Bye !