Liste déroulante de liens hypertextes
titelaurette
-
titelaurette -
titelaurette -
Bonjour à tous,
J’ai tenté de parcourir l’ensemble du forum mais je n’ai rien trouvé qui concerne ma question. Si je me suis trompée merci de m’indiquer le lien.
Ma question est la suivante :
Je souhaiterai créer sous PPT (et sous Excel également) une liste déroulante qui apparaîtrait en cliquant sur un pavé ou une zone de texte. Ce menu déroulant serait un liste de liens, chaque liant cliquable conduisant vers un fichier différent.
Merci d’avance de votre aide !!!
J’ai tenté de parcourir l’ensemble du forum mais je n’ai rien trouvé qui concerne ma question. Si je me suis trompée merci de m’indiquer le lien.
Ma question est la suivante :
Je souhaiterai créer sous PPT (et sous Excel également) une liste déroulante qui apparaîtrait en cliquant sur un pavé ou une zone de texte. Ce menu déroulant serait un liste de liens, chaque liant cliquable conduisant vers un fichier différent.
Merci d’avance de votre aide !!!
A voir également:
- Liste déroulante de liens hypertextes
- Liste déroulante excel - Guide
- Liste déroulante en cascade - Guide
- Liste code ascii - Guide
- Vérificateur de liens - Guide
- Liste déroulante google sheet - Accueil - Guide bureautique
1 réponse
Re- Bonjour à tous
Voici ci-après ce a quoi je suis arrivée
Ça fonctionne mais le problème c'est que chaque fois que l'on utilise la combobox, cela duplique le contenu affiché... un petit peu gênant
Quelqu’un saurait-il me dire d'ou vient le problème?
Merci d'avance!!
Combobox avec le code Visual Basic suivant :
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Text
Case "microsoft"
ThisWorkbook.FollowHyperlink _
Address:="https://www.microsoft.com/fr-fr/microsoft-365?legRedir=default&CorrelationId=413e9254-fbdd-4a0a-86d6-133f7f2f090e&rtc=1", _
NewWindow:=True, AddHistory:=True
Case "google"
ThisWorkbook.FollowHyperlink _
Address:="https://www.google.com/?gws_rd=ssl", _
NewWindow:=True, AddHistory:=True
End Select
End Sub
Private Sub ComboBox1_GotFocus()
With ComboBox1
.AddItem "microsoft"
.AddItem "google"
End With
End Sub
Voici ci-après ce a quoi je suis arrivée
Ça fonctionne mais le problème c'est que chaque fois que l'on utilise la combobox, cela duplique le contenu affiché... un petit peu gênant
Quelqu’un saurait-il me dire d'ou vient le problème?
Merci d'avance!!
Combobox avec le code Visual Basic suivant :
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Text
Case "microsoft"
ThisWorkbook.FollowHyperlink _
Address:="https://www.microsoft.com/fr-fr/microsoft-365?legRedir=default&CorrelationId=413e9254-fbdd-4a0a-86d6-133f7f2f090e&rtc=1", _
NewWindow:=True, AddHistory:=True
Case "google"
ThisWorkbook.FollowHyperlink _
Address:="https://www.google.com/?gws_rd=ssl", _
NewWindow:=True, AddHistory:=True
End Select
End Sub
Private Sub ComboBox1_GotFocus()
With ComboBox1
.AddItem "microsoft"
.AddItem "google"
End With
End Sub
