Petit souci pratique que je ne parviens pas à résoudre malgré les essais et recherches.
Je me permets de vous le soumettre
Création liste de validation des données,
Quand on clique sur la cellule qui contient la liste de validation, pour afficher la lite, il faut cliquer sur le petit bouton à droite.
J'aimerais pouvoir afficher "direct" la liste de validation au clic sur la cellule ou à l'activation (vba).
C'est peut-être "tout simple" mais je ne trouve pas
Auriez-vous la solution ?
Je joins un petit fichier test.
Et, je continue à chercher
Avec mes remerciements,
Je vous souhaite à toutes et à tous un beau WE,
Amicalement,
Lionel,
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}"
@+
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
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")
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
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")
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)