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

Usine à gaz · 1 Juin 2019

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 · 2 Juin 2019

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

Staple1600 · 2 Juin 2019

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)

VB:

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 · 2 Juin 2019

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

Staple1600 · 2 Juin 2019

Re

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

VB:

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 · 2 Juin 2019

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

Staple1600 · 2 Juin 2019

Re

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

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires