bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en
créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite
pas de macro en VB
merci d'avance pour les infos
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = [A1]
Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True
End If
End Sub
isabelle
bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en
créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite
pas de macro en VB
merci d'avance pour les infos
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
Proust Michel
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais
préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre
solution je vais faire avec
merci pour les infos et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
eS0AOc9cIHA.4168@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = [A1]
Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]),
Scroll:=True
End If
End Sub
isabelle
bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou
en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne
souhaite pas de macro en VB
merci d'avance pour les infos
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
isabelle
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1()
For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _
"" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address
Next
End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais
préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre
solution je vais faire avec
merci pour les infos et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
eS0AOc9cIHA.4168@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = [A1]
Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]),
Scroll:=True
End If
End Sub
isabelle
bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou
en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne
souhaite pas de macro en VB
merci d'avance pour les infos
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
Proust Michel
OK pour cette solution je vais essayer dès demain merci et bonne soirée "isabelle" a écrit dans le message de news: uGMyjh%
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
OK pour cette solution je vais essayer dès demain merci et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
uGMyjh%23cIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1()
For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="",
SubAddress:= _
"" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" &
Range("B" & i).Address
Next
End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais
préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre
solution je vais faire avec
merci pour les infos et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
eS0AOc9cIHA.4168@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = [A1]
Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]),
Scroll:=True
End If
End Sub
isabelle
bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT)
ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je
ne souhaite pas de macro en VB
merci d'avance pour les infos
OK pour cette solution je vais essayer dès demain merci et bonne soirée "isabelle" a écrit dans le message de news: uGMyjh%
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
isabelle
bonjour Michel,
ok, mais fait gaffe aux coupures de lignes intempestives, la commande suivante est en une seul ligne :
ActiveSheet.Hyperlinks.Add ...et fini par... & "!" & Range("B" & i).Address
isabelle
OK pour cette solution je vais essayer dès demain merci et bonne soirée "isabelle" a écrit dans le message de news: uGMyjh%
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos
bonjour Michel,
ok, mais fait gaffe aux coupures de lignes intempestives,
la commande suivante est en une seul ligne :
ActiveSheet.Hyperlinks.Add ...et fini par... & "!" & Range("B" & i).Address
isabelle
OK pour cette solution je vais essayer dès demain merci et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
uGMyjh%23cIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1()
For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="",
SubAddress:= _
"" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" &
Range("B" & i).Address
Next
End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais
préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre
solution je vais faire avec
merci pour les infos et bonne soirée
"isabelle" <i@v> a écrit dans le message de news:
eS0AOc9cIHA.4168@TK2MSFTNGP02.phx.gbl...
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = [A1]
Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]),
Scroll:=True
End If
End Sub
isabelle
bonjour à tous
je ne sais comment résoudre le PB suivant
soit un classeur contenant 3 onglet 2007 2008 et Détail
sur l'onglet Détail on trouve en B1 25 B2 55 ...
après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008
s'affiche et la ligne 25 sélectionnée
et sélectionnée B2
l'onglet 2008 s'affiche et la ligne 55 sélectionnée
après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007
s'affiche et la ligne 25 sélectionnée
l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT)
ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je
ne souhaite pas de macro en VB
merci d'avance pour les infos
ok, mais fait gaffe aux coupures de lignes intempestives, la commande suivante est en une seul ligne :
ActiveSheet.Hyperlinks.Add ...et fini par... & "!" & Range("B" & i).Address
isabelle
OK pour cette solution je vais essayer dès demain merci et bonne soirée "isabelle" a écrit dans le message de news: uGMyjh%
bonjour Proust,
pour créer plusieurs lien hypertexte tu peut utiliser cette macro :
Sub Macro1() For i = 1 To Sheets("Détail").Range("B65536").End(xlUp).Row ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:="", SubAddress:= _ "" & [A1] & "!" & Range("B" & i).Address, TextToDisplay:=[A1] & "!" & Range("B" & i).Address Next End Sub
isabelle
merci mais comme j'ai en réalité 2500 lignes sur chaque onglet j'aurais préféré une formule plustôt qu'une macro VBA mais si il n'y a pas d'autre solution je vais faire avec merci pour les infos et bonne soirée "isabelle" a écrit dans le message de news:
bonjour Proust,
voici un exemple à copier sur la page code de la feuille "Détail" :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then x = [A1] Application.Goto Reference:=Worksheets("" & [A1]).Range("A" & [B1]), Scroll:=True End If End Sub
isabelle
bonjour à tous je ne sais comment résoudre le PB suivant soit un classeur contenant 3 onglet 2007 2008 et Détail sur l'onglet Détail on trouve en B1 25 B2 55 ... après avoir mis 2008 en A1 et sélectionnée B1 l'onglet 2008 s'affiche et la ligne 25 sélectionnée et sélectionnée B2 l'onglet 2008 s'affiche et la ligne 55 sélectionnée après avoir mis 2007 en A1 et sélectionnée B1 l'onglet 2007 s'affiche et la ligne 25 sélectionnée l'idéal serait d'arriver à faire cela comme Edition/Atteindre (CtrlT) ou en créant un lien hypertexte mais je n'y arrive pas. Si possible je ne souhaite pas de macro en VB merci d'avance pour les infos