XL pour MAC [RESOLU] Mac OS - lancer une liste déroulante à l'entrée d'une cellule

riton00

XLDnaute Impliqué

• 6 Février 2020

• #2

Bonjour,

Pour plus de compréhension
Un exemple de votre fichier avec explications serait le bienvenu.

Slts

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Février 2020

• #3

Bonjour,

Ce qu'il souhaite si j'ai bien compris, c'est que lorsqu'on sélectionne une cellule dont les données sont validées sous forme de liste, la liste en question se déroule automatiquement, sans qu'on aie besoin de cliquer sur la flèche.

Bonne continuation

 

Vote positif 0 Vote négatif

R

Ricou969

XLDnaute Nouveau

• 6 Février 2020

• #4

Désolé de mettre mal exprimé.
Oui xUpsilon, je ne demande pas que l'on me code ou corrige mon code, puisque je cherche à le créer; mais comme le dit xUpsilon:

que lorsqu'on sélectionne une cellule dont les données sont validées sous forme de liste, la liste en question se déroule automatiquement, sans qu'on aie besoin de cliquer sur la flèche.

Cliquez pour agrandir...

Existe-t-il un ordre virtuel basic qui dis "déroules toi" ?
Ou bien une manière de contourner cette inexistence ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Février 2020

• #5

Re,

Tu peux essayer ça :

VB:

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

A la place de "$A$2" tu entres la cellule de ton choix, si il y a plusieurs cellules tu me dis, ça se complique un petit peu.

Bonne continuation

 

Vote positif 0 Vote négatif

R

Ricou969

XLDnaute Nouveau

• 6 Février 2020

• #6

Merci xUpsilon,
j'étais sur cette piste sans succès, je ne suis pas sûr de savoir où placer ce script au niveau du workbook où dans le module que j'ai créé ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Février 2020

• #7

Dans le code de la feuille sur laquelle tu souhaites appliquer ça.

Bonne continuation

 

Vote positif 0 Vote négatif

R

Ricou969

XLDnaute Nouveau

• 6 Février 2020

• #8

C'est ce que j'ai fais mais j'ai une erreur : appel ou procédure incorrecte :
je comprends pas pourquoi.

VB:

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

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 6 Février 2020

• #9

Re,

J'aurais tendance à dire que c'est un souci du fait que vous êtes sur Mac mais d'après mes recherches même pas alors j'ai du mal à comprendre ...

 

Vote positif 0 Vote négatif

R

Ricou969

XLDnaute Nouveau

• 6 Février 2020

• #10

C'est bien possible je vais faire une recherche...
Merci, je reviendrais si je trouve une info pertinente pour clore le sujet.

 

Vote positif 0 Vote négatif

R

Ricou969

XLDnaute Nouveau

• 6 Février 2020

• #11

Voilà, après maintes recherches, j'ai trouvé que SendKeys ne fonctionnait pas sur mac mais Application.Sendkeys, OUI !
Ainsi ce code fonctionne sur Mac OS :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
     If (Target.Address = "$C$7" And Target.Count = 1) Or (Target.Address = "$C$16" And Target.Count = 1) Or (Target.Address = "$E$16" And Target.Count = 1) Then
       Application.SendKeys ("%{DOWN}")
    End If

End Sub

on peut faire plus élégant, sûrement, si vous avez des idées...

 

Vote positif 0 Vote négatif