Le déroulement de liste automatique Excel VBA

Résolu/Fermé

nifnif Messages postés 7 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 17 juillet 2008 - 16 juil. 2008 à 11:43
nifnif Messages postés 7 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 17 juillet 2008 - 17 juil. 2008 à 09:02

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:

Le déroulement de liste automatique Excel VBA
Liste déroulante excel - Guide
Excel liste déroulante en cascade - Guide
Formule excel - Guide
Message automatique thunderbird - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
16 juil. 2008 à 18:26

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

nifnif Messages postés 7 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 17 juillet 2008
17 juil. 2008 à 09:02

AAAh, merci beaucoup, ça marche très bien!

Discussions similaires

Suppression listes déroulantes

liste de noms par ordre alphabétique

Discussions similaires

Newsletters