Le déroulement de liste automatique Excel VBA Résolu

Question

Bonjour,
Ici on a évoqué ce problème (le déroulement automatique de liste à l'aide de clique et de touche Down) et la décision était

'-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("C12").Address Then
SendKeys "%{Down}"
End If

End Sub
'-----------------------------

C12 - Cellule de liste.

Ma question est comment je doit changer le code si j'ai plusieures listes sur le feuilles (C12, C14, C16 etc) et je veux que ça déroule avec les mêmes touches de clavier!

D'avance merci!

Ivan-hoe · Answer

Salut, 
Dans ta liste, mets bien les guillemets et sépare chaque occurence par une virgule. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Address(False, False)
        Case Is = "C12", "C14", "C16"
            SendKeys "%{Down}"
    End Select
End Sub

Le déroulement de liste automatique Excel VBA

1 réponse

Newsletters