Liste déroulante : faire dérouler les choix par double clic sur la cellule [Résolu]

Pierrot93

XLDnaute Barbatruc

• 15 Novembre 2012

• #2

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Bonjour,

Je sais que c'est réalisable, car je l'ai aperçu sur un fichier confidentiel ... mais je n'ai pas réussi à reproduire cet effet.

Cliquez pour agrandir...

peut être nous fournir ce fichier expurgé de toutes données confidentielles...

bonne journée
@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Novembre 2012

• #3

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Bonjour,

Ouverture automatique d'une liste

JB

 

Vote positif 0 Vote négatif

S

Sylzer

XLDnaute Nouveau

• 15 Novembre 2012

• #4

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Pierrot93 à dit:

peut être nous fournir ce fichier expurgé de toutes données confidentielles...

Cliquez pour agrandir...

J'y avais pensé. Mais c'est impossible, je n'ai pas le mot de passe pour enlever les parties confidentielles.


Merci BOISGONTIER, je pense trouver mon bonheur avec ton lien


édit : Je n'ai finalement pas réussi à pratiquer un test avec succès. Pouvez vous m'indiquer mon erreur d'utilisation ?

 

Pièces jointes

• Test LD.xlsm

  12.8 KB · Affichages: 107

Dernière édition: 15 Novembre 2012

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 15 Novembre 2012

• #5

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Salut Sylzer, JB, Pierrot, le Forum

Il faut mettre la Procédure dans le Module de la Feuille et non pas dans un Module Standard

Bonne Journée

 

Vote positif 0 Vote négatif

S

Sylzer

XLDnaute Nouveau

• 15 Novembre 2012

• #6

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Impecable

Merci à tous pour votre contribution

édit : Et si je souhaite appliquer cela sur plusieurs cellules, que faut il modifier ?
Par exemple sur la plage A2:C2 ...
Ou sur la cellule A2 et C2 seulement ...

Rappel du code utilisé :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$2" And Target.Count = 1 Then
SendKeys "%{down}"
End If
End Sub

Désolé pour mes multiples demandes :s

 

Dernière édition: 15 Novembre 2012

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 15 Novembre 2012

• #7

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Re le fil

Essaye comme cela

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

Cliquez pour agrandir...

Bonne Journée

 

Vote positif 0 Vote négatif

S

Sylzer

XLDnaute Nouveau

• 19 Novembre 2012

• #8

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Re,

je n'ai pas réussi de cette manière :s

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 19 Novembre 2012

• #9

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

Bonjour,

Voir PJ

Pour le champ A2:C2

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect([A2:C2], Target) Is Nothing And Target.Count = 1 Then
   SendKeys "%{down}"
 End If
End Sub

Pour A2 et C2

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Range("A2,C2"), Target) Is Nothing And Target.Count = 1 Then
   SendKeys "%{down}"
 End If
End Sub

JB

 

Pièces jointes

• Copie de Test LD.xlsm

  14.8 KB · Affichages: 156

Dernière édition: 19 Novembre 2012

Vote positif 0 Vote négatif

S

Sylzer

XLDnaute Nouveau

• 20 Novembre 2012

• #10

Re : Liste déroulante : faire dérouler les choix par double clic sur la cellule

C'est ce que je cherchais.

Merci JB pour ta réponse

 

Vote positif 0 Vote négatif