Affichage automatique d'une liste de validation

chris

XLDnaute Barbatruc

• 31 Mars 2019

• #2

Bonjour

Non, sauf par VBA avec un sendkey et encore cela marche moyennement.

Cela pourrait être un avantage en saisie mais est pénible voire risqué en consultation...

 

Vote positif 0 Vote négatif

B

bof

XLDnaute Occasionnel

• 31 Mars 2019

• #3

Bonjour,
Au lieu d'une liste de validation tu peux utiliser un combo et sa propriété Visible / Invisible avec un switch quand tu cliques sur la cellule...
A+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 31 Mars 2019

• #4

Re

bof à dit:

Bonjour,
Au lieu d'une liste de validation tu peux utiliser un combo et sa propriété Visible / Invisible avec un switch quand tu cliques sur la cellule...
A+

Cliquez pour agrandir...

Oui si une ou deux cellules, difficilement gérable et lourd sur un tableau...

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 31 Mars 2019

• #5

Bonjour à tous

Par VBA pris sur le site de boisgnontier

Slts

 

Pièces jointes

• 222.xlsm

  20 KB · Affichages: 24

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 31 Mars 2019

• #6

Re

Oui c'est le SendKeys auquel je faisais allusion.

Il désactive le pavé numérique sur nombre de PC d'où ma remarque...

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 1 Avril 2019

• #7

Il semble que le sendkey "Enter" et le sendkey simulant un clic gauche ne se codifierai pas de la même manière...Mais je ne trouve pas la syntaxe pour simuler un clic gauche de la souris. Auriez vous une idée ?
Merci

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 1 Avril 2019

• #8

RE

Il n'y a pas de code pour simuler un bouton de souris.

Sendkeys c'est le clavier. Au clavier on déroule une liste par Alt + flèche bas ou flèche haut d'où SendKeys "%{down}" ou SendKeys "%{up}"

mais, comme déjà dit, cela pose problème sur certains PC

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 1 Avril 2019

• #9

OK Merci j'abandonne cette option sendkeys car cela cause en effet des problèmes collatéraux.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 1 Avril 2019

• #10

Bonjour,

le SendKeys de Windows n'a pas cet inconvénient :

VB:

CreateObject("WScript.Shell").SendKeys "Bonjour"

A voir....
eric

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 1 Avril 2019

• #11

Désolé eriiic je ne comprends pas du tout ta dernière réponse.
Je rappelle l'objectif :
Ayant posé une validation sur une cellule avec une formule qui définit une liste de valeurs faisant partie d'une liste complète ( Exemple: Tous les noms de la liste complète commençant par SC), je souhaiterai, sans avoir à cliquer sur la cellule, que la liste des noms sélectionnés s'affiche.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 1 Avril 2019

• #12

Dans l'exemple de JB, tu remplaces le SendKeys d'excel par le SendKeys de Windows dont je t'ai montré la syntaxe.
Il ne change pas l'état du pavé numérique.
eric

 

Vote positif 0 Vote négatif

escouger

XLDnaute Occasionnel

• 2 Avril 2019

• #13

Je ne trouve toujours pas la synthaxe pour simuler un clic gauche souris.
J'ai essayé
'CreateObject("WScript.Shell").SendKeys "{Enter}"
'CreateObject("WScript.Shell").SendKeys VK_LBUTTON
'CreateObject("WScript.Shell").SendKeys "%{Enter}"
'CreateObject("WScript.Shell").SendKeys "%{1}"
mais hélas rien ne fonctionne
Dommage, …..mais pas si grave, je m'en passerai.
Merci

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Avril 2019

• #14

Pas bonjour non plus,

Ben si tu avais ouvert le fichier de riton tu l'aurais...
eric

 

Vote positif 0 Vote négatif