Liste de choix

[Evelynetfrancois]

bonjour à tout le forum
une question à vous soumettre
Est-il possible d'avoir automatiquement la "liste de choix" aprés un clic dans une cellule........?
vba ou autre
merci pour toutes vos sujetions
bonne journée
E et F

 

[mutzik]

Re : Liste de choix

ah, ca f'sait longtemps, bonjour à vous

qu'appelles - tu 'automatiquement' ?
en 2007, si tu es dans une liste, cellule vide, tu as dans le click droit une option liste déroulante de choix qui reprend les valeurs uniques de ce qui se trouve au-dessus de la cellule
bises et bon noël

 

[Evelynetfrancois]

Re : Liste de choix

bonjour mutzik
oui c'est tput à fait de cela dont je parle
je souhaitais eviter le clic droit puis options proposées
je souhaitais qu automatiquement la liste des valeurs apparaisse dés
que je clic dans la cell

a pluis merci pot tout
E et F

 

[Evelynetfrancois]

Re : Liste de choix

re bonjour

si qq connait le raccourci clavier, je le vbatiserais !!!, pour ma part je ne trouve pas !!!
merci d avance
E et F

 

[Guest]

Re : Liste de choix

Bonjour,

Raccourci clavier pour la liste de choix des cellules: ALT+FLECHE BASSE


Par macro:
Un exemple pour les cellules de la colonne A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
Application.CommandBars("Cell").Controls("Liste de choix...").Execute
End Sub

A+

 

[Evelynetfrancois]

Re : Liste de choix

Bonsoir Hasco le forum

Excuse moi pour ce retard, il est vrai que j'avais complètement oublier ce post, et de plus je suis beaucoup en déplacement pro et donc peu souvent chez moi sur mon ordi ,.......

Merci pour ta proposition de liste de choix automatique, tel que je l'imaginais
Elle fonctionne à merveille, cependant est-il possible, de contourner les cellules qui pourraient rester vides dans la colonne ?

Un grand MERCI d'avance pour tout

Bonne soirée

E et F

 

[Guest]

Re : Liste de choix

Bonsoir,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Or IsEmpty(Target(1)) Then Exit Sub
Application.CommandBars("Cell").Controls("Liste de choix...").Execute
End Sub

La liste ne s'affichera plus dans les cellules vides

A+

 

[Evelynetfrancois]

Re : Liste de choix

Re bonsoir Hasco , le forum
Merci pour cette réponse rapide.....

Oups , je me suis mal exprimé
Je vais essayer d'être plus explicite:

Lorsque qu'il y a une (ou des) cellule qui n’est pas remplie dans la colonne (ce qui créé donc un blanc) la liste perd les item du dessus de cette cellule vide

Si c'est possible, mais c'est déjà Super comme ça !!

Bonne soirée

E et F

 

[Guest]

Re : Liste de choix

re,

Non, à ma connaissance, ce n'est pas possible par la liste de choix du menu contextuel des cellules..

A+