Erreur
i
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.