XL 2013 Affichage liste de données au clic sur la cellule

[Usine à gaz]

Bonjour à toutes et à tous,

Petit souci pratique que je ne parviens pas à résoudre malgré les essais et recherches.

Je me permets de vous le soumettre

Création liste de validation des données,

Quand on clique sur la cellule qui contient la liste de validation, pour afficher la lite, il faut cliquer sur le petit bouton à droite.

J'aimerais pouvoir afficher "direct" la liste de validation au clic sur la cellule ou à l'activation (vba).

C'est peut-être "tout simple" mais je ne trouve pas
Auriez-vous la solution ?

Je joins un petit fichier test.
Et, je continue à chercher
Avec mes remerciements,
Je vous souhaite à toutes et à tous un beau WE,
Amicalement,
Lionel,

 

[Usine à gaz]

Merci JM pour l'attention, mais je ne sais pas le tester

 

[Staple1600]

Re
arthour
Tu rigoles j'espère? (tu es barbatruc, non?)
1) Tu ouvres Excel, et tu te rends sur la première feuille venue
2) Tu inséres un ComboBox dans une feuille
3) Tu colles le code VBA de mon précédent message
(je te vais faciliter la tâche avec l'ajout évoqué précédemment)

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = ComboBox1.TopLeftCell.Column Then
ComboBox1.List = Split("a b c d e")
ComboBox1.ListIndex = 0: ComboBox1.DropDown
End If
End Sub

PS: Tu sais adapter/réprendre le code de Roland_M mais tu ne sais tester mon bout de code...
Si j'étais moi, j'appelerai cela du foutage de g*e*le

 

[Usine à gaz]

Re JM;
J'ai testé quand même LOL,
Merci pour le code
Je préfère toutefois rester sur ma listbox
Lionel

 

[Staple1600]

Re

Ouf, parce que je venais de pondre ceci pour te faciliter la tâche
(Donc comme j'ai pondu, je poste )

Sub Creation_COMBO_pour_Arthour()
    With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
    Link:=False, DisplayAsIcon:=False, Left:=Cells(1, 5).Left, Top:=Cells(10, 5).Top, Width:=100, Height:=18)
    .Object.List = Split("1 2 3 4 5 6 7")
    End With
End Sub

PS: Comme disait ma tante Angèle: "Faut pas perdre")
Donc ca pourra toujours servir à d'autres qui s'aventuront dans ton fil

NB: Tu as testé OK, mais est-ce que cela a fonctionné?
Qu'as-tu constaté quand tu sélectionnais une cellule dans la colonne où se situe la combo?

 

[Usine à gaz]

OUI JM, je me demande comment mais ça a marché

 

[Staple1600]

Re

Qu'est-ce qui a marché?
Tu as zappé ta réponse à la question 2 de mon précédent message