Fuzzy logic - sous VBA

bonjour,

Non il ne se passe rien.

L'onglet du combobox est vide.

Par hasard, avais tu essayé sur le programme menus / outils / références /

et tu décoches les références qui sont marquées : manquantes ?

le programme s'arrête-t-il bien sur l'instruction stop ?

non ..

Bonjour,

une autre proposition de correction. tu as bien une erreur si la recherche ne donne rien. erreur que tu dois gérer. En regardant en vitesse le code de fuzzy lookup, il m'a semblé qu'il faut une longueur minimum de 2 (ou 3) pour la recherche.

Private Sub ComboBox1_Change()

    Dim A As Variant
    Dim B As Variant
    Application.EnableEvents = False

    A = ActiveSheet.Name
    B = ActiveSheet.Name & " - STOCK"
    Sheets(A).Select

    Dim C As Variant
    Dim D As Variant

    'C = Sheets(A).Range("E10")
    Set D = Range("Tableau2")

    Dim Recherche(1 To 10) As String
    Sheets(A).Select
    Rows("10:10").Select
    ActiveCell.Offset(0, 4).Value = UserForm1.ComboBox1.Value
    C = ActiveCell.Offset(0, 4).Value
    'Création d un tableau des noms de Recherche

    If Len(C) > 1 Then
        Dim i As Integer
        For i = 1 To 10
            On Error GoTo terreur
            Recherche(i) = FUZZYVLOOKUP(C, D, 1, 0.3, i)
            ComboBox1.AddItem Recherche(i)

        Next i
    End If
ici:
    Application.EnableEvents = True
    Exit Sub
terreur:
    Resume ici
End Sub
Private Sub ComboBox1_Click()

End Sub