Autres Erreur d'exécution 13 - Excel 2007

Tsegp

XLDnaute Nouveau
Bonjour

J'ai un souci avec un module VBA.
Le but est de rechercher dans une feuille Excel et dans l'ensemble des colonnes ce que je tape dans la textbox puis d'afficher dans la listbox les lignes correspondante.

Sa marche très bien avec 20000 lignes mais mon problème c'est que j'ai une feuille avec 210 000 lignes et 5 colonnes.

J'ai un code erreur "erreur d'exécution 13 - incompatibilité de type".

Je comprend pas. Est ce la limite de Excel?

Une idée?

Merci d'avance a tous.


Mon code ci dessous



VB:
Private Sub UserForm_Initialize()

   Set f = Sheets("BASEDI")

   Set Rng = f.Range("A1:E" & f.[E210000].End(xlUp).Row)

   Ncol = Rng.Columns.Count

 

  TblTmp = Rng.Value

   For i = LBound(TblTmp) To UBound(TblTmp)

     ReDim Preserve choix(1 To i)

     For K = LBound(TblTmp) To UBound(TblTmp, 2)

       choix(i) = choix(i) & TblTmp(i, K) & " * "

     Next K

   Next i

   Me.ListBox1.List = Rng.Value


End Sub






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

       If UBound(Tbl) > -1 Then

          Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To Ncol)

          For i = LBound(Tbl) To UBound(Tbl)

            A = Split(Tbl(i), "*")

            For K = 1 To Ncol: b(i + 1, K) = A(K - 1): Next K

          Next i

          Me.ListBox1.List = b

          Me.Label1.Caption = UBound(Tbl) + 1

       

          Else: MsgBox "...::: CLIENT INTROUVABLE :::..."

        End If

     

   Else

     UserForm_Initialize

  End If

End Sub
 

Tsegp

XLDnaute Nouveau
Merci pour ta réponse.
Malheureusement le fichier est une base client donc je ne peux pas le partager.

Des que je lance le userform j'ai le message d'erreur.

En mettant 21000 ligne sa fonctionne mais pas avec 210000 lignes
 

ChTi160

XLDnaute Barbatruc
Re
j'ai constaté que l'erreur est du (si je ne me trompe Lol) au Fait que tu as dans la Colonne des Villes des cellules avec une Erreur "#NOM" une fois supprimées (remplacéées par des Noms de Villes) plus de problème à voir !
jean marie
 

Pièces jointes

  • Erreur-1.gif
    Erreur-1.gif
    474.1 KB · Affichages: 28

Discussions similaires

Réponses
3
Affichages
533

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal