affichage nb de lignes par feuille

bonsoir tous,
j'ai recupéré une macro affichant la liste des feuilles,
(merci à l'auteur) chacune cliquable, soit

Sub MaMacro()
Dim I As Integer
ActiveWorkbook.Worksheets(1).Select
ActiveSheet.Range("A2").CurrentRegion.ClearContents
For I = 2 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("A" & I).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1", _
TextToDisplay:=Worksheets(I).Name
ActiveSheet.Range("B" & I) = Worksheets(I).Range("H3")
Next
Cancel = True
End Sub

comment ajouter une colonne donnant en plus le numero de la derniere
ligne non vide pour chaque feuille ?
si j'ajoute TextToDisplay:=WorkSheets(I).UsedRange.Rows.Count,
j'ai une erreur de compil
merci d'avance

Bonjour,

Dans la page sommaire (1er onglet)

Private Sub Worksheet_Activate()
Range("C6").Select
Range(ActiveCell, [C65000].End(xlUp)).ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & _
nf & "'" & "!A" & Sheets(i).[A65000].End(xlUp).Row,
TextToDisplay:=nf
ActiveCell.Offset(1, 0).Select
Next i
End Sub

bonsoir tous,
j'ai recupéré une macro affichant la liste des feuilles,
(merci à l'auteur) chacune cliquable, soit

Sub MaMacro()
Dim I As Integer
ActiveWorkbook.Worksheets(1).Select
ActiveSheet.Range("A2").CurrentRegion.ClearContents
For I = 2 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("A" & I).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1", _
TextToDisplay:=Worksheets(I).Name
ActiveSheet.Range("B" & I) = Worksheets(I).Range("H3")
Next
Cancel = True
End Sub

comment ajouter une colonne donnant en plus le numero de la derniere
ligne non vide pour chaque feuille ?
si j'ajoute TextToDisplay:=WorkSheets(I).UsedRange.Rows.Count,
j'ai une erreur de compil
merci d'avance

On Fri, 24 Aug 2007 21:48:51 -0700, JB <boisgont...@hotmail.com>
wrote:

Bonjour,

Dans la page sommaire (1er onglet)

Private Sub Worksheet_Activate()
Range("C6").Select
Range(ActiveCell, [C65000].End(xlUp)).ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="'" & _
nf & "'" & "!A" & Sheets(i).[A65000].End(xlUp).Row,
TextToDisplay:=nf
ActiveCell.Offset(1, 0).Select
Next i
End Sub

heu, j'ai
1-la macro n'est pas enregistrée si je laisse private
2-apres suppr de private, erreur de compile (en rouge) sur la sequence

ActiveSheet.Hyperlinks.Add _
.
.
TextToDisplay:=nf

ton meilleur remede, docteur ?
merci d'avance



- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -

- Afficher le texte des messages précédents -

Sub Variante()
Dim sh As Worksheet, myr As Range
With Feuil1
.[A2].CurrentRegion.ClearContents
.[A1] = "Sommaire"
For Each sh In ActiveWorkbook.Worksheets
If sh.CodeName <> "Feuil1" Then
Set myr = .[a65536].End(xlUp)(2)
myr.Hyperlinks.Add _
Anchor:=myr, _
Address:="", _
SubAddress:="'" & sh.Name & "'!A1", _
TextToDisplay:=sh.Name
myr.Offset(0, 1) = sh.Range("H3")
myr.Offset(0, 2) = sh.[a65536].End(xlUp).Row
End If
Set myr = Nothing
Next
End With
End Sub

super, merci steph

http://boisgontierjacques.free.fr/fichiers/hyperlien/SommaireDyn.xls
oui, la c bon,

super, merci steph
c pour un ami ...

je cherche à savoir quelle feuille le met dans la choucroute
(pardon s'il y a des alsaciens dans ce news), d'ou ma demande