Autres Erreur d'exécution 13 - Excel 2007

[Tsegp]

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

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

 

[ChTi160]

Bonsoir Tsegp
Sans fichier pas evident!
A quel niveau de tes Procédures as-tu ce message d'erreur !
Bonne fin de Soirée
Jean marie

 

[Tsegp]

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]

Re
Dommage !
mais ce n'est pas un problème de Nombre de lignes!

Les classeurs version 2007 ont : 1 048 576 lignes et 16 384 colonnes

Mais peut être le Nombre des Caractères enregistrés dans une Variable ??????
Enfin pas evident!
Bonne fin de Soirée
Jean marie

 

[Tsegp]

Je vais vous faire un fichier avec une base de client bidon pour vous montrer

 

[ChTi160]

Re
Bien
as tu fais une recherche sur le Net avec :

code erreur "erreur d'exécution 13 - incompatibilité de type"

ça pourrait te donner une idée des causes possibles !
Jean marie

 

[Tsegp]

Voici le classeur.
J'ai fait deux bouton, avec celui qui fonctionne (recherche colonne a et b) et celui qui fonctionne pas (recherche colonne a b c d et)

Le classeur étant trop lourd, Voici le lien pour le télécharger

HiDrive

hidrive.ionos.com

 

[Tsegp]

Re
Bien
as tu fais une recherche sur le Net avec :

ça pourrait te donner une idée des causes possibles !
Jean marie

Oui mais sans succès car cette erreur est vague et générique a plusieurs problèmes

 

[ChTi160]

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

 

[Tsegp]

Super, effectivement j'ai pas pensé à regarder ça.
Je regarde demain sur le bon fichier et te redit ça.
Merci