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

Tempus

XLDnaute Junior
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.


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
 

Pièces jointes

  • Tempus-fonction recherche-.xlsm
    57.4 KB · Affichages: 7
  • erreur execution 9 avec bouton recherche Multicolonne.PNG
    erreur execution 9 avec bouton recherche Multicolonne.PNG
    18.6 KB · Affichages: 7

Tempus

XLDnaute Junior
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
 

Tempus

XLDnaute Junior
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.
 

Pièces jointes

  • FiltreTextBoxColRechMultiCol.xlsm
    39.8 KB · Affichages: 2

Tempus

XLDnaute Junior
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.
 

Pièces jointes

  • Tempus- fonction recherche- v1.xlsm
    64.7 KB · Affichages: 1
  • --avec recherche multicolone dans listbox--  colonne H = #,### et colonne I=  #,###.PNG
    --avec recherche multicolone dans listbox-- colonne H = #,### et colonne I= #,###.PNG
    4.7 KB · Affichages: 3

Tempus

XLDnaute Junior
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.
 

Pièces jointes

  • -- dans listboxet feuille excel--  colonne H = #,### et colonne I=  #,###.PNG
    -- dans listboxet feuille excel-- colonne H = #,### et colonne I= #,###.PNG
    8 KB · Affichages: 3
  • Tempus- fonction recherche- v2.xlsm
    67.5 KB · Affichages: 2
Haut Bas