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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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(
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" a écrit dans le message de news: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
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabelle
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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(
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
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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(
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" a écrit dans le message de news: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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
Isabelle
Voyante - chiromancienne
Thèmes astraux en tous genres
Sherbrooke (Québec)
+ une bise de bonne année au passage
Isabelle
Voyante - chiromancienne
Thèmes astraux en tous genres
Sherbrooke (Québec)
+ une bise de bonne année au passage
Isabelle
Voyante - chiromancienne
Thèmes astraux en tous genres
Sherbrooke (Québec)
+ une bise de bonne année au passage
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabelle
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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 Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte mais
quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" a écrit dans le message de news:en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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 Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte mais
quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uVIHniCDGHA.516@TK2MSFTNGP15.phx.gbl...
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabelle
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
Bonjour Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte mais
quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" a écrit dans le message de news:en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
attention il ne doit pas y avoir d'espace dans le nom du fichier, il
faudra renommer ton fichier.
isabelleBonjour Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte
mais quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" a écrit dans le message de news:en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
attention il ne doit pas y avoir d'espace dans le nom du fichier, il
faudra renommer ton fichier.
isabelle
Bonjour Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte
mais quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uVIHniCDGHA.516@TK2MSFTNGP15.phx.gbl...
en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabelle
si j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLE
Isabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uNkFuB$CGHA.2292@tk2msftngp13.phx.gbl...
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
attention il ne doit pas y avoir d'espace dans le nom du fichier, il
faudra renommer ton fichier.
isabelleBonjour Isabelle du Québec ?
A l'identique... en H6
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
Tu as bien compris, je retrouve en H6 le nom de G6 en lien Hypertexte
mais quand je clique sur H6 il m'indique "impossible d'ouvrir le fichier
spécifié". J'ai essayé aussi en modifiant INIT2 (non de l'onglet) par
Feuil!8 numéro correspondant à INIT2 dans ce classeur...mais en vain...
Quand je fais le lien hypertexte "manuellement" en G6, ca fonctionne par
contre parfaitement, dois-je me résoudre ou as-tu une autre idée ?
Merci
Cordialement
Stéphane.
"isabelle" a écrit dans le message de news:en suposant que la réponse est oui, met cette formule en cellule H6.
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()-5;;;"[FICHIERSBASE.xls]INIT2");G6)
attention il ne doit pas y avoir d'espace dans le nom du fichier.
isabellesi j'ai bien compris les nom que tu veut utiliser pour nommer les liens
sont en cellule G6:G200 de la feuille INIT
peut on mettre les lien en cellule H6:H200 ?
ISABELLEIsabelle, au risque de m'enfoncer dans les tréfonds de l'abîme et
nonobstant
mille et une excuses sur ma fatigue désormais chronique et ma
conjonction
astrale perpétuellement défavorable...je n'y arrive toujours pas !
Sur un fichier test cela fonctionne mais sur mon fichier d'origine
impossible et mon cerveau tourne à vide ;
Donc
Mon classeur s'appelle FICHIERS BASE.xls
la feuille sur laquelle je veux établir le lien appelle INIT (Feuil!3)
La cellule de départ G6:G200
La feuille sur laquelle je souhaite le renvoi INIT2 (Feuil!8)
La cellule d'arrivée A1:xx1
=LIEN_HYPERTEXTE(ADRESSE(1;LIGNE()+1;;;"[FICHIERS BASE.xls]Feuil8");A1)
Quelle est mon erreur ?
Merci Isabelle
"isabelle" a écrit dans le message de news:
uNkFuB$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.
isabelleBonjour 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" a écrit dans le message de news: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" a écrit dans le message de news: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
