Liste déroulante et lien hypertexte
Bonjour à tous!
Premier post,
J'explique mon problème, j'ai crée une liste déroulante avec une table et validation de données. mais de ce que je comprends ces listes déroulantes ne prennent que le texte en compte, Or ma table contient des liens hypertextes.
La question: comment puis-je faire pour qu'en sélectionnant une valeur de la liste déroulante le lien apparaisse ?
Merci d'avance
bonne journée
Sois le bienvenu.
Une liste déroulante ne contient pas que du texte. Elle contient surtout la numéro de la ligne sélectionnée par l'utilisateur :
-1 = l'utilisateur n'a encore rien sélectionné
0 = item n° 1,
1 = item n° 2, etc. A partir de ce numéro, tu peut agir sur l'action à déclencher. Si cette action pointe sur un lien hypertexte, tu connais la suite.
Merci pour la réponse
Apprenant "sur le tas", je ne connais pas la suite
un peu plus d'explications ne seraient pas de refus
Merci d'avance
Bon, tu l'auras voulu.
1 Option Explicit
2
3 Public choix As Integer
4
5 Private Sub ComboBox1_Change()
6 choix = ComboBox1.ListIndex
7 End Sub
8
9 Private Sub CommandButton1_Click()
10 If choix < 0 Then Exit Sub
11
12 Select Case choix
13 Case Is = 0:
14 ActiveWorkbook.FollowHyperlink Address:="https://www.rohan-photo.com/galeries/autos/index.html", NewWindow:=True
15 Case Is = 1:
16 ActiveWorkbook.FollowHyperlink Address:="https://www.rohan-photo.com/galeries/gouttes/index.html", NewWindow:=True
17 Case Is = 2:
18 ActiveWorkbook.FollowHyperlink Address:="https://www.rohan-photo.com/galeries/paysages/index.html", NewWindow:=True
19 End Select
20 End Sub
21
22 Private Sub UserForm_Activate()
23 Me.ComboBox1.AddItem "Autos de rêve"
24 Me.ComboBox1.AddItem "Gouttes d'eau"
25 Me.ComboBox1.AddItem "Paysages"
26 End Sub1 Déclaration des variables obligatoires (paramétrage de VBE fortement conseillé)
3 La variable choix est déclarée publiquement pour pouvoir être utilisée dans la liste déroulante, puis dans le bouton de commande.
6 On récupère le n° de l'item sélectionné par l'utilisateur. Le 1er item commence à 0. Il reste à -1 tant que rien n'a été sélectionné.
10 Rien n'a été sélectionné, le bouton de commande n'exécute rien : on sort.
12 à 19 : selon le choix de l'utilisateur (0,1 ou 2) on fait ce que l'on veut : ouvrir un document sur son disque dur, sur un réseau, sur un serveur distant, etc. Ici, on crée des liens Internet avec des albums photo (tu peux en user et en abuser, ils sont à moi).
22 à 26 : au chargement de la UserForm, on avait chargé la combo avec 3 items correspondant aux albums photo. Ca c'est du texte.
Voilà, tu sais le principal concernant les listes déroulantes.