A voir également:
- Liste déroulante de liens hypertextes
- Liste déroulante excel - Guide
- Liste de numéro de téléphone suspect 07 ✓ - Forum Mobile
- Supprimer liste déroulante excel ✓ - Forum Excel
- Annuaire inversé gratuit liste rouge - Forum Internet / Réseaux sociaux
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum 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