Liste déroulante en VBA (dans une cellule)

Bonjour,

J'aimerais créer une liste déroulante (deux colonnes, la première étant invisible mais sera la référence du choix...)

J'ai essayé avec l'option "validation de données - Liste", mais une seule colonne peut-être référencée... moi j'aimerais deux...

Je me tourne donc vers le VBA... J'arrive facilement à créer une liste déroulante deux colonnes etc... dans une fenêtre indépendante, mais pas directement dans une cellule...

Pourriez-vous m'aider ?

Exemple de liste

Colonne 1 (invisible)	Colonne 2 (visible)
1	A10 & " vs " & B10
2	A11 & " vs " & B11
3	A12 & " vs " & B12
4	A13 & " vs " & B13
5	A14 & " vs " & B14
6	A15 & " vs " & B15
7	A16 & " vs " & B16
8	A17 & " vs " & B17
9	A18 & " vs " & B18
10	A19 & " vs " & B19

Merci d'avance

Bonjour,
Au stade actuel de mes connaissances, il est impossible d'afficher une liste déroulante dans une cellule avec plus d'une colonne. Seul le bouton ActiveX ComboBox ou ListBox permet d'afficher plus d'une colonne. Il est évidemment possible de l'insérer au moment de la sélection de la cellule mais je trouve que c'est fort lourd.

Personnellement, j'ai créé une procédure qui détecte au double-click si la cellule contient une Validation de données-List et si c'est le cas, je lance un formulaire de recherche multiple permettant à l'utilisateur de faire une recherche partielle sur des éléments contenus dans une colonne de la liste référencée dans la validation de données et dès qu'il a fait son choix, il fait un double clic dans la liste et j'insère la valeur correspondant à la colonne référencée dans la validation de données.
Cela me permet de continuer à utiliser les fonctionnalités natives d'excel et n'utiliser le VBA que pour une tâche ponctuelle.

Bonsoir,

Exemple de combobox avec 2 colonnes dans une cellule.
Je ne vois pas pourquoi il y aurait un problème.
Si on ne veut pas voir la première colonne, il suffit de la mettre à 0 en largeur.
On peut la déplacer. Récupérer la seconde colonne.

Code:

---

1 2 3

Private Sub ComboBox1_GotFocus() ComboBox1.List = [liste].Value End Sub

---

Boisgontier