Modifier plusieurs liens hypertexte en même temps

[marcelio]

Bonjour à tous,

j'ai un peu plus de 50 liens hypertexte sur ma feuille "total" qui vont chacun sur une feuille différente
ils vont tous sur chaque feuille sur la cellule A1
je voudrais qu'ils aillent tous maintenant sur la cellule AH2
est t'il possible de faire ceci tout un coup au lieu de le faire 1 par 1

Merci de votre aide

Marcelio

 

[pierrejean]

Re : Modifier plusieurs liens hypertexte en même temps

bonjour marcelio

Si la feuille ne comporte que ces liens hypertextes

Sub Macro
For n = 1 To ActiveSheet.Hyperlinks.Count
 ActiveSheet.Hyperlinks(n).SubAddress = Replace(ActiveSheet.Hyperlinks(n).SubAddress, "A1", "AH2")
Next n
End sub

 

[marcelio]

Re : Modifier plusieurs liens hypertexte en même temps

Bonjour pierrejean,

Merci c'est superbe cela fonctionne à merveille

Bonne journée à toi et au forum

Encore merci

Marcelio