Actualiser les liens hypertexte

[christian.bedere]

Salut chers rescapés de la starAc !! lol


Je suis sur un classeur avec des liens hypertextes.
Je saisis au fur et à mesure des nouvelles feuilles ds mon classeur, et grâce à Michel (que je remercie grâce à wiki), j'ai pu créer un répertoire avec les liens qui vont chercher automatiquement les feuilles voulues, avec cette formule :

Sub creerLiensFeuilles()
Dim I As Byte, J As Byte
Dim Valeur As String
For I = 1 To Sheets.Count
If Not Sheets(I).Name = 'Bilan' Then
Valeur = ''' & Sheets(I).Name & ''!A1'
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets('Bilan').Cells(J, 1), Address:='', subAddress:=Valeur
End If
Next I
End Sub

Une question se pose à moi :
Comment faire pour que lorsque je clique sur la macro qui crée les liens hyp, les liens inscrits précédement ne soient pas effacés, car pour l'instant à chaque fois que j'actualise, je dois réécrire les liens et c'est donc une perte de temps.
Merci pour votre aide
Christian

 

[ChTi160]

Salut christian
voila la macro que j'ai fais
elle permet d'ajouter des feuilles et la macro actualise
tu vois et tu nous tiens au courant
ai je bien compris ????? lol

Sub creerLiensFeuilles()
Dim I As Byte, Derlgn As Byte
Dim Valeur As String
With Worksheets('Bilan')
    .Hyperlinks.Delete
    .Columns(1).ClearContents
For I = 1 To Sheets.Count
If Not Sheets(I).Name = 'Bilan' Then
Valeur = ''' & Sheets(I).Name & ''!A1'
Derlgn = .Range('A500').End(xlUp).Row + 1
Worksheets(I).Hyperlinks.Add Anchor:=.Cells(Derlgn, 1), Address:='', SubAddress:=Valeur
End If
Next I
End With
End Sub

Message édité par: Chti160, à: 16/12/2005 22:43

 

[christian.bedere]

Bonjour Jean-Marie et le forum !

J'espère que je me rappelle bien de ton prénom !!
MERCI ! toujours aussi formidable !
Et avec JM, y'à qu'à poster, et vous aurez...

Voilà ta devise.
Cette formule fonctionne très bien
Encore merci, et bon week end !
Christian