L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Créer une feuille sommaire

5 mars 2014
Imprimer E-mail
Sub CreationFlleSommaire()
     Dim iNb As Integer, iNoL As Integer
     Dim bExisteFlle As Boolean

On Error Resume Next
     bExisteFlle = Worksheets("Sommaire").Name
     If Err.Number = 9 Then ' il y erreur si la feuille n'existe pas
Err.Clear
          ActiveWorkbook.Worksheets.Add before:=Sheets(1) ' dans ce cas on ajoute une feuille
ActiveSheet.Name = "Sommaire" 'on la nomme Sommaire
End If
On Error GoTo 0
     With Worksheets("Sommaire") 'avec cette feuille Sommaire
iNoL = 1
          .Cells.Clear 'on supprime tout ce qu'elle contient (au cas où elle existait auparavent)
For iNb = 1 To Worksheets.Count 'pour chaque feuille du classeur
If Worksheets(iNb).Name <> "Sommaire" Then 'si elle est différente du sommaire
'ajout d'un lien hypertexte vers la cellule A1 de la feuille sur la feuille Sommaire
.Hyperlinks.Add Anchor:=.Range("A" & iNoL), Address:="", SubAddress:="'" & Worksheets(iNb).Name & "'!A1"
                    .Range("A" & iNoL).Value = Worksheets(iNb).Name
                    iNoL = iNoL + 1
               End If
          Next
     End With
End Sub