Le déroulement de liste automatique Excel VBA

Résolu
nifnif Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
nifnif Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
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!
A voir également:

1 réponse

Ivan-hoe Messages postés 433 Date d'inscription   Statut Membre Dernière intervention   309
 
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
1
nifnif Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
AAAh, merci beaucoup, ça marche très bien!
0