Discussion :

[horemheb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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).

[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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox userform.combobox1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox sheets("toto").combobox1.value

[Pierre Fauconnier]

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.

[patricktoulon]

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

[horemheb]

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.