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

[Ricou969]

Bonjour,
Je n'arrive pas à trouver la solution dans le forum, désolé si je créé un sujet déjà traité.

J'aimerais avoir ma liste déroulée lors de l'entrée dans une cellule.

 

[riton00]

Bonjour,

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

Slts

 

[xUpsilon]

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

 

[Ricou969]

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.

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

 

[xUpsilon]

Re,

Tu peux essayer ça :

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

 

[Ricou969]

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éé ?

 

[xUpsilon]

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

Bonne continuation

 

[Ricou969]

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

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

 

[xUpsilon]

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 ...

 

[Ricou969]

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

 

[Ricou969]

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 :

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...