XL 2019 Erreur d’exécution 9 avec fonction recherche dans textbox

[Tempus]

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.

'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

 

[mapomme]

Bonjour,

Il semble que TblBD n'ai jamais été rempli.

 

[Tempus]

Bonjour mapomme,

Merci d'avoir jeté un coup d'oeil.

Pourtant TblBD() est bien déclaré en début de code, voir ci dessous, "le code de recherche en multicolonne fonctionne dans un autre fichier que j'utilise".

Option Compare Text
Dim f, Rng, TblBD(), NbCol

 

[mapomme]

Re,

Déclaré mais vide au moment de l'utiliser.

 

[Tempus]

Ce problème me dépasse, si vous avez la solution, je suis preneur.

Merci encore,

 

[Tempus]

Voici le fichier ou j'ai récupéré le code vb de la recherche par multicolonne, celui-ci fonctionne, je pense que cela pourrai aider à réparer mon fichier Excel.

 

[mapomme]

Re,

Voir le code de : Private Sub TextBox14_Change()

 

[Tempus]

Génial, merci mapomme, cela fonctionne parfaitement,

Bonne soirée.

 

[Tempus]

Re-bonsoir mapomme,

Votre code fonctionne parfaitement, mais lors d'une recherche par multicolonne il y a trop de chiffres après la virgule dans les colonnes H et I de la Listbox, est-il possible d'avoir ce format ####,# dans la colonne H et ce format #,### dans la colonne I.
Une capture d’écran est en pièce jointe avec le fichier excel.

Merci encore pour votre aide.

 

[mapomme]

Re,

Voir le code du fichier v2.

 

[Tempus]

Bonjour mapomme,

Super les formats sur les colonnes H et I sont bons avec la fonction recherche multicolonne, mais pouvez-vous mettre les mêmes format sur les colonnes H et I de la feuille et de la listbox.

Encore merci pour votre aide.
Fichier et capture d’écran en pièce jointe.

 

[mapomme]

Re,

Voir le fichier joint.

 

[Tempus]

Génial, les formats sont identiques dans la feuille et la listbox, un grand merci à vous.