condors.s
XLDnaute Occasionnel
Bonjour à tous.
J'ai trouvé une petite macro permettant d'afficher le nom des onglets d'un fichier excel sur la feuille 1.
Je voudrais le compléter en affichant uniquement les onglets actifs (et donc pas ceux qui sont masqués).
Avez vous un tuyau pour moi.
Merci beaucoup
J'ai trouvé une petite macro permettant d'afficher le nom des onglets d'un fichier excel sur la feuille 1.
Je voudrais le compléter en affichant uniquement les onglets actifs (et donc pas ceux qui sont masqués).
Avez vous un tuyau pour moi.
Merci beaucoup
Code:
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