Déroulé automatiquement une liste déroulante

[jiritsu]

Bonjour,

Je souhaiterai déroulé automatiquement une liste déroulante lorsque je sélectionne une cellule.

Voici mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    
End Sub

Lorsque je clique sur une cellule voici le résultat : cf image test1.JPG

Mais je souhaiterai pouvoir directement sélectionner une des valeurs de la liste sans cliquer sur la petite flèche qui déroule la liste. Cf image test2.JPG

Voyez-vous ce que je veux dire ?

 

[mromain]

Re : Déroulé automatiquement une liste déroulante

bonjour Jiritsu,

à tester
rajoute cette ligne en fin de macro :

SendKeys "%{DOWN}"

ça simule le "Alt" + "Flèche bas"

a+

 

[BOISGONTIER]

Re : Déroulé automatiquement une liste déroulante

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$2" And Target.Count = 1 Then
     SendKeys "%{down}" 
  End If
End Sub

Données/Validation

JB
Formation Excel VBA JB

 

[jiritsu]

Re : Déroulé automatiquement une liste déroulante

C'est parfait 🙂

Merci beaucoup.