Liste déroulante avec VBA + recherche par lettre

Bonjour à tous

Dans mon fichier excel ci-joint et quand on clique par exemple sur la cellule E3 et que la fenêtre s'affiche, je voudrai que lorsque je saisie une lettre il affiche les mots qui contient cette lettre:

Par exemple si je saisie "40" dans référence il m'affiche les références qui contienne le numéro 40

46essai.xlsm (84.52 Ko)

Bonsoir, Mohamed

Je pense qu'il va falloir un peu plus d'explication

Où doivent s'afficher les données demandées? dans la plage en jaune?

Explique bien ce que tu veux

Bonsoir

Quand on clique sur les cellule jaune il affiche une liste déroulante.

Exemple : je voudrai que lorsque je saisie les lettres "VLS" dans la liste déroulante il m'affiche que les références qui contiennent les lettres "VLS" ensuite je choisi la bonne référence et je clic sur OK et cette référence sera afficher dans la cellule sélectionner

C'est bon j'ai trouvé la solution.

Bonjour,

voir PJ

Dim choix1()
Private Sub UserForm_Initialize()
  choix1 = Application.Transpose([Ref_Sft])
  Me.ComboBox1.List = choix1
End Sub

Private Sub ComboBox1_Change()
 If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
   Me.ComboBox1.List = Filter(choix1, Me.ComboBox1.Text, True, vbTextCompare)
   Me.ComboBox1.DropDown
   Me.TextBox1 = ""
  Else
    p = Application.Match(Me.ComboBox1, choix1, 0)
  End If
End Sub

Private Sub OK_Click()
  ActiveCell = Me.ComboBox1
  ActiveCell.Offset(, 3) = Val(Me.TextBox1)
  Unload Me
End Sub

Ceuzin

115essai-1.xlsm (107.66 Ko)

Merci pour la réponse

Rechercher des sujets similaires à "liste deroulante vba recherche lettre"