Erreur

bonjour,

Suite à plusieurs passages sur ce forum et votre aide, j'ai réussi à compiler un fichier de base de donnée il y a un peu de temps maintenant. Malheureusement, voici que ce dernier ne fonctionne plus, suite à des modifications sur la base de données sources.

L'erreur qui survient est une "erreur d'exécution 13" dès que l'on saisit une lettre dans l'userform de l'onglet "recherche". la ligne marquée en erreur est celle-ci

Private Sub TextBox1_Change()
   If Me.TextBox1 <> "" Then
     mots = Split(Trim(Me.TextBox1), " ")
     Tbl = choix
     For i = LBound(mots) To UBound(mots)
       Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
     Next i
       n = 0: Dim b()
       For i = LBound(Tbl) To UBound(Tbl)
         a = Split(Tbl(i), "*")
         n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
         For k = 1 To Ncol
           b(k, i + 1) = a(k - 1)
         Next k
       Next i
       If n > 0 Then
         ReDim Preserve b(1 To Ncol, 1 To n + 1)
         Me.ListBox1.List = Application.Transpose(b)
         Me.ListBox1.RemoveItem n
       End If
       Me.Label1.Caption = UBound(Tbl) + 1

         If Me.Label1.Caption = "0" Then

            Call MsgBox("Le fournisseur n'est pas existant. Souhaitez vous le créer? ", 4 + vbInformation, "Attention")
                If MsgBox("Le fournisseur n'est pas existant. Souhaitez vous le créer? ", 4 + vbInformation, "Attention") = vbYes Then
                 Sheets("Ajout fournisseur").Select
                [u]    Unload UserForm1[/u]
                    Unload Me
                    Exit Sub
                If MsgBox("Le fournisseur n'est pas existant. Souhaitez vous le créer? ", 4 + vbInformation, "Attention") = vbNo Then
                    Exit Sub
                End If
        End If
 End If
 End If
End Sub

Et de plus je n'arrive pas enlever le "l'erreur REF" qui est apparu depuis sur l'onglet "modifier fournisseur". .. Alors que rien ne semble avoir bougé dans les formules.... je ne comprends pas le lien de cause à effet et la source de l'erreur.

Je vous remercie pour votre aide par avance.

17fichier-forum.xlsm (464.30 Ko)
Rechercher des sujets similaires à "erreur"