Le déroulement de liste automatique Excel VBA
Résolu
nifnif
Messages postés
7
Statut
Membre
-
nifnif Messages postés 7 Statut Membre -
nifnif Messages postés 7 Statut Membre -
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!
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
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
1 réponse
Salut,
Dans ta liste, mets bien les guillemets et sépare chaque occurence par une virgule.
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
Statut
Membre
AAAh, merci beaucoup, ça marche très bien!
