Combox box autocompletion liste verouillee

Bonjour

Je souhaite avoir accès à un ComboBox pour Rechercher et sélectionner les données de la liste déroulante mais interdire la modification de cette liste ( Valeur hors liste non accepté)

Dans ce ComboBox actuellement j'ai

0 -fmStyleDropDownComnbo, ce qui me permet en tapant les 1ere lettres de trouver les valeurs de la liste contenant ces lettres (auto completion), mais dans le fichier en cliquant sur ok De L'userform, il accepte aussi les valeurs non inscrites dans la liste

Si je choisi 2-fmStyleDropDownlist, je perd la fonctionnalité de L'auto compléltion

Merci de votre aide

Bonjour,

Tu peux utiliser un tableau dans lequel tu recherches la valeur entrée dans le ComboBox et si elle ne s'y trouve pas, tu supprime le texte :

Dim Tbl() As String 'déclaré en tête de odule

Private Sub ComboBox1_Change()

    Dim Pos As Long

    On Error Resume Next
    Pos = Application.WorksheetFunction.Match(ComboBox1.Text, Tbl(), 0)

    If Err.Number <> 0 Then ComboBox1.Text = ""

End Sub

Private Sub UserForm_Activate()

    Dim I As Integer

    ComboBox1.AddItem "Mireille"
    ComboBox1.AddItem "Alain"
    ComboBox1.AddItem "Michel"
    ComboBox1.AddItem "Pierre"
    ComboBox1.AddItem "Louise"
    ComboBox1.AddItem "Patrick"
    ComboBox1.AddItem "Vincent"
    ComboBox1.AddItem "Daniel"
    ComboBox1.AddItem "Virginie"
    ComboBox1.AddItem "Véronique"

    For I = 0 To ComboBox1.ListCount - 1

        ReDim Preserve Tbl(0 To I): Tbl(I) = ComboBox1.List(I)

    Next I

End Sub