liste déroulante doit se dérouler toute seule

[pascal21]

bonjour le forum
le titre est un peu déroutant ,j'en convient
je vais essayer de faire mieux avec les explications qui suivront
donc:
lorsque la valeur de la cellule F16 change, une macro

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pl As Range
 
Set pl = Range("f16")
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Range("i16").Select
End Sub

me selectionne ensuite I16
I16 contient une liste déroulante
comment faire pour que lorsque I16 est selectionnée, que la liste déroulante se déroule sans autre intervention (pas de clic supplémentaire)
j'ai essayé avec "range("i16"). activate mais c'est pareil
avez-vous une solution
merci

 

[youky(BJ)]

Re : liste déroulante doit se dérouler toute seule

Bonjour Pascal,
Essaies ceci
Bruno

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$16" Then SendKeys "%{UP}"
End Sub

 

[pascal21]

Re : liste déroulante doit se dérouler toute seule

bonjour
j'ai essayé mais ça ne fonctionne pas
j'ai même essayé de l'integrer dans le 1er code ;rien non plus

 

[Staple1600]

Re : liste déroulante doit se dérouler toute seule

Bonjour à tous

pascal21

I16 contient une liste déroulante

De quel type cette liste déroulante ?

Données/Validation ?
Ou est-ce un contrôle ?
Si oui issu de quelle BO ?
Formulaires ou Contrôles ?

 

[pascal21]

Re : liste déroulante doit se dérouler toute seule

BONJOUR STAPPLE
c'est vrai je n'avais pas précisé
il s'agit d'une liste type "données/validation"

 

[youky(BJ)]

Re : liste déroulante doit se dérouler toute seule

Bonjour JM,
Peut être a ton mal lu la question . . .
Voici une autre solution (dés selection de F16)
Bien sur il faut une liste de validation en I16
Bruno

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$16" Then [I16].Select: SendKeys "%{UP}"
End Sub

 

[Staple1600]

Re : liste déroulante doit se dérouler toute seule

Re


Bonjour youki(BJ)

Ca marche, bien que j'ai mal à en saisir l'utilité ...

 

[pascal21]

Re : liste déroulante doit se dérouler toute seule

re
lorsque je selectionne f16 je veux avoir la liste ouverte pour ne pas oublier de saisir I16
c'est uniquement pour ça
et aussi je suis un peu fainéant alors si je peux economiser un clic lol!!!!!

 

[pascal21]

Re : liste déroulante doit se dérouler toute seule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pl As Range
 Set pl = Range("f16")
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Range("i16").Select: SendKeys "%{UP}"

End Sub

j'ai un peu modifier le truc car là, proposé comme suit ça ne fonctionnait pas non plus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$16" Then [I16].Select: SendKeys "%{UP}"
End Sub

et là maintenant c'est bon
d'ailleurs je vais essayer de l'integrer partout où j'ai des listes en cascades
ç'est plus pratique
merci à vous deux

 

[Staple1600]

Re : liste déroulante doit se dérouler toute seule

Re


pascal21
Je suis pas d'accord

Le code proposé par youky(BJ) fonctionne parfaitement tel quel

(je l'ai testé )

 

[pascal21]

Re : liste déroulante doit se dérouler toute seule

re
bin chez moi lorsque je clic sur f16 ça selectionne i16 sans que je puisse changer la valeur de F16
ou alors il fallait que j'enlève mon 1er code
j'ai pas essayé comme ça
merci quand même