lien hypertexte et boucle

[bebe1310]

Bonjour a tout le forum


Voila mon probleme :

J'ai une macro qui selectionne une cellule de feuil1 et qui lui insere un lien hypertexte vers feuil2.

Dans une seconde macro que j'active apres, je renomme feuil2 en un autre nom (par exemple : toto). A ce moment la mon lien hypertexte ne marche plus (logique). Comment le changer sachant que j'ai une boucle du type

For i = 5 To 12
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil2!A1", TextToDisplay:="='Feuil2'!I1"
pour creer mon lien hypertexte d'origine

et qu'il faudrait qu'il me selectionne le lien hypertexte se trouvant la ligne au dessus de la ligne vide pour la modification (donc le dernier lien)



Si je lui mets
For i = 5 To 12
If IsEmpty(Cells(i, 1)) Then
Cells(i-1, 1).Select

il me selection la case vide au dessus de la ligne contenant le premier lien hypertexte de la serie


Merci de votre aide

Je sne suis pas sur d'avoir ete clair


bebe1310

 

[@+Thierry]

Salut Bebe1310, le Forum

Non ce n'est pas très clair, mais en attendant tu peux t'inspirer de cette démo :

Lien supprimé (14k)

Tu y trouveras comment générer des hyperliens en fonction de noms de feuilles variables.

Bonne Soirée
@+Thierry