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)