XL 2016 Saisie semi-automatique (VBA ou formule mais pas en insérant des objets)

[albatore78]

Bonjour @tous,

Après avoir consulté plusieurs site, je n'arrive pas à trouver ce que je veux. En effet, je souhaite avoir dans une cellule un menu déroulant, dont la liste provient d'une autre feuille, avec une saisie semi-automatique. Seul hic, il faut que la personne ne puisse pas saisir autre chose que ce qui se trouve dans le menu déroulant.

J'ai trouvé plusieurs méthodes mais à chaque fois il y a quelque chose qui ne me convient pas. En effet, en utilisant "Validations de données", on est obligé de retirer le message d'alerte bloquant. J'i essayé également avec la formule DECALER mais même constat.

Auriez-vous une solution qu'elle soit en VB ou avec une formule ?

En vous remerciant par avance,

Bonne journée,

 

[Dudu2]

A partir de combien de lettres saisies faut-il proposer des termes ?

 

[soan]

1 ou 2, ça ferait trop court ! je propose 3 ou 5.

(humble avis d'un utilisateur lambda)

 

[Dranreb]

Bonjour.
Un essai

 

[Dudu2]

La recherche est basique (caractères accentués doivent être respectés) mais ne tient pas compte de la casse.
La liste des évènements a été placée dans un tableau structuré pour en simplifier l'accès.

 

[albatore78]

S'il faut supprimer les accents, ce n'est pas un problème. J'avais trouvé ce module sur un autre site. Mais du coup on ne voit pas du tout la liste tant que l'on n'a pas inscrit un minimum de 3 caractères et c'est ce qui me gêne un peu. Par contre une fois que l'on a sélectionner la valeur, cette dernière peut être inscrite dans une cellule ?

 

[Dudu2]

Par contre je ne sais pas colorer (en rouge par exemple) dans la liste des évènements sélectionnés (ListBox) la partie dans chaque ligne correspondant au terme saisi dans la TextBox.
Pour ça je suppose qu'il faudrait utiliser un tableau structuré dans la feuille et dans ce cas savoir si et où il est possible de l'afficher.

 

[albatore78]

1 ou 2, ça ferait trop court ! je propose 3 ou 5.

(humble avis d'un utilisateur lambda)

3 caractères me semblent correct

 

[Dudu2]

on ne voit pas du tout la liste tant que l'on n'a pas inscrit un minimum de 3 caractères et c'est ce qui me gêne un peu.

Maintenant on la voit.

Par contre une fois que l'on a sélectionner la valeur, cette dernière peut être inscrite dans une cellule ?

Dans le code c'est la variable ÉvènementChoisi qui contient le choix.
J'espère que tu sais placer le contenu d'une variable dans une cellule sinon ce sera difficile ne serait-ce que d'intégrer ce code dans ton projet.

 

[albatore78]

Bonjour.
Un essai

C'est super c'est exactement ce que je souhaite car on ne peut pas saisir autre chose que ce qu'il y a dans la liste. Par contre, je vois que ce listing fonctionne dans toutes les lignes. Quelle est la partie du code qu'il faut modifier si on veut que ça fonctionne uniquement dans une cellule particulière ? Car j'ai lu un peu le code mais mon niveau ne me permets pas de comprendre la moitié :-(

 

[albatore78]

Maintenant on la voit.


Dans le code c'est la variable ÉvènementChoisi qui contient le choix.
J'espère que tu sais placer le contenu d'une variable dans une cellule sinon ce sera difficile ne serait-ce que d'intégrer ce code dans ton projet.

J'avoue que je ne maitrise pas. Mais si tu m'expliques la procédure je devrais y arriver . Juste en me montrant un exemple je pense que je devrais pouvoir l'adapter à mon projet.

 

[Dudu2]

Et maintenant, la recherche est insensible aux caractères accentués.
Et affiche le résultat en cellule A1 !

 

[albatore78]

Et maintenant, la recherche est insensible aux caractères accentués.
Et affiche le résultat en cellule A1 !

C'est parfait. Je suis juste obligé de mettre 2 lignes de code en plus pour ôter la protection et la remettre en début et fin du code. Car sinon ça ne fonctionne pas dans mon cas ou la feuille est protégée. Un grand merci.

 

[Dudu2]

Juste à titre d'exercice j'ai voulu faire rapidement la version avec tableau et highlight du texte saisi dans la liste sélectionnée.
Mal m'en a pris, ça a été plus laborieux que prévu (ces tableaux structurés en VBA, Resize et tout, c'est vraiment pénible). Mais c'est pas mal comme résultat.

 

[albatore78]

Juste à titre d'exercice j'ai voulu faire rapidement la version avec tableau et highlight du texte saisi dans la liste sélectionnée.
Mal m'en a pris, ça a été plus laborieux que prévu (ces tableaux structurés en VBA, Resize et tout, c'est vraiment pénible). Mais c'est pas mal comme résultat.

Bonjour,
J'ai essayé de lancer le fichier mais dès que je clique sur le bouton, ce dernier ne fonctionne pas et je tombe directement en mode debug. C'est la version d'Excel qui peut poser problème ?

 

[Dudu2]

Ah tu es sûrement en Office 64 bits et ça a détecté de mauvaises déclarations des fonctions API.
J'ai corrigé. Essaie à nouveau avec le fichier modifié du message #28.
J'ai aussi rendu la recherche et le highlight multi-mots.

Dis-moi si ça marche.. ou pas. Je suis en 32 bits et suis intéressé de savoir si les déclarations des fonctions de l'API sont OK ou pas.