XL 2021 Formulaire de saisie VBA

[Lily_73]

Bonjour,

Je suis en train de travailler sur un formulaire de saisie sur Excel. Je souhaiterai pouvoir y intégrer des ComboBox (liste déroulante) avec saisie semi-automatique.
Je voudrais que cela fonctionne comme une barre de recherche avec l'apparition des mots de la liste qui contiennent les lettres saisies par l'utilisateur.

Est-ce que quelqu'un saurait comment faire ? Et si oui pourrait m'expliquer la démarche à suivre ?

Je vous remercie pour votre aide et vous souhaite une bonne soirée.

 

[Dranreb]

Bonsoir.
Vous pouvez vous inspirer de ce classeur.

 

[Lily_73]

Merci pour votre réponse.
Toutefois ce n'est pas exactement ce que je recherche.
Je vous joint un extrait de mon fichier pour éclaircir mon problème.
Pour le premier ingrédient, je souhaiterait que tous les ingrédients qui contiennent les lettres saisies apparaissent dans la liste déroulante.
Je ne sais pas si il est possible d'effectuer une telle action ?

(J'aimerai également que les ingrédients apparaissent dans la feuille "recettes" une fois la saisie terminée.

Bien cordialement

 

[youky(BJ)]

Bonjour,
Essayer ceci
Bruno

 

[Dranreb]

Bonjour.
Dans mon classeur si vous tapez "EU" dans la CBx Nom il vous propose dans la liste affichée automatiquement tous les noms contenant ces deux lettres consécutives, "DEUF", "PETIPEU" et "TÉRIEUR"

 

[Dranreb]

Pour reproduire ceci dans votre UserForm vous n'avez besoin que de mon module de service standard MSujetCBx. Dans le code de l'UserForm :

Option Explicit
Private TIngr(), Sujet, SujFlt
Private Sub UserForm_Initialize()
   TIngr = [Tableau2[Ingrédients]].Value
   Sujet = SujetCBx(TIngr)
   SujFlt = Sujet
   Me.Ingr1.List = SujFlt(0)
   End Sub
Private Sub Ingr1_Change()
   If Not Ingr1 Is Me.ActiveControl Then Exit Sub
   If Ingr1.MatchFound Or Ingr1.Text = "" Then Exit Sub
   Dim S ' Sujet temporaire pour recherche intuitive
   S = SujCBxLike(Sujet, "*" & Ingr1.Text & "*")
   If IsEmpty(S) Then Exit Sub
   SujFlt = S ' Affectation du sujet temporaire.
   Me.Ingr1.List = SujFlt(0)
   Ingr1.DropDown ' Affichage de la liste
   End Sub

Nettoyez préalablement la propriété RowSource de la CBx Ingr1, sinon "Permission refusée" lors de la tentative de modifier sa List.

 

[youky(BJ)]

Bonjour tous, Lily, Dranreb
Pour le fun et pour compléter la demande de réaliser toute la recette en recette
j'avais fait ceci et oublier d'envoyer.
Bonne semaine
Bruno