Menu déroullant avec possibilité d'écrire

[fx62]

Bonjour le forum,

J'ai créé un menu déroullant avec une vingtaine de choix possibles. Je n'ai pas eu de problèmes à ce niveau là.

Par contre dans mon menu déroullant, j'ai un choix appelé "autres". Je voudrais permettre à l'utilisateur, à chaque sélection de "autres", de renseigner son propre choix.

Pour prendre un exemple : admettons que dans ma liste déroullante, il y ait "voiture", "train", "avion" et "autres". Si l'utilisateur choisit "autres", dans ce cas, je voudrais qu'il puisse écrire "vélo" par exemple.

Peut-être par le biais d'une msgbox ?

D'avance merci pour vos réponses,

fx62

 

[Gorfael]

Re : Menu déroullant avec possibilité d'écrire

Salut fx62 et le forum

J'ai créé un menu déroulant avec une vingtaine de choix possibles. Je n'ai pas eu de problèmes à ce niveau là.

Ben moi, si ! Je n'ai pas le fichier, je ne sais pas comment tu as fait pour créer ta liste déroulante, où elle se situe, si elle met en route une macro, une formule...

Si c'est une liste de validation, il suffit de tester la cellule en Worsheet_Change et de décocher

    With x.Validation
        .ShowInput = False
        .ShowError = False
    End With

à condition que x soit la cellule avec la liste de validation.
A+

 

[fx62]

Re : Menu déroullant avec possibilité d'écrire

Autant pour moi Gorfael,

Voici le fichier demandé, les listes déroulantes se situent au niveau des cases A6 à A23.
La base de données est dans la feuille du même nom.

Par la suite, je viens copier coller les case A6 à C23 à l'aide d'une macro.

Par contre je n'ai pas saisis lorsque tu parlais de "décocher" ?

Si c'est une liste de validation, il suffit de tester la cellule en Worsheet_Change et de décocher
Code :
With x.Validation
.ShowInput = False
.ShowError = False
End With

J'espère avoir été plus clair et si jamais ça n'est pas le cas, n'hésites pas à revenir demander des infos,

Merci de ta réponse,

fx62

 

[fx62]

Re : Menu déroullant avec possibilité d'écrire

Gorfael,

Je viens de comprendre l'histoire de "décocher". Tu parlais sûrement d'aller dans Données/Validation/Onglet alerte d'erreur.

En tout cas cela fonctionne.

J'ai trouvé ce fil parlant déjà de ce dont j'ai besoin, en tout cas je crois.
https://www.excel-downloads.com/threads/liste-deroulante-et-texte-libre.167167/

Je reviendrais vers toi si cela ne correspond pas à mes attentes.

Encore merci,

fx62