re
voilà vite fait ta macro modifiée
Sub ListFeuil()
Ici on crée une feuille dernière feuille plus Un à adapter ou à supprimer
'--------------------------------------------------
Set nSht = Sheets.Add(After:=Sheets(Sheets.Count))
nSht.Name = Worksheets.Count + 1
'--------------------------------------------------
ici on reporte les données noms des feuilles et liens
With Sheets('Recap')
.[B1] = 'N° feuille'
With Selection.Font
.Bold = True
.Size = 10
End With
For i = 2 To Sheets.Count
.Cells(i, 1).Value = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:='', SubAddress:=Sheets(i).Name & '!A1', _
TextToDisplay:=Sheets(i).Name
Next i
End With
With Rows('1:1')
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
End Sub
Amicalement
Jean Marie
Message édité par: ChTi160, à: 22/04/2005 20:11