Microsoft 365 au clic ou à la sélection la liste s'ouvre sans avoir à cliquer sur la flèche en bas

[Usine à gaz]

Bonjour à toutes et à tous,

en D4 et D17, j'ai en validation des données une liste .Je souhaite qu'au clic ou à la sélection cellule la liste déroulante s'ouvre sans avoir à cliquer sur la flèche en bas.

Malgré mes tests et recherches, je n'ai pas trouvé de solution.
Le dernier code (dans la feuille) que j'ai tenté est le suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "d4" And Target.Count = 1 Then
  CreateObject("wscript.shell").SendKeys "%{down}"
  End If
  If Target.Address = "d17" And Target.Count = 1 Then
  CreateObject("wscript.shell").SendKeys "%{down}"
  End If
End Sub

Mais, rien à faire, je n'y arrive pas 😡
Auriez-vous la solution ?
Je vous remercie déjà pour m'avoir lu et je joins un petit fichier test.
Bonne fin de journée à toutes et à tous,
Amicalement,
lionel,

 

[sylvanu]

Bonsoir Usine à gaz,
Très franchement, vous n'étiez pas très loin. 😂

 

[job75]

Bonjour Lionel, sylvanu,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$4" Or Target.Address = "$D$17" Then CreateObject("wscript.shell").SendKeys "%{down}"
End Sub

A+

 

[Usine à gaz]

Bonsoir Sylvanu, Bonsoir Gérard,
Merci à vous 2 super bien, merci 🙂

J'ai une petite question supplémentaire.
Je crois d'ailleurs que cette question a été bcp posée sans solution :
Est-il possible d'afficher toute la liste (sans passer par un UserForm).
Bonne fin de journée 🙂
lionel.

 

[job75]

Au lieu d'une liste de validation il faudra utiliser une ComboBox dans la feuille.

 

[Usine à gaz]

OK Gérard, je m'en doutais Merci.
Je peux le faire ... ça fait partie des codes que tu m'as appris à faire 🙂
lionel,

 

[Usine à gaz]

Bonsoir Sylvanu, Bonsoir Gérard, le Forum,

Je reviens sur le fil. Les solutions fonctionnent très bien sur le fichier test mais pas dans mon fichier de travail et je ne comprends pas pkoi 😡

j'ai intégré le code de Gérard dans les codes :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$b$3")) Is Nothing Then: CreateObject("wscript.shell").SendKeys "%{down}"
et
If Not Intersect(Target, Range("$b$7")) Is Nothing Then: CreateObject("wscript.shell").SendKeys "%{down}"

Pourtant le code fonctionne ici :

If Not Intersect(Target, Range("b10")) Is Nothing Then
If [a10] = "" Or [a10] = "N° ?" Or [a10] = "ERREUR N° - ERREUR N°" Then
Application.EnableEvents = False
MsgBox ("B7 : PAS DE N° ou ERREUR N° !")
[b7] = ""
[b10] = ""
[a1].Select
Application.EnableEvents = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else
CreateObject("wscript.shell").SendKeys "%{down}"

Mais pour B10, ce n'est pas un clic mais un déplacement par macro (une sélection.
C'est peut-être pour ça.
Je n'arrive pas à trouver.

Pourriez-vous encore m'apporter votre aide.
En cas, je joins le fichier.
Avec mes remerciements, je vous souhaite une belle journée 🙂
lionel,