Pb avec page accueil avec hyperliens

C

Compte Supprimé 979

Guest

• 29 Avril 2007

• #2

Re : Pb avec page accueil avec hyperliens

Salut Patobeur,

Pour tes soucis 1 et 2 voilà le code

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+

 

Vote positif 0 Vote négatif

P

patobeur

XLDnaute Nouveau

• 29 Avril 2007

• #3

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+

 

Vote positif 0 Vote négatif

P

patobeur

XLDnaute Nouveau

• 29 Avril 2007

• #4

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Avril 2007

• #5

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

Cliquez pour agrandir...

Bonne fin de Journée

 

Vote positif 0 Vote négatif

P

patobeur

XLDnaute Nouveau

• 30 Avril 2007

• #6

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.

 

Vote positif 0 Vote négatif