affichage nb de lignes par feuille

Le
bpdu92
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4666751
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

http://boisgontierjacques.free.fr/pages_site/lienshypertextes.htm#SommaireM ajAutomatique

JB

On 25 août, 05:33, bpdu92
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


bpdu92
Le #4666601
On Fri, 24 Aug 2007 21:48:51 -0700, JB 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




LSteph
Le #4666591
Bonjour,

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

'lSteph

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


JB
Le #4666551
http://boisgontierjacques.free.fr/fichiers/hyperlien/SommaireDyn.xls

JB
On 25 août, 11:32, bpdu92
On Fri, 24 Aug 2007 21:48:51 -0700, JB 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 -



bpdu92
Le #4666541
On Sat, 25 Aug 2007 11:38:07 +0200, LSteph wrote:

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

c pour un ami qui a plusieurs classeurs, à plus de 400 feuilles,
soit 1 feuille/client, et 1 des classeurs met plusieurs minutes à
s'ouvrir, alors que pour les autres c qqs secondes
je cherche à savoir quelle feuille le met dans la choucroute
(pardon s'il y a des alsaciens dans ce news), d'ou ma demande

1 detail, la feuille 1 ne se liste pas elle-meme ?
merci again, cordialt

bpdu92
Le #4666531
On Sat, 25 Aug 2007 03:18:47 -0700, JB wrote:


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

-feuill1 donne les totaux
-clic sur telle ou telle feuille l'affiche
-retour à feuill1
impec, cependant, tjours private à supprimer ?

merci, ce news est super

LSteph
Le #4666461
;o) j'en connais bien un...
mais il ne mord pas pour si peu
sans quoi y aurait plus d'un scuddeur transformé en baekoff!



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


Publicité
Poster une réponse
Anonyme