XL 2013 Affichage liste de données au clic sur la cellule

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2019

• #2

Eureka : j'ai trouvé

en vba avec cette instruction :
SendKeys "%{down}"

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2019

• #3

Bonjour Lionel,

Evite l'envoi de touches, c'est barbare et ça désactive le pavé numérique.

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2019

• #4

Bonjour Gérard,
Merci pour ton conseil.
J'ai vu que ça désactive le pavé numérique 😡
Mais je ne sais pas koi utiliser à la place de SendKeys "%{down}"
@+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2019

• #5

Apparemment, ce code ré-active le pavé numérique :
SendKeys ("{NUMLOCK}")

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2019

• #6

hé NON 😡
une fois oui .... une fois NON 😡

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2019

• #7

Hé oui il faudra te résigner à "cliquer sur le petit bouton à droite" 🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Juin 2019

• #8

LOL ... pour ne pas avoir à cliquer sur ce "petit bouton" et afficher "direct".
et ne pas utiliser le SendKeys "%{down}" ;

Je suis passé par "listbox".

Fichier joint si ça peut servir à d'autres.
Bonne fin de samedi,
Lionel 🙂

 

Pièces jointes

• test.xlsm

  19.4 KB · Affichages: 37

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2019

• #9

Pourquoi cette ListBox ? Une ComboBox dans la feuille ressemble quand même plus à une liste de validation...

Il y a de nombreux exemples sur XLD.

Bonne nuit.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #10

Bonjour Gérard, Le Forum,

Bon dimanche à toutes et à tous
pour moi, la lisbox est plus facile à créer et ça fonctionne LOl.

J'ai d'ailleurs repris un code fait par Roland_M , qui permet d'afficher la listbox sur la cellule à compléter.
Fichier en pièce jointe.

Lionel 🙂

 

Pièces jointes

• test.xlsm

  26.4 KB · Affichages: 19

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #11

Bonjour @arthour973,

Une fois qu'on a complété la cellule E7, comment fait on pour effacer la valeur de cette cellule?
Vous complétez une cellule puis sélectionnez F7 -> pas trop pratique

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Juin 2019

• #12

Bonjour le fil, arthour, job75, mapomme

arthour
Je vois pas de différence entre "créer" une listbox et "créér" une combobox
Je viens de le faire sans être éprouvé 😉

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = ComboBox1.TopLeftCell.Column Then
ComboBox1.ListIndex = 0: ComboBox1.DropDown
End If
End Sub

Mais désormais on s'éloigne du titre de ta discussion, puisqu'on utilise plus Données/Validation...

PS: Pour que ce petit code de test fonctionne, "remplir" la combobox au préalable.
Soit en indiquant une plage dans la propriété ListFillRange
ou ajoutant cette ligne (juste pour tester) à l'endroit idoine dans le code ci-dessus
ComboBox1.List = Split("a b c d e")

 

Dernière édition: 2 Juin 2019

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #13

mapomme à dit:

Bonjour @arthour973,

Une fois qu'on a complété la cellule E7, comment fait on pour effacer la valeur de cette cellule?
Vous complétez une cellule puis sélectionnez F7 -> pas trop pratique

Cliquez pour agrandir...

Bonjour Mapomme 🙂
Il suffit de cliquer à nouveau sur la cellule pour modifier
voir pièce jointe modifiée
Lionel 🙂

 

Pièces jointes

• test.xlsm

  26.6 KB · Affichages: 27

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2019

• #14

Staple1600 à dit:

Bonjour le fil, arthour, job75, mapomme

arthour
Je vois pas de différence entre "créer" une listbox et "créér" une combobox
Je viens de le faire sans être éprouvé 😉

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Column = ComboBox1.TopLeftCell.Column Then
ComboBox1.ListIndex = 0: ComboBox1.DropDown
End If
End Sub

Mais désormais on s'éloigne du titre de ta discussion, puisqu'on utilise plus Données/Validation...

PS: Pour que ce petit code de test fonctionne, "remplir" la combobox au préalable.
Soit en indiquant une plage dans la propriété ListFillRange
ou ajoutant cette ligne (juste pour tester) à l'endroit idoine dans le code ci-dessus
ComboBox1.List = Split("a b c d e")

Cliquez pour agrandir...

Bonjour JM,
Je l'aime bien moi ma lisbox 🙂
Lionel 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Juin 2019

• #15

Re

arthour
Que tu l'aimes, c'est ton choix
Et celui-ci ne t'empeche nullement de tester le peit bout de code que j'ai pris le temps de concocter à ta seule attention 😉

Reste qu'on n'est plus du tout dans la question initiale (Données/Validation)

 

Vote positif 0 Vote négatif