atteindre

Le
Proust Michel
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #5243331
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
Le #5243111
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
Le #5243071
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








Proust Michel
Le #5242921
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
Le #5242891
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











Publicité
Poster une réponse
Anonyme