Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston
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
JB
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avant = actuel
actuel = Target.Address
End Sub
Sub revient()
If avant <> "" Then Range(avant).Select
End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston <gasjospams...@sympatico.ca> wrote:
Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
Gaston
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
Parfait, merci JB
Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avant = actuel
actuel = Target.Address
End Sub
Sub revient()
If avant <> "" Then Range(avant).Select
End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston <gasjospams...@sympatico.ca> wrote:
Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
Gaston
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
Je pense que j'ai amélioré la solution
On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours
vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour
actuel = Target.Range.Address
avant = actuel
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur
End Sub
Sub Revient()
'Revient après avoir été à une référence
If avant <> "" Then
Range(avant).Select
avant = ""
End If
ActiveWindow.ScrollColumn = 1 'Place au bord
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur
End Sub
Gaston
"Gaston" wrote:
Parfait, merci JB
Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avant = actuel
actuel = Target.Address
End Sub
Sub revient()
If avant <> "" Then Range(avant).Select
End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston <gasjospams...@sympatico.ca> wrote:
Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston
JB
On 31 jan, 02:25, Gaston wrote:
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujou rs vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour l e retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérie ur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Avant = Target.Range.Address End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Avant <> "" Then Range(Avant).Select End Sub
JB
On 31 jan, 02:25, Gaston <gasjospams...@sympatico.ca> wrote:
Je pense que j'ai amélioré la solution
On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujou rs
vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Remarque l'adresse du lien hypertexte d'ou vient la référence pour l e retour
actuel = Target.Range.Address
avant = actuel
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérie ur
End Sub
Sub Revient()
'Revient après avoir été à une référence
If avant <> "" Then
Range(avant).Select
avant = ""
End If
ActiveWindow.ScrollColumn = 1 'Place au bord
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur
End Sub
Gaston
"Gaston" wrote:
Parfait, merci JB
Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avant = actuel
actuel = Target.Address
End Sub
Sub revient()
If avant <> "" Then Range(avant).Select
End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston <gasjospams...@sympatico.ca> wrote:
Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Avant = Target.Range.Address
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Avant <> "" Then Range(Avant).Select
End Sub
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujou rs vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour l e retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérie ur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Avant = Target.Range.Address End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Avant <> "" Then Range(Avant).Select End Sub
JB
Gaston
"JB" wrote:
On 31 jan, 02:25, Gaston wrote:
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Avant = Target.Range.Address End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Avant <> "" Then Range(Avant).Select End Sub
JB Parfait, je pense qu'il ne peut pas avoir mieux pour ce cas. Mais on dirait qu'il y a toujours mieux...
Merci Gaston
"JB" wrote:
On 31 jan, 02:25, Gaston <gasjospams...@sympatico.ca> wrote:
Je pense que j'ai amélioré la solution
On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours
vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour
actuel = Target.Range.Address
avant = actuel
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur
End Sub
Sub Revient()
'Revient après avoir été à une référence
If avant <> "" Then
Range(avant).Select
avant = ""
End If
ActiveWindow.ScrollColumn = 1 'Place au bord
ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur
End Sub
Gaston
"Gaston" wrote:
Parfait, merci JB
Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
avant = actuel
actuel = Target.Address
End Sub
Sub revient()
If avant <> "" Then Range(avant).Select
End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston <gasjospams...@sympatico.ca> wrote:
Bonjour le forum,
Supposons qu'un lien hypertexte me dirige vers la cellule "A100".
J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien
hypertexte qui vient de me diriger vers la cellule "A100".
Tout ça dans le but de retourner près du lien avec un bouton.
J'espère que je me suis bien fait comprendre.
Merci
Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Avant = Target.Range.Address
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Avant <> "" Then Range(Avant).Select
End Sub
JB
Parfait, je pense qu'il ne peut pas avoir mieux pour ce cas.
Mais on dirait qu'il y a toujours mieux...
Je pense que j'ai amélioré la solution On peut cliquer sur d'autres cellules, mes "Revient" nour redirige toujours vers le lien.
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 'Remarque l'adresse du lien hypertexte d'ou vient la référence pour le retour actuel = Target.Range.Address avant = actuel ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub
Sub Revient() 'Revient après avoir été à une référence If avant <> "" Then Range(avant).Select avant = "" End If ActiveWindow.ScrollColumn = 1 'Place au bord ActiveWindow.ScrollRow = ActiveCell.Row 'Place dans le coin supérieur End Sub Gaston
"Gaston" wrote:
Parfait, merci JB Gaston
"JB" wrote:
Bonjour,
Clic-droit sur onglet/Visualiser le code
Dim actuel, avant Private Sub Worksheet_SelectionChange(ByVal Target As Range) avant = actuel actuel = Target.Address End Sub
Sub revient() If avant <> "" Then Range(avant).Select End Sub
http://cjoint.com/?bEhKNeIqSF
Cordialement JB
On 30 jan, 00:43, Gaston wrote:
Bonjour le forum, Supposons qu'un lien hypertexte me dirige vers la cellule "A100". J'aimerais savoir comment on fait pour savoir quel est l'adresse du lien hypertexte qui vient de me diriger vers la cellule "A100". Tout ça dans le but de retourner près du lien avec un bouton. J'espère que je me suis bien fait comprendre. Merci Gaston- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Ok.La variable intermédiaire Actuel peut être supprimée:
Dim Avant Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Avant = Target.Range.Address End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Avant <> "" Then Range(Avant).Select End Sub
JB Parfait, je pense qu'il ne peut pas avoir mieux pour ce cas. Mais on dirait qu'il y a toujours mieux...
