liste déroulante et liens hypertextes

[chouaggy]

Bonjour tout le monde

je viens vous demander de l'aide pour personnaliser une liste déroulante. je voudrais que le nom sélectionné dans ma liste se reporte à un autre fichier excel prédéfini via un lien hypertexte.
j'ai lu quelques messages se rapportant à ma demande sur le site mais les macros utilisées semblent très personnalisées et je n'arrive pas à les faire fonctionner pour mon fichier.
il faut dire que je ne connais rien en vba.

Le problème c'est que le fichier sera souvent modifié (ajout de noms, création d'autres tableaux)
Peut-on faire ces manip sans macros ?
Si non, la macro peut-elle être personnalisée pour que je puisse l'adapter au fur et à mesure ?

merci d'avance. bon courage ;-)
richard

 

[Regueiro]

Re : liste déroulante et liens hypertextes

Bonsoir
Ici une piste et code à adapter à ta situation
Menu déroulant et ouverture fichier Excel [Résolu]

@+

 

[chouaggy]

Re : liste déroulante et liens hypertextes

salut Regueiro
je vais essayer mais c'est vraiment du chinois pour moi.

merci d'avoir pris le temps de me répondre
@+

 

[DoubleZero]

Re : liste déroulante et liens hypertextes

Bonjour à toutes et à tous,

En attendant mieux... une suggestion en pièce jointe.

A bientôt

 

[chouaggy]

Re : liste déroulante et liens hypertextes

merci l'ami. je suis pas encore au point mais je vais prendre le temps

 

[job75]

Re : liste déroulante et liens hypertextes

Bonjour chouaggy, Regueiro, DoubleZero

Je ne sais pas si c'est difficile à comprendre :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ThisWorkbook.FollowHyperlink [Personnel] _
  .Find(Target, , xlValues, xlWhole).Hyperlinks(1).Address
End Sub

J'ai rendu dynamique le tableau "Personnel".

Fichiers joints.

A+

 

[job75]

Re : liste déroulante et liens hypertextes

Re,

Le problème posé n'étant pas très clair, voici une 2ème solution qui consiste à copier le lien hypertexte :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Hyperlinks.Add Target, [Personnel] _
  .Find(Target, , xlValues, xlWhole).Hyperlinks(1).Address
End Sub

Fichiers (2).

A+

 

[chouaggy]

Re : liste déroulante et liens hypertextes

salut job75

le test(2) ressemble + à ce que je cherche à faire !!

merci beaucoup

 

[job75]

Re : liste déroulante et liens hypertextes

Re,

Ressemble plus ? Ma foi je ne vois pas d'autres solutions.

Soit on suit le lien hypertexte, soit on le copie.

A+