Utiliser la valeur choisie dans une ComboBox

Bonjour,
J'utilise une ComboBox (contrôle ActiveX) nommée Ville_Depart pour choisir une ville dans une liste, je voudrais ensuite exploiter le choix réalisé sans passer par la propriété LinkedCell. Très simple me diriez-vous, il suffit d'écrire :

Code:

---

1 2 3 4 5

Sub Affecte_Ville()   Cells(2, 7).Value = Ville_Depart.Text   End Sub

---

Ça ne fonctionne pas, j'ai une erreur 424 : Objet requis sur la ligne 3. Ça ne fonctionne pas mieux avec Ville_Depart.Value

Quel est le problème ??? Qu'ai-je oublié ???

D'autre part, dans les propriétés, il n'existe pas ListIndex, qui permettrait de connaître la position du choix dans la liste. Comment l'obtenir ???

Merci de m'aider.

Salut.

ListIndex existe bien pour les combobox activeX. Note toutefois que l'index commence à 0 pour la ligne 1.

Mais Value fonctionne aussi très bien pour récupérer la valeur affichée.

Es-tu sûr que tu utilises bien un activex et pas un contrôle de formulaire?

Si tu utilises bien un ActiveX, tu dois noter que c'est un objet qui est "posé" sur la feuille Excel, il en devient donc une propriété.

Tu devrais alors utiliser un code du genre

Code:

---

Cells(2, 7).Value = Feuil1.Ville_Depart.Text

---

Bonjour
Je n'aime personnellement pas que l'on joue avec les propriétés (Text ou Value) d'une combobox. Elle peuvent contenir en fait également ce que l'on frappe dans la zone d'édition de ce contrôle, sans que cette saisie ne corresponde forcément à un article sélectionné.
Je préfère de très loin ma "rigidité", à savoir :

Code:

---

1 2 3

If combobox1.Listindex >= 0 then toto = combobox1.List(Combobox1.listindex) end if

---

ceci étant dit : le message d'erreur reçu, à savoir :

Citation:

---

Objet requis sur la ligne 3

---

dénonce un autre problème ( soit cette combobox est nommée différemment, soit elle est dans un autre objet Excel que celui en cours).

Bonjour
en tout etat de cause une combobox contient une liste et non un texte

donc Ville_Depart.Text le text est une erreur c'est value

apres comme unparia l'a démontré selon ton utilsation effectivement tu peut aussi utilisé le List index

après comme pierre fauconnier la dis il est préférable de nommer le parent surtout si on se sert de la combo dans un autre module c'est évident

Code:

---

msgbox userform.combobox1

---

Code:

---

msgbox sheets("toto").combobox1.value

---

Citation:

---

Envoyé par patricktoulon

Bonjour
en tout etat de cause une combobox contient une liste et non un texte

donc Ville_Depart.Text le text est une erreur c'est value

[...]

---

Hum... Mais si Patrick, Text est une propriété valide du combobox.

ComboBox1.Text renvoie le texte affiché, ComboBox1.Value renvoie la valeur de la colonne liée (BoundColumn) sur la ligne sélectionnée (souvent la première colonne masquée du combobox).

Text et Value renverront donc la même valeur uniquement lorsque la colonne liée est la colonne affichée (comme par exemple dans le cas des combobox monocolonne)

Quant à combobox1.List(Combobox1.listindex), il faut noter que cela renverra la valeur de la première colonne sur la ligne sélectionnée, qui n'est pas toujours la même que la colonne liée.

re
ok pierre fauconnier je n'avais jamais prêter attention a cela
je pense pas avoir eu un jour a m'en servir
bon ben c'est toujours ca de pris
merci

Merci de vos conseils, effectivement il faut préciser dans quelle feuille se situe la combobox. J'ai tout supprimé et recommencé, ça marche comme je le souhaite.