Pb avec page accueil avec hyperliens

[patobeur]

Bonjour à toutes et tous.

J'ai fait une macro qui s'ouvre avec le classeur pour créer des liens sur la première feuille vers les autres feuilles du classeur.

Private Sub Workbook_Open()
  Sheets(1).Select
  Range("b4").Select
  For Each i In ActiveWorkbook.Sheets
    X = i.Name
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & X & "'" & "!A1", TextToDisplay:=X
    ActiveCell.Offset(1, 0).Select
  Next i
End Sub

La macro fonctionne mais j'ai 3 soucis:
1. elle ne supprime pas les liens vers les feuilles supprimées

2. j'aimerais ne pas faire de lien vers les feuilles masquées

3. Comment classer les liens par ordre alphabétique et éventuellement sur plusieurs colonnes.

Merci de votre aide.

 

[Compte Supprimé 979]

Re : Pb avec page accueil avec hyperliens

Salut Patobeur,

Pour tes soucis 1 et 2 voilà le code

Private Sub Workbook_Open()
  Dim Sht As Worksheet, NomSht As String
  Sheets(1).Select: Range("B4").Select
  Range("B4:B" & Range("B65536").End(xlUp).Row).ClearContents
  For Each Sht In ActiveWorkbook.Sheets
    If Sht.Visible = True Then
      NomSht = Sht.Name
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & NomSht & "'" & "!A1", TextToDisplay:=NomSht
      ActiveCell.Offset(1, 0).Select
    End If
  Next Sht
End Sub

En ce qui concerne ton souci n° 3, je n'ai pas trop bien compris la question !

Aurais tu un exemple concret de ce que tu veux ?

A+

 

[patobeur]

Re : Pb avec page accueil avec hyperliens

Merci beaucoup, c'est exactement ce que je cherchais.

Pour le Pb 3, en fait la macro classe les feuilles dans l'ordre de création (feuil1,feuille2,etc..)
Mais mon classeur est composé de feuilles renommées par le nom d'un article.
J'aimerais faire un tri du menu par ordre alphabétique.

En tout cas c'étaient les points 1 et 2 qui me génait, merci encore.

A+

 

[patobeur]

Re : Pb avec page accueil avec hyperliens

C'est bon, j'ai trouvé pour trier mon menu.

Ca commence à rentrer le vba, grâce aux membres du forum.
Merci à BrunoM45 pour son aide.

Bonne nuit à tous.

 

[ChTi160]

Re : Pb avec page accueil avec hyperliens

Salut patobeur
Bonjour Bruno

en pièce jointe une approche non finalisée

Le Fichier

:Regarde la pièce jointe Hypertext_V1.zip

Bonne fin de Journée

 

[patobeur]

Re : Pb avec page accueil avec hyperliens

Bonjour ChTi160

Alors là, chapeau.
La macro fonctionne à merveille et en plus, grâce aux commentaires inclus, je vais faire un grand pas dans la compréhension du Visual Basic.

Merci infiniment et bonne soirée.