OVH Cloud OVH Cloud

Liens hypertextes Dessins vers cellules

3 réponses
Avatar
El pequeno
Bonjour à tous.

Votre mission, si vous l’accepter, consiste à sauvegarder l’intégrité
physique et psychologique d’une jeune secrétaire.

Voici le problème : il s’agit d’automatiser la création de liens hypertextes
entre les « dessins » d’une feuille A ( plan d’implantation de bureau ), «
Shape » ou « ShapeRange » en langage VBA, et les cellules d’une feuille B (
liste de nom ) d’un même classeur, et ce de façon bijective
En ce qui concerne l’infrastructure ( bouton à cliquer, macro associée ou
autre, etc..), je me débrouille. En revanche, si j’arrive bien à créer le
lien entre une
« ShapeRange » et une cellule d’une autre feuille ( ce qui est faisable à la
main ) avec quelque chose comme :
Sheets(« feuille A »).Hyperlinks.Add _
Anchor:=Selection.ShapeRange.Item(1), _
Address:="", _
SubAddress:="'feuille B'!B2"
je rencontre des soucis dans l’autre sens ( cellule/Shape, ce qui n’est
d’ailleurs pas faisable à la main ). Quelque chose comme :
Sheets(«feuille B »).Hyperlinks.Add _
Anchor:=Sheets(« feuille B »).Range("B2"), _
Address:="", _
SubAddress:=Selection.ShapeRange.Item(1)
se déroule sans erreur, et créer effectivement un lien sur la cellule (
texte en bleu ), mais quand je clique sur celui ci, le message « référence
non valide » apparaît.

Pourriez vous me dire s’il existe un « truc » pour faire ce que je souhaite
et s’il est possible d’associer un texte à ma « Shape » à l’aide d’un autre
truc pour faire fonctionner la propriété « TextToDisplay » de la méthode «
Hyperlinks.Add » (non faisable à la main ), ou autre…
Sinon, notre jeune secrétaire devra se fader les liens à la main ( x 350 x
2, sans parler des mises à jour inivétables dans un contexte de turn over
obligatoire et accéléré…) et elle risque de ne pas rester jeune très
longtemps !

Bien entendu, si l’un d’entre vous venait à…me donner la réponse, je nierai
avoir eu connaissance de ses agissements…m’arrogeant ainsi l’entier bénéfice
de son savoir !
(i’m killing…)

Cordialement
PS : Dans les exemples ci-dessus, la « Shape » est préalablement
sélectionnée, ce qui explique le « Selection.ShapeRange.Item(1) »

3 réponses

Avatar
El pequeno
Bon, je n'ai pas l'air de passionner les foules...
Merci aussi de m'indiquer s'il n'y a pas de solution au problème tel
qu'énoncé, je me
débrouillerai autrement...
Rassurez vous pour la propriété intellectuel, je ne peux pas ouvrir une
connection internet seul et je suis étroitement surveillé (suis pas cadre !),
aussi tout le bureau est au courant lorsque je fait appel à vos lumières..
Toujours aussi cordialement...


Bonjour à tous.

Votre mission, si vous l’accepter, consiste à sauvegarder l’intégrité
physique et psychologique d’une jeune secrétaire.

Voici le problème : il s’agit d’automatiser la création de liens hypertextes
entre les « dessins » d’une feuille A ( plan d’implantation de bureau ), «
Shape » ou « ShapeRange » en langage VBA, et les cellules d’une feuille B (
liste de nom ) d’un même classeur, et ce de façon bijective
En ce qui concerne l’infrastructure ( bouton à cliquer, macro associée ou
autre, etc..), je me débrouille. En revanche, si j’arrive bien à créer le
lien entre une
« ShapeRange » et une cellule d’une autre feuille ( ce qui est faisable à la
main ) avec quelque chose comme :
Sheets(« feuille A »).Hyperlinks.Add _
Anchor:=Selection.ShapeRange.Item(1), _
Address:="", _
SubAddress:="'feuille B'!B2"
je rencontre des soucis dans l’autre sens ( cellule/Shape, ce qui n’est
d’ailleurs pas faisable à la main ). Quelque chose comme :
Sheets(«feuille B »).Hyperlinks.Add _
Anchor:=Sheets(« feuille B »).Range("B2"), _
Address:="", _
SubAddress:=Selection.ShapeRange.Item(1)
se déroule sans erreur, et créer effectivement un lien sur la cellule (
texte en bleu ), mais quand je clique sur celui ci, le message « référence
non valide » apparaît.

Pourriez vous me dire s’il existe un « truc » pour faire ce que je souhaite
et s’il est possible d’associer un texte à ma « Shape » à l’aide d’un autre
truc pour faire fonctionner la propriété « TextToDisplay » de la méthode «
Hyperlinks.Add » (non faisable à la main ), ou autre…
Sinon, notre jeune secrétaire devra se fader les liens à la main ( x 350 x
2, sans parler des mises à jour inivétables dans un contexte de turn over
obligatoire et accéléré…) et elle risque de ne pas rester jeune très
longtemps !

Bien entendu, si l’un d’entre vous venait à…me donner la réponse, je nierai
avoir eu connaissance de ses agissements…m’arrogeant ainsi l’entier bénéfice
de son savoir !
(i’m killing…)

Cordialement
PS : Dans les exemples ci-dessus, la « Shape » est préalablement
sélectionnée, ce qui explique le « Selection.ShapeRange.Item(1) »



Avatar
Norvi
Bonsoir,

J'ai regardé ton problème, mais pas encore eu le temps d'y reflechir.
J'aurais quand même une petite question : comment est-ce que tu sais
que la cellule B2 doit être lié à l'image XXX ?

Bonne soirée,

N.
Avatar
El pequeno
Bonjour, et merci de ta reponse. Je me sens moins seul.

C'est ce que j'appelle "l'infrastructure". J'ai fait un truc du genre:
- L'opératrice ( notre jeune secretaire) sélectionne un nom dans la
liste de noms (cellule B2 dans l'exemple )
- Puis elle clique sur un bouton ( control ) qui la renvoie sur le plan
d'implantation ou elle sélectionne un bureau ( image XXX ) et le lien se crée
automatiquement dans les deux sens.
Tout cela ne me pose pas de problème. Aujourd'hui, le bouton en question est
un menu déroulant rajouté dans la barre de menu avec trois sous menu :
- Nouveau
- Modifier
- Supprimer

Tout cela reste une vaste utopie sans la possibilité de créer le lien image
XXX/cellule X. Tu as sans doute compris qu'il s'agit de savoir qui habite ou
d'un simple clique sur le plan ou la liste, et tu va me demandé pourquoi elle
n'écrit pas simplement le nom du posseseur du bureau dans l'image. C'est que
dans la liste se trouve aussi une palanqué d'informations ( N° de tél,
matricule, etc...).

Dans l'attente angoissée d'une réponse, Cordialement.


Bonsoir,

J'ai regardé ton problème, mais pas encore eu le temps d'y reflechir.
J'aurais quand même une petite question : comment est-ce que tu sais
que la cellule B2 doit être lié à l'image XXX ?

Bonne soirée,

N.