Bonjour à tous,
Je sollicite l'aide du forum car j'ai une erreur d’exécution 9 avec le bouton recherche multicolonne dans mon userform.
Le fichier est en pièce jointe avec la capture d’écran de l'erreur d’exécution.
Voici le code vb du bouton recherche multicolonne.
Merci à vous.
Je sollicite l'aide du forum car j'ai une erreur d’exécution 9 avec le bouton recherche multicolonne dans mon userform.
Le fichier est en pièce jointe avec la capture d’écran de l'erreur d’exécution.
Voici le code vb du bouton recherche multicolonne.
Merci à vous.
VB:
'Fonction recherche Multicolonne
Private Sub TextBox14_Change()
clé = "*" & Me.TextBox14 & "*"
Dim Tbl()
For I = 1 To UBound(TblBD)
témoin = False
For k = 1 To NbCol
If TblBD(I, k) Like clé Then témoin = True
Next k
If témoin Then
n = n + 1
ReDim Preserve Tbl(1 To UBound(TblBD, 2), 1 To n)
For k = 1 To UBound(TblBD, 2): Tbl(k, n) = TblBD(I, k): Next k
End If
Next I
If n > 0 Then
Me.ListBox1.Column = Tbl
Else
Me.ListBox1.List = TblBD
End If
End Sub