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]

Eureka : j'ai trouvé

en vba avec cette instruction :
SendKeys "%{down}"

 

[job75]

Bonjour Lionel,

Evite l'envoi de touches, c'est barbare et ça désactive le pavé numérique.

A+

 

[Usine à gaz]

Bonjour Gérard,
Merci pour ton conseil.
J'ai vu que ça désactive le pavé numérique 😡
Mais je ne sais pas koi utiliser à la place de SendKeys "%{down}"
@+

 

[Usine à gaz]

Apparemment, ce code ré-active le pavé numérique :
SendKeys ("{NUMLOCK}")

 

[Usine à gaz]

hé NON 😡
une fois oui .... une fois NON 😡

 

[job75]

Hé oui il faudra te résigner à "cliquer sur le petit bouton à droite" 🙂

 

[Usine à gaz]

LOL ... pour ne pas avoir à cliquer sur ce "petit bouton" et afficher "direct".
et ne pas utiliser le SendKeys "%{down}" ;

Je suis passé par "listbox".

Fichier joint si ça peut servir à d'autres.
Bonne fin de samedi,
Lionel 🙂

 

[job75]

Pourquoi cette ListBox ? Une ComboBox dans la feuille ressemble quand même plus à une liste de validation...

Il y a de nombreux exemples sur XLD.

Bonne nuit.

 

[Usine à gaz]

Bonjour Gérard, Le Forum,

Bon dimanche à toutes et à tous
pour moi, la lisbox est plus facile à créer et ça fonctionne LOl.

J'ai d'ailleurs repris un code fait par Roland_M , qui permet d'afficher la listbox sur la cellule à compléter.
Fichier en pièce jointe.

Lionel 🙂

 

[mapomme]

Bonjour @arthour973,

Une fois qu'on a complété la cellule E7, comment fait on pour effacer la valeur de cette cellule?
Vous complétez une cellule puis sélectionnez F7 -> pas trop pratique

 

[Staple1600]

Bonjour le fil, arthour, job75, mapomme

arthour
Je vois pas de différence entre "créer" une listbox et "créér" une combobox
Je viens de le faire sans être éprouvé 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = ComboBox1.TopLeftCell.Column Then
ComboBox1.ListIndex = 0: ComboBox1.DropDown
End If
End Sub

Mais désormais on s'éloigne du titre de ta discussion, puisqu'on utilise plus Données/Validation...

PS: Pour que ce petit code de test fonctionne, "remplir" la combobox au préalable.
Soit en indiquant une plage dans la propriété ListFillRange
ou ajoutant cette ligne (juste pour tester) à l'endroit idoine dans le code ci-dessus
ComboBox1.List = Split("a b c d e")

 

[Usine à gaz]

Bonjour @arthour973,

Une fois qu'on a complété la cellule E7, comment fait on pour effacer la valeur de cette cellule?
Vous complétez une cellule puis sélectionnez F7 -> pas trop pratique

Bonjour Mapomme 🙂
Il suffit de cliquer à nouveau sur la cellule pour modifier
voir pièce jointe modifiée
Lionel 🙂

 

[Usine à gaz]

Bonjour le fil, arthour, job75, mapomme

arthour
Je vois pas de différence entre "créer" une listbox et "créér" une combobox
Je viens de le faire sans être éprouvé 😉

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = ComboBox1.TopLeftCell.Column Then
ComboBox1.ListIndex = 0: ComboBox1.DropDown
End If
End Sub

Mais désormais on s'éloigne du titre de ta discussion, puisqu'on utilise plus Données/Validation...

PS: Pour que ce petit code de test fonctionne, "remplir" la combobox au préalable.
Soit en indiquant une plage dans la propriété ListFillRange
ou ajoutant cette ligne (juste pour tester) à l'endroit idoine dans le code ci-dessus
ComboBox1.List = Split("a b c d e")

Bonjour JM,
Je l'aime bien moi ma lisbox 🙂
Lionel 🙂

 

[Staple1600]

Re

arthour
Que tu l'aimes, c'est ton choix
Et celui-ci ne t'empeche nullement de tester le peit bout de code que j'ai pris le temps de concocter à ta seule attention 😉

Reste qu'on n'est plus du tout dans la question initiale (Données/Validation)