[RESOLU] Ouvrir Liste déroulante sur feuille

[ADOL]

Bonjour à vous tous
Juste une petite astuce 😕
j'ai une liste déroulante sur feuille excel et je voulais l'ouvrir dès que la cellule est sélectionnée.
(Cellule X4 / feuille 1)
Merci d'avance.

 

[Pierrot93]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$X$4" Then ComboBox1.DropDown
End Sub

bon après midi
@+

 

[ADOL]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$X$4" Then ComboBox1.DropDown
End Sub

bon après midi
@+

Bonsoir Pierrot93
Tout d'abord je te remercie de l'aide et de la prompte réponse
j'ai essayé le code, mais un message d'erreur s'affiche = "Erreur de compilation / variable non définie"
A+

 

[Pierrot93]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

quel est le mot surligné dans ce cas.... vérifie bien le nom de l'objet, et rappel le code doit être placé dans le module de la feuille... code testé chez moi et fonctionnel...

bonne journée
@+

 

[BOISGONTIER]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

S'il s'agit d'une liste déroulante Données/Validation

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$X$4" And Target.Count = 1 Then
     SendKeys "%{down}"
  End If
End Sub

Données/Validation

JB

 

[ADOL]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

quel est le mot surligné dans ce cas.... vérifie bien le nom de l'objet, et rappel le code doit être placé dans le module de la feuille... code testé chez moi et fonctionnel...

bonne journée
@+

Bonjour/Bonsoir Pierrot93;
Je vous remercie de votre aimable aide.
il s'agit d'une liste déroulante (données/validation) et non pas d'une zone de liste, et le problème a été résolu par BOISGONTIER.
Merci à vous une autre fois. je vous suis bien reconnaissant.
Cordialement.

 

[ADOL]

Re : Ouvrir Liste déroulante sur feuille

Bonjour,

S'il s'agit d'une liste déroulante Données/Validation

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$X$4" And Target.Count = 1 Then
     SendKeys "%{down}"
  End If
End Sub

Données/Validation

JB

Bonjour/Bonsoir BOISGONTIER
Effectivement, il s'agit d'une liste déroulante (D/V) et le code que vous m'avez fourni marche bien
je vous remercie vivement de votre aimable aide.
Cordialement.