Liens hypertextes

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

RE-Bonjour JB,

Comme c'est une solution VBA ;o))....Je ne sais pas faire donc je copie et
ne comprends pas forcément tout ce que je fais, mille excuses par avances de
mes erreurs...

Je reformule avec les parametre exacts :
J'ai dans une cellule, Feuil1!E2 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte" de telle manière que:
Feuil1!E2 renvoie sur Feuil2!A1
Feuil1!E3 renvoie sur Feuil2!B1 ....

J'ai modifié...

Sub Hypertexteauto()
[E2].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

...Mais à l'exécution j'ai une boîte " X(rouge) 400" qui s'affiche.

Pourrais-tu "rallumer la lumière" STP.

Cordialement

Stéphane.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135776237.669220.143390@o13g2000cwo.googlegroups.com...

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

Excel2002 windows xp

http://cjoint.com/?mCqUOg5MaU

JB

MERCI JB,

Ta macro fonctionne c'est OK, mais pas comme je souhaiterais :
Pour reprendre ton fichier.
Feuil1!A1 renvoie à Feuil2!A1 OK
Feuil1!A2 renvoie à Feuil2!A2 ....il faudrait qu'il renvoie à Feuil2!B1
(toujours mon pb verticale / horizontale)

Enfin j'ai en A1:A500 un texte différent pour chaque cellule qui quand je
lance ta macro est remplacé par hyper1...2...
puis-je conserver mon texte d'origine ou suis-je obligé de déporter mon lien
sur une colonne à côté ?

Peux-tu voir ce qui est possible ?

Merci

Stéphane.

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135784877.936242.212980@g49g2000cwa.googlegroups.com...

Excel2002 windows xp

http://cjoint.com/?mCqUOg5MaU

JB

bonjour Stéphane,

si tu aime mieux une solution autre que la macro,
met cette formule en cellule A1 et copie la vers le bas.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2");ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2"))


isabelle, qui souhaite à tous un très joyeux temps des fêtes.

RE-Bonjour JB,

Comme c'est une solution VBA ;o))....Je ne sais pas faire donc je copie et
ne comprends pas forcément tout ce que je fais, mille excuses par avances de
mes erreurs...

Je reformule avec les parametre exacts :
J'ai dans une cellule, Feuil1!E2 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte" de telle manière que:
Feuil1!E2 renvoie sur Feuil2!A1
Feuil1!E3 renvoie sur Feuil2!B1 ....

J'ai modifié...

Sub Hypertexteauto()
[E2].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

...Mais à l'exécution j'ai une boîte " X(rouge) 400" qui s'affiche.

Pourrais-tu "rallumer la lumière" STP.

Cordialement

Stéphane.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135776237.669220.143390@o13g2000cwo.googlegroups.com...

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

corectif,

tu peux mettre le nom que tu désire pour le deuxième argument,
par exemple seulement le nom de la feuille et l'adresse de cellule,
(________premier argument________________) (______deuxième argument______)
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[Classeur4]Feuil2");ADRESSE(1;LIGNE()+1;;;"Feuil2"))

isabelle

RE-Bonjour JB,

Comme c'est une solution VBA ;o))....Je ne sais pas faire donc je copie et
ne comprends pas forcément tout ce que je fais, mille excuses par avances de
mes erreurs...

Je reformule avec les parametre exacts :
J'ai dans une cellule, Feuil1!E2 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte" de telle manière que:
Feuil1!E2 renvoie sur Feuil2!A1
Feuil1!E3 renvoie sur Feuil2!B1 ....

J'ai modifié...

Sub Hypertexteauto()
[E2].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

...Mais à l'exécution j'ai une boîte " X(rouge) 400" qui s'affiche.

Pourrais-tu "rallumer la lumière" STP.

Cordialement

Stéphane.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135776237.669220.143390@o13g2000cwo.googlegroups.com...

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

Sub essai()
[A1].Select
For i = 1 To 250
Set x = Cells(1, i)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2!" & x.Address(), TextToDisplay:="Hyper" & i
ActiveCell.Offset(1, 0).Select
Next i
End Sub


JB

Bonjour Isabelle,

Merci de ton aide, ta solution parait limpide, mais...je n'arrive pas à la
mettre en pratique.
Je rappelle mon problème :

J'ai dans une cellule Feuil1!A1 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte sans modifier le texte
existant" de telle manière que:
Feuil1!A2 renvoie sur Feuil2!B1
Feuil1!A3 renvoie sur Feuil2!C1 ....

Merci et bonnes fêtes également :o))....

Stéphane.

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u1yPY88CGHA.532@TK2MSFTNGP15.phx.gbl...

bonjour Stéphane,

si tu aime mieux une solution autre que la macro,
met cette formule en cellule A1 et copie la vers le bas.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2");ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2"))


isabelle, qui souhaite à tous un très joyeux temps des fêtes.

RE-Bonjour JB,

Comme c'est une solution VBA ;o))....Je ne sais pas faire donc je copie
et ne comprends pas forcément tout ce que je fais, mille excuses par
avances de mes erreurs...

Je reformule avec les parametre exacts :
J'ai dans une cellule, Feuil1!E2 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte" de telle manière que:
Feuil1!E2 renvoie sur Feuil2!A1
Feuil1!E3 renvoie sur Feuil2!B1 ....

J'ai modifié...

Sub Hypertexteauto()
[E2].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

...Mais à l'exécution j'ai une boîte " X(rouge) 400" qui s'affiche.

Pourrais-tu "rallumer la lumière" STP.

Cordialement

Stéphane.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135776237.669220.143390@o13g2000cwo.googlegroups.com...

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

bonjour Stéphane,

pour utiliser les noms existant en collonne A
met cette formule en cellule B1 et copie la vers le bas.

=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[Classeur4.xls]Feuil2");A1)

n'oublie pas d'adapter la formule au nom de ton classeur.

isabelle

Bonjour Isabelle,

Merci de ton aide, ta solution parait limpide, mais...je n'arrive pas à la
mettre en pratique.
Je rappelle mon problème :

J'ai dans une cellule Feuil1!A1 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte sans modifier le texte
existant" de telle manière que:
Feuil1!A2 renvoie sur Feuil2!B1
Feuil1!A3 renvoie sur Feuil2!C1 ....

Merci et bonnes fêtes également :o))....

Stéphane.

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u1yPY88CGHA.532@TK2MSFTNGP15.phx.gbl...

bonjour Stéphane,

si tu aime mieux une solution autre que la macro,
met cette formule en cellule A1 et copie la vers le bas.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2");ADRESSE(1;LIGNE()+1;;;"[Classeur1]Feuil2"))


isabelle, qui souhaite à tous un très joyeux temps des fêtes.

RE-Bonjour JB,

Comme c'est une solution VBA ;o))....Je ne sais pas faire donc je copie
et ne comprends pas forcément tout ce que je fais, mille excuses par
avances de mes erreurs...

Je reformule avec les parametre exacts :
J'ai dans une cellule, Feuil1!E2 un texte sur lequel je forme un lien
hypertexte qui renvoie sur Feuil2!A1.

Comment faire pour "incrémenter le lien hypertexte" de telle manière que:
Feuil1!E2 renvoie sur Feuil2!A1
Feuil1!E3 renvoie sur Feuil2!B1 ....

J'ai modifié...

Sub Hypertexteauto()
[E2].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

...Mais à l'exécution j'ai une boîte " X(rouge) 400" qui s'affiche.

Pourrais-tu "rallumer la lumière" STP.

Cordialement

Stéphane.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135776237.669220.143390@o13g2000cwo.googlegroups.com...

Bonjour,


Sub essai()
[A1].Select
For i = 1 To 500
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2" & "!A" & i, TextToDisplay:="Go"
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Cordialement JB

Bonsoir,

J'ai ouvert un dossier fictif pour tester la macro, parfait elle fonctionne
comme précédemment décrite.

Mais quand je l'applique sur le fichier d'origine après avoir vérifier 20
fois les paramètres j'obtiens "référence non valide"
L'incrémentation se fait bien ou je veux (j'ai créé une colonne à côté du
texte d'origine) mais...ca ne marche pas !
Macro modifiée aux paramètres du fichier d'origine :
Feuil!3G6:G250 incrémentation des liens hyper
Feuil!8 A1:xx1 renvois des liens

Sub essai()
[G6].Select
For i = 6 To 250
Set x = Cells(1, i)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil8!" & x.Address(), TextToDisplay:="" & i
ActiveCell.Offset(1, 0).Select
Next i
End Sub

,??? quelque chose m'échappe ou est mon erreur...si tu as une idée ?
Même si tu n'en as pas merci en tout cas de tes efforts.

Cordialement
Stéphane.


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1135795052.768354.157910@g44g2000cwa.googlegroups.com...

Sub essai()
[A1].Select
For i = 1 To 250
Set x = Cells(1, i)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="Feuil2!" & x.Address(), TextToDisplay:="Hyper" & i
ActiveCell.Offset(1, 0).Select
Next i
End Sub


JB