XL 2016 Bouton pour lancer un lien hypertexte

[PJENS]

Bonjour,
j'aimerais pouvoir activer le lien hypertexte contenu dans la cellule D5 (issu d'une formule et non insertion de lien) avec un bouton, si quelqu'un pourrait corriger le code VBA du fichier joint, ce serait vraiment super.
Merci d'avance.

 

[xUpsilon]

Bonjour,

A quoi est sensé correspondre ce lien ? Je n'arrive pas à travailler dessus car j'ai une erreur d'indice inexistant (logique me diras tu)

Bonne continuation

 

[PJENS]

Le lien contenu dans D5 est obtenu à partir du menu déroulant de B5, et qui est le nom des onglets cibles, donc le lien va ouvrir la feuille cible.

 

[PJENS]

En fait, ce que je veux obtenir, c'est au lieu de cliquer sur le lien de D5, je clique sur le bouton (que je vais mettre au dessus de la cellule D5).

 

[xUpsilon]

Donc tu cherches à créer un bouton pour accéder aux autres onglets de ton classeur ?

 

[PJENS]

Oui c'est cela, mais en prenant en considération que je vais créer jusqu'à de 200 feuilles et même plus, donc le nombre de feuille sera évolutif, créer un lien dynamique à partir de la validation de donnée est déjà une solution technique que j'ai trouvé, mais par souci de présentation et de pertinence, je voudrai que le clique va se faire sur un bouton, le mieux c'est de lier D5 au bouton, mais je suis preneur d'une autre solution du moment qu'on clique sur un bouton pour accéder à une feuille spécifique.

 

[job75]

Bonjour PJENS, xUpsilon,

La macro du bouton :

Sub Macro1()
On Error Resume Next
Application.Goto Evaluate(Evaluate(Split(Replace(Replace([D5].Formula, "(", ","), "#", ""), ",")(1)))
End Sub

Remarques importantes :

- la cellule D5 ne doit pas être au format Texte

- pour le cas où il y aurait des espaces dans le nom de la feuille il faut l'encadrer par des apostrophes, formule en D5 :

=LIEN_HYPERTEXTE("#'"&B5&"'!a1";B5)

A+

 

[PJENS]

ça fonctionne comme je l’espère
merci infiniment job75
A+

 

[Eric C]

Bonjour le forum
Bonjour PJENS, xUpsilon, job75

Sinon, comme tu es preneur de toutes autres solutions, je te propose celle de notre ami Hervé (que je salue au passage ) . Pas de bouton qui "pollue" ta page, un simple double clic sur une cellule et tu as la liste (évolutive) de tes feuilles. Pour t'y rendre, à nouveau un double clic sur la feuille désirée.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars("Workbook tabs").ShowPopup
End Sub

Bonne journée à toutes & à tous
@+ Eric c

 

[job75]

Bonjour Eric C,

S'il s'agit d'afficher la liste des feuilles le VBA est vraiment inutile : clic droit en bas à gauche des onglets.

A+

 

[Eric C]

Re,

C'est vrai que je n'évolue pas très vite.... - Je suis encore avec mon Excel 95 et mon Win Xp.....Faut pas m'en vouloir mais j'y arriverai un jour.
Et puis le but n'est il pas de participer et de découvrir d'autres horizons grâce à des personnes comme toi ???
Sur ce bon appétit à toutes & à tous
@+ Eric c

 

[patricktoulon]

bonjour a tous

@job75 ++++
jolie le double evaluate qui renvoie l'object range

la même chose en obtenant le string(parent!cel) d'une autre façon

Sub testx()
On Error Resume Next
Application.Goto (Evaluate(Evaluate(Chr(34) & Split(Split([D5].Formula, "#")(1), ",")(0))))
End Sub