Macro liste tous les onglets en panne

[La Vouivre]

Bonjour le forum
J’ai une macro qui me liste tous les onglets d’un classeur et qui fais des liens hypertextes,mais ces liens ne fonctionne pas, est-ce que l’un d’entre vous peut réparer la macro, cette macro vient déjà de ce super forum .



Sub ListFeuil()
'ChrisV, mpfe
Application.ScreenUpdating = False
Set nSht = Sheets.Add(Before:=Sheets(1))
On Error GoTo GesErr
DebProc:
nSht.Name = "Sommaire"
[A1] = "Liste des onglets du classeur"
With Selection.Font
.Bold = True
.Size = 12
End With
For i = 2 To Sheets.Count
nSht.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _
Address:="", SubAddress:=Sheets(i).Name & "!A1", _
TextToDisplay:=" " & Sheets(i).Name
End With
Next i
With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter
End With
[E2].Activate
ActiveWindow.DisplayGridlines = False
Exit Sub
GesErr:
Application.DisplayAlerts = False
Sheets("Sommaire").Delete
Application.DisplayAlerts = True
GoTo DebProc
End Sub

 

[cbea]

Re : Macro liste tous les onglets en panne

Bonjour La Vouivre,

J'ai apporté des modifications.
J'espère que j'ai bien compris ta demande.

 

[La Vouivre]

Re : Macro liste tous les onglets en panne

Bonjour cbea
Merci de t’intéresser à mon petit problème
Normalement la feuille sommaire et déjà créer, il suffi de faire la liste des onglets et de pouvoir faire une mise à jour si un nouvel onglet et apparu ou disparu

 

[Staple1600]

Re : Macro liste tous les onglets en panne

Bonjour à tous


J'ai testé le code de ton premier message (sous XL2000)

Pas de problème si une feuille Sommaire existe déjà

Si j'insère une nouvelle feuille , pas de problème non plus

Si je renomme un onglet existant non plus.

Aucun bug constaté.

 

[La Vouivre]

Re : Macro liste tous les onglets en panne

Bonjour Staple1600
Je suis avec XP et Excel 2003 et quand je déclanche la macro par un bouton de la boite à outils formulaire j’ai une erreur 400 qui apparaît ensuite mon bouton et effacer pour mettre à jour la liste

 

[cbea]

Re : Macro liste tous les onglets en panne

re,

Une autre version avec la feuille Sommaire déjà présente.

 

[La Vouivre]

Re : Macro liste tous les onglets en panne

Merci beaucoup de ton aide c’est pile poile ce que je cherchais