Déroulé automatiquement une liste déroulante

jiritsu · 8 Avril 2009

Bonjour,

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

Voici mon code:

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 · 8 Avril 2009

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

bonjour Jiritsu,

à tester
rajoute cette ligne en fin de macro :

Code:

SendKeys "%{DOWN}"

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

a+

BOISGONTIER · 8 Avril 2009

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

Bonjour,

Code:

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 · 8 Avril 2009

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

C'est parfait 🙂

Merci beaucoup.

Déroulé automatiquement une liste déroulante

jiritsu

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

jiritsu

Guest

Discussions similaires

Déroulé automatiquement une liste déroulante

jiritsu

Guest

Pièces jointes

mromain

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

jiritsu

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency