[VBA] Fonctionnement ComboBox

Résolu/Fermé

Al1 - 11 août 2005 à 22:45
Hamid - 18 août 2010 à 12:40

Salut à tous !

Ce que je vais vous demander n'est pas compliquer : je ne sais pas comment mettre plusieurs "noms" dans ma ComboBox.
Comment faire ?
Merci !

A voir également:

Combobox additem
Additem combobox vba - Meilleures réponses
Vba combobox - Meilleures réponses
Combobox word - Forum Word
Combobox vba liste déroulante dynamique ✓ - Forum Excel
Propriétés combobox vba ✓ - Forum VB / VBA
Remplir combobox vba ✓ - Forum Excel
Vba combobox selected item ✓ - Forum VB / VBA

7 réponses

Réponse 1 / 7

Soldiertt Messages postés 13 Date d'inscription mardi 9 août 2005 Statut Membre Dernière intervention 7 septembre 2008 3
11 août 2005 à 22:49

Me.Combobox1.AddItem "Lundi"
Me.Combobox1.AddItem "Mardi"

Al1
13 août 2005 à 10:43

OK ! C'est impec, ca marche ! Merci beaucoup !

Maintenant j'ai 3 autres questions :
1. A quoi sert le Me en premier ? j'ai essayé sans et ca fonctionnait aussi.
2. J'ai une barre de défilement horizontale qui s'affiche alors que mes items rentrent largement dans la combobox. Comment on fait pour l'enlever ?
3. Quand je voudrais savoir ce qui a été sélectionné, le code sera :
If Me.ComboBox1.Item = "Lundi" then... ?

Merci pour tout !

Réponse 2 / 7

NJ
5 sept. 2005 à 14:56

il y a deux façons pour mettre du contenu dans l'objet combobox
dans Microsoft Excel
les deux sont faciles à réaliser.
la première méthode consiste à utiliser la propriété du contrôle combobox nomée ROWSOURCE (voir les propriétés du cont^rôle lorsque vous cliquez sur celui-ci)
la seconde consiste à tapez du code en utilisant la propriété ADDITEM du contrôle Combobox
ce qui suit des exemples pour chaque methode.
(utilisation de données de la feuille Excel):
Exemple Première methode:
- dans les cellules A1 à A3 de la feuille Excel, entrez les textes Produit1, ProduitB, ProduitC.
-poser un label sur votre Userform.
- poser une zone de liste modifiable sur votre Userform
- recherchez la propriété RowSource de la ComboBox1 et entrez les références à la feuille Excel comme ceci: Feuil1!A1:A3 ( Il s'agit tout simplement de la source des données affichées dans la ComboBox)
- recherchez la propriété Value et donnez lui comme valeur: Choisir
- poser un bouton de commande et entrez le code suivant:
Private Sub CommandButton1_Click()
Label1.caption = ComboBox1.Value
End Sub
- exécuter le programme
Exemple Deuxième mèthode :
- sélectionnez la combobox1 vérifiez que la propriété ROWSOURCE est Vide.
- double-cliquez sur le userform pour accèder au code
- entrez le code suivant
Private Sub UserForm_Initialize()
ComboBox1.AddItem "New york"
ComboBox1.AddItem "Paris"
ComboBox1.AddItem "Oslo"
End Sub
- exécuter le programme
A chaque clic sur le bouton, l'intitulé affiche la valeur sélectionnée. l'utilisateur peut ajouter des entrées dans la combobox sans probléme.
Bon courage

Réponse 3 / 7

vince75 Messages postés 5 Date d'inscription mardi 16 août 2005 Statut Membre Dernière intervention 16 août 2005 5
16 août 2005 à 16:05

1. "Me" est l'objet "parent" de la combobox1, qui peut-être par exemple un feuille excel (=onglet) ou un formulaire.

Exemple : si ta combobox s'appelle ma_boite (tu peux la renommer dans le champ "name" des propriétés), et qu'elle est sur l'onglet "feuil1", il faudra la désigner comme feuil1.ma_boite
Tu peux donc avoir des combobox qui portent le même nom sur différents onglets (elles n'auront pas le même parent). Si tu appelles directement ma_boite, le VB ne saura pas qui appeler s'il y a ambiguité (sinon ça marche tu l'as vu, VB "devine" avec le contexte)

2. celà vient du fait que la propriété Columnwidths doit avoir une valeur supérieure à "Width". Tu peux laisser Columnwidths vide (sinon, si tu as plusieurs colonnes, il faut indiquer les différentes largeurs en points séparées par des points-virgules)

3. non, il faudra utiliser soit me.combobox.value, qui renvoit la valeur de la ligne sélectionné, et de la colonne indiquée par la propriété boundcolumn (par défaut 1 = première colonne)

Al1
18 août 2005 à 22:02

Merci !

Maintenant je pense que c'est ma toute derniére question :
dans la premiére réponse que j'ai reçu j'ai eu pour ligne de commande "ComboBox.AddItem..."
Le probléme est qu'à chaque fois que j'utilise la combobox, j'ai ça :
_ 1ére utilisation : 2 choix (normal)
_ je resélectionne, 2 éme utilisation : 4 choix qui sont 2 fois les mêmes etc...

Quel est la bonne ligne de commande pour éviter ça ?

WhiteFang Messages postés 2063 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 204
5 sept. 2005 à 16:19

;-)

Houlà houlà, Vince75 !

Dans l'exemple que tu donnes : L'objet Me ne pourra jamais être une feuille !! L'objet Me, c'est la UserForm en cours !! Ca, c'est du vieil Excel où la définition de ta boîte de dialogue était dans la feuille !! Une boîte de dialogue, maintenant, n'est plus sur une feuille, c'est un objet à part... Et bon, cela m'étonnerais qu'il tourne sous Excel 7 ou 95...

Je dis juste ça car le post "date" un peu, mais le reste n'est pas tout à fait vrai non plus... Sorry...

;-)

Réponse 5 / 7

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
29 janv. 2008 à 11:04

Bonjour,

Il y a plusieurs possibilités d'exploiter la selection d'un utilisateur dans une combobox.
On peut exploiter directement le choix sur l'évènement change de la ComboBox, c'est à dire que dès que l'utilisateur séléctionne une valeur dans la liste de la ComboBox, il se passe quelque chose immédiatement :
Par exemple :

Private Sub Combo1_Change()
     Call AfficheSelect(Combo1.Text)
End Sub

Private Sub AfficheSelect(Byval str As Variant)
     MsgBox "Vous avez sélectionné : " & str & ".",,"Message"
End Sub

On peut également faire la même chose sur le click d'un bouton de confirmation par exemple.

Private Sub boutonOk_Click()
     Call AfficheSelect(Combo1.Text)
End Sub

...

C'est, je pense, les 2 façons les plus simples.
J'espère avoir répondu.
Bon courage

;o)

Polux

Discussions similaires

VBA: remplir combobox à partir d'une colonne

selectionner un item dans une combobox

Liste déroulante pour ComboBox

Excel/VBA - Remplir ComboBox avec valeurs

VBA Excel : Alimenter ComboBox

Value at Risk / VBA Finance