Liste déroulante

[mic67]

Bonjour,
Je cherche à faire fonctionné ce code pour ouvrir une liste
déroulante à la sélection de la cellule, mon code marche pour la cellule A2
et je voudrai l'étendre jusqu'a la cellule A20

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

 

[phlaurent55]

Re : Liste déroulante

Bonjour Mic,

avec ceci:

If Not Intersect(Target, Range("A2:A20")) Is Nothing And Target.Count = 1 Then

à+
Philippe

 

[JCGL]

Re : Liste déroulante

Bonjour à tous,

Avec :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A20")) Is Nothing And Target.Count = 1 Then SendKeys "%{down}"
End Sub

A + à tous

Édition : Oups... Salut l'ami Philippe le plus rapide... A++

 

[mic67]

Re : Liste déroulante

Merci à tous les deux
A plus Michel