Discussion :

[Invité]

Bonjour à tous,
Encore un petit soucis de VBA

J'ai dans une feuille (feuil1) une liste avec un déroulant qui m'ouvre le lien correspondant (çà marche)

le soucis c'est que mon déroulant, je dois le mettre dans une autre feuille( feuil2) du même classeur,

et là, je sèche.

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$6" Then
     temp = Application.Index([listeLiens], , 1).Find(Target, LookAt:=xlWhole).Offset(, 1)
 
   ActiveWorkbook.FollowHyperlink Address:="C:\Users\Toto\Desktop\Chauffeurs\" & temp
  End If
End Sub

[Invité]

Bonjour,

Bon, je crois que j'ai mal exprimé ma demande (moi je me comprends c'est déjà çà)

Sur une feuille j'ai une liste déroulante qui comporte des noms par exemple, et en cliquant sur le nom choisi j'arrive à ouvrir le lien (la liste des noms et la liste déroulante sont sur la même feuille) Pas de soucis, là çà marche

Moi je voudrais, que ma liste déroulante soit sur une autre feuille et que suivant le choix du nom cela m'ouvre le lien de la feuille comportant la liste des noms, et là, je séche

Merci d'avance

[goldstar]

Bonjour,

Je ne comprends pas trop votre problème.

je viens de mettre le menu déroulant dans une autre feuille et votre code fonctionne parfaitement.

J'ai peut etre pas tout compris !!!!!!

Cordialement,

[Invité]

Bonjour à tous et désolé du retard pour la réponse

Mais de mon côté cela ne marche pas

j'ai même essayé sur une même feuille en déplaçant le menu déroulant "$A$6" sur une autre cellule et "NIET"

alors je crois qu'il y a dans le code précisé en-dessous l'emplacement des cellules à respecter

La liste [ListeLiens] se trouve en D2:E:100 et sur un Tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address = "$A$6" Then
     temp = Application.Index([listeLiens], , 1).Find(Target, LookAt:=xlWhole).Offset(, 1)
 
   ActiveWorkbook.FollowHyperlink Address:="C:\Users\Toto\Desktop\Chauffeurs\" & temp
  End If
End Sub

Merci d'avance et bonne journée