Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ComboBox (barre d'outils Commande)

ComboBox (barre d'outils Commande)

3 réponses
Avatar
Guylaine
Bonjour =E0 vous !

C'est la premi=E8re fois que j'utilise un ComboBox (barre=20
d'outils Commande), je suis
en mode edition, je r=E9ussi =E0 =E9crire un mot mais je
n'arrive pas =E0 changer de ligne....

Comment faire pour int=E9grer une liste.=20
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
EMiLe
Apparement, il est sur ta feuille (pas dans un userform), dans ce cas


Private Sub ComboBox1_GotFocus()
Dim Liste(2) As String 'nombre de données - 1 // as integer pour des
'chiffres entiers et as double pour des chiffres à virgules
Liste(0) = "Bonjour"
Liste(1) = "Buenos Dias"
Liste(2) = "Hello" 'tu peux continuer avec Liste(3) etc
ComboBox1.List = Liste()
End Sub

ou même si tes données se trouvent sur la feuille

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "a1:a10"
End Sub



Si tu as des problèmes, n'hésite pas...

EMiLe



Bonjour à vous !

C'est la première fois que j'utilise un ComboBox (barre
d'outils Commande), je suis
en mode edition, je réussi à écrire un mot mais je
n'arrive pas à changer de ligne....

Comment faire pour intégrer une liste.




Avatar
guylaine
Bonjour Émile

Si ma liste est sur la feuil2, comment pourrais-je la
sélectionner.

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "a1:a10"
End Sub


-----Message d'origine-----
Apparement, il est sur ta feuille (pas dans un userform),
dans ce cas



Private Sub ComboBox1_GotFocus()
Dim Liste(2) As String 'nombre de données - 1 // as
integer pour des

'chiffres entiers et as double pour des chiffres à
virgules

Liste(0) = "Bonjour"
Liste(1) = "Buenos Dias"
Liste(2) = "Hello" 'tu peux continuer avec Liste(3) etc
ComboBox1.List = Liste()
End Sub

ou même si tes données se trouvent sur la feuille

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "a1:a10"
End Sub



Si tu as des problèmes, n'hésite pas...

EMiLe



Bonjour à vous !

C'est la première fois que j'utilise un ComboBox (barre
d'outils Commande), je suis
en mode edition, je réussi à écrire un mot mais je
n'arrive pas à changer de ligne....

Comment faire pour intégrer une liste.


.





Avatar
Guylaine
Bonjour Émile

J'ai fait des tests et j'ai trouvé l'information
ComboBox1.ListFillRange = "feuil2!A1:A10"

Merci beaucoup pour ton aide.
Bonne journée !

-----Message d'origine-----
Bonjour Émile

Si ma liste est sur la feuil2, comment pourrais-je la
sélectionner.

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "a1:a10"
End Sub


-----Message d'origine-----
Apparement, il est sur ta feuille (pas dans un
userform),


dans ce cas


Private Sub ComboBox1_GotFocus()
Dim Liste(2) As String 'nombre de données - 1 // as
integer pour des

'chiffres entiers et as double pour des chiffres à
virgules

Liste(0) = "Bonjour"
Liste(1) = "Buenos Dias"
Liste(2) = "Hello" 'tu peux continuer avec Liste(3) etc
ComboBox1.List = Liste()
End Sub

ou même si tes données se trouvent sur la feuille

Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "a1:a10"
End Sub



Si tu as des problèmes, n'hésite pas...

EMiLe



Bonjour à vous !

C'est la première fois que j'utilise un ComboBox
(barre



d'outils Commande), je suis
en mode edition, je réussi à écrire un mot mais je
n'arrive pas à changer de ligne....

Comment faire pour intégrer une liste.


.


.