Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel retour de valeur d'une cellule dans un lien hypertext

retour de valeur d'une cellule dans un lien hypertext

5 réponses
Avatar
zebulion
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la valeur
d'une cellule utilisée dans un lien hypertexte dans un même classeur et dans
un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la cellule,
mais pas sa valeur en automatique (je suis obligé de la saisir dans le texte
à afficher à la place de la référence pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en automatique est
le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles dans le
1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Daniel
Bonsoir.
Pour une référence à l'intérieur du classeur :
Var = Sheets("Global").Hyperlinks(1).SubAddress
Pour une référence à l'extérieur du classeur :
Var = Sheets("Global").Hyperlinks(2).Address
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgf03u$61r$
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la valeur
d'une cellule utilisée dans un lien hypertexte dans un même classeur et
dans un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la cellule,
mais pas sa valeur en automatique (je suis obligé de la saisir dans le
texte à afficher à la place de la référence pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en automatique
est le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles dans
le 1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe



Avatar
zebulion
Merci.
Cependant, connaissant assez peu excel, je ne sais pas comment appliquer
cette formule.
Dois-je la saisir dans la case n° de cellule pointée lors de la création du
lien?
ou l'appliquer lors d'un format de cellule?
ou créer une macro (j'ai essayé mais sans résultat )?

http://cjoint.com/?jrkP4EBqCG


Merci de votre aide.

"Daniel" a écrit dans le message de news:

Bonsoir.
Pour une référence à l'intérieur du classeur :
Var = Sheets("Global").Hyperlinks(1).SubAddress
Pour une référence à l'extérieur du classeur :
Var = Sheets("Global").Hyperlinks(2).Address
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgf03u$61r$
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la valeur
d'une cellule utilisée dans un lien hypertexte dans un même classeur et
dans un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la cellule,
mais pas sa valeur en automatique (je suis obligé de la saisir dans le
texte à afficher à la place de la référence pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en automatique
est le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles dans
le 1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe







Avatar
Daniel
Bonjur.
Voici la macro pour retrouver l'adresse hyperlien de la cellule D4 et la
valeur du lien à l'intérieur d'un même classeur :

Sub test()
Adresse = Range("D4").Hyperlinks(1).SubAddress
Valeur = Range(Adresse)
End Sub

Cordialement.
Daniel

"zebulion" a écrit dans le message de news:
dggl25$g9v$
Merci.
Cependant, connaissant assez peu excel, je ne sais pas comment appliquer
cette formule.
Dois-je la saisir dans la case n° de cellule pointée lors de la création
du lien?
ou l'appliquer lors d'un format de cellule?
ou créer une macro (j'ai essayé mais sans résultat )?

http://cjoint.com/?jrkP4EBqCG


Merci de votre aide.

"Daniel" a écrit dans le message de news:

Bonsoir.
Pour une référence à l'intérieur du classeur :
Var = Sheets("Global").Hyperlinks(1).SubAddress
Pour une référence à l'extérieur du classeur :
Var = Sheets("Global").Hyperlinks(2).Address
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgf03u$61r$
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la valeur
d'une cellule utilisée dans un lien hypertexte dans un même classeur et
dans un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la cellule,
mais pas sa valeur en automatique (je suis obligé de la saisir dans le
texte à afficher à la place de la référence pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en automatique
est le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles dans
le 1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe











Avatar
zebulion
Bonjour
Cela m'a été très utile et a bien marché.

Cependant je cherche choisir la cellule vers laquelle je veux créer le lien
en naviguant dans la feuille désirée.
Pour cela un collègue m'a créé un useforms auquel j'ai attribué la macro
suivante:


Public ref As String
Public libele As String
Public nomfeuil As String
Public feuillu As Worksheet

Public kase As Range

Public Sub truc()
Dim texte As String

Set feuillu = ActiveSheet
Set kase = ActiveCell
UserForm1.Show
If libele > "" Then
texte = " TABLE " & nomfeuil & " ZONE " & libele

feuillu.Hyperlinks.Add feuillu.Range(kase.Address), "", ref, , ref
feuillu.Hyperlinks(feuillu.Hyperlinks.Count).Range.Value = texte
feuillu.Hyperlinks(feuillu.Hyperlinks.Count).SubAddress = ref
End If
kase.Worksheet.Activate

End Sub

J'ai donc à ma dispo une boite où j'ai
- la liste des tables que je peux faire dérouler et choisir
- une mini fenêtre où je peux saisir la référence de la cellule à pointer
- une autre fenêtre affichant la valeur de la cellule pointée.

Tout va bien et je récupère bien le nom de la feuille et la valeur de la
cellule pointée avec la mise en forme ci-dessus ( texte = " TABLE " &
nomfeuil & " ZONE " & libele).

Seul pb: je ne peux pas naviguer dans la feuille pour choisir la cellule
désirée, et je suis obligé de saisir les références à taton pour trouver la
bonnne.

Mon collègue m'a parlé d'un ordre 'hiden" ou qq chose d'approchant qui
cacherait la fenêtre du useforms et permettrait de naviguer, mais il
semblerait "peu possible" de le faire réapparaître, ce qui ferait que l'on
ne saurait plus dans quelle cellule on se trouve...

Connaissez-vous un moyen de pouvoir choisir la référence en cliquant sur la
cellule ?

Au plus simple, y-a-t-il un moyen de pouvoir choisir la cellule en cliquant
lorsque l'on utilise la cde insérer un lien hypertexte autre que de saisir
la référence de la cellule (c'est la même pb que dans la macro...)?


"Daniel" a écrit dans le message de news:

Bonjur.
Voici la macro pour retrouver l'adresse hyperlien de la cellule D4 et la
valeur du lien à l'intérieur d'un même classeur :

Sub test()
Adresse = Range("D4").Hyperlinks(1).SubAddress
Valeur = Range(Adresse)
End Sub

Cordialement.
Daniel

"zebulion" a écrit dans le message de news:
dggl25$g9v$
Merci.
Cependant, connaissant assez peu excel, je ne sais pas comment appliquer
cette formule.
Dois-je la saisir dans la case n° de cellule pointée lors de la création
du lien?
ou l'appliquer lors d'un format de cellule?
ou créer une macro (j'ai essayé mais sans résultat )?

http://cjoint.com/?jrkP4EBqCG


Merci de votre aide.

"Daniel" a écrit dans le message de news:

Bonsoir.
Pour une référence à l'intérieur du classeur :
Var = Sheets("Global").Hyperlinks(1).SubAddress
Pour une référence à l'extérieur du classeur :
Var = Sheets("Global").Hyperlinks(2).Address
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgf03u$61r$
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la
valeur d'une cellule utilisée dans un lien hypertexte dans un même
classeur et dans un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la
cellule, mais pas sa valeur en automatique (je suis obligé de la saisir
dans le texte à afficher à la place de la référence pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en
automatique est le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles
dans le 1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe















Avatar
Daniel
Bonsoir.
Excuse-moi, je n'ai pas le courage décortiquer ton code. Par contre, si tu
veux choisir les références depuis un userform, utilise un contrôle
"Refedit" sur ton userform. C'est magique... si c'est bien ça que tu veux.
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgmsf5$fl7$
Bonjour
Cela m'a été très utile et a bien marché.

Cependant je cherche choisir la cellule vers laquelle je veux créer le
lien en naviguant dans la feuille désirée.
Pour cela un collègue m'a créé un useforms auquel j'ai attribué la macro
suivante:


Public ref As String
Public libele As String
Public nomfeuil As String
Public feuillu As Worksheet

Public kase As Range

Public Sub truc()
Dim texte As String

Set feuillu = ActiveSheet
Set kase = ActiveCell
UserForm1.Show
If libele > "" Then
texte = " TABLE " & nomfeuil & " ZONE " & libele

feuillu.Hyperlinks.Add feuillu.Range(kase.Address), "", ref, , ref
feuillu.Hyperlinks(feuillu.Hyperlinks.Count).Range.Value = texte
feuillu.Hyperlinks(feuillu.Hyperlinks.Count).SubAddress = ref
End If
kase.Worksheet.Activate

End Sub

J'ai donc à ma dispo une boite où j'ai
- la liste des tables que je peux faire dérouler et choisir
- une mini fenêtre où je peux saisir la référence de la cellule à pointer
- une autre fenêtre affichant la valeur de la cellule pointée.

Tout va bien et je récupère bien le nom de la feuille et la valeur de la
cellule pointée avec la mise en forme ci-dessus ( texte = " TABLE " &
nomfeuil & " ZONE " & libele).

Seul pb: je ne peux pas naviguer dans la feuille pour choisir la cellule
désirée, et je suis obligé de saisir les références à taton pour trouver
la bonnne.

Mon collègue m'a parlé d'un ordre 'hiden" ou qq chose d'approchant qui
cacherait la fenêtre du useforms et permettrait de naviguer, mais il
semblerait "peu possible" de le faire réapparaître, ce qui ferait que l'on
ne saurait plus dans quelle cellule on se trouve...

Connaissez-vous un moyen de pouvoir choisir la référence en cliquant sur
la cellule ?

Au plus simple, y-a-t-il un moyen de pouvoir choisir la cellule en
cliquant lorsque l'on utilise la cde insérer un lien hypertexte autre que
de saisir la référence de la cellule (c'est la même pb que dans la
macro...)?


"Daniel" a écrit dans le message de news:

Bonjur.
Voici la macro pour retrouver l'adresse hyperlien de la cellule D4 et la
valeur du lien à l'intérieur d'un même classeur :

Sub test()
Adresse = Range("D4").Hyperlinks(1).SubAddress
Valeur = Range(Adresse)
End Sub

Cordialement.
Daniel

"zebulion" a écrit dans le message de news:
dggl25$g9v$
Merci.
Cependant, connaissant assez peu excel, je ne sais pas comment appliquer
cette formule.
Dois-je la saisir dans la case n° de cellule pointée lors de la création
du lien?
ou l'appliquer lors d'un format de cellule?
ou créer une macro (j'ai essayé mais sans résultat )?

http://cjoint.com/?jrkP4EBqCG


Merci de votre aide.

"Daniel" a écrit dans le message de news:

Bonsoir.
Pour une référence à l'intérieur du classeur :
Var = Sheets("Global").Hyperlinks(1).SubAddress
Pour une référence à l'extérieur du classeur :
Var = Sheets("Global").Hyperlinks(2).Address
Cordialement.
Daniel
"zebulion" a écrit dans le message de news:
dgf03u$61r$
Bonjour
Je cherche à récupérer automatiquement le nom de la feuille et la
valeur d'une cellule utilisée dans un lien hypertexte dans un même
classeur et dans un classeur différent

Pour le moment, j'ai le nom de la feuille et la référence de la
cellule, mais pas sa valeur en automatique (je suis obligé de la
saisir dans le texte à afficher à la place de la référence
pré-affichée).
Si j'attribue un nom à la cellule liée, le texte retourné en
automatique est le nom de la cellule sans la feuille...

Y-a-t-il un moyen simple d'afficher automatiquement le chemin "nom de
feuille ET valeur" de la cellule liée ????
PS: Concernant le classeur différent, je peux intégrer ses feuilles
dans le 1er si c'est plus simple

Merci d'avance de votre aide
Cordialement,
Philippe