Discussion :

[xristo]

Bonjour à tous,

Novice en VBA, je rencontre un problème de limitation qui semble déjà connu (Erreur d'exécution '13, 'Incompatibilité de type)

Je travaille avec une colonne contenant 42848 lignes (liste de maladies) que j'aimerais filtrer dans une ListBox après filtrage via TextBox (exemple de recherche illustré dans l'image jointe)


J'utilise la méthode Application.Transpose pour la textbox et cela fonctionne très bien sur mon ordinateur personnel (Excel 2016).
Par contre cela ne fonctionne plus sur mon ordinateur professionnel (Excel 2013). L'erreur disparaît pour un nombre de 16411 lignes (au lieu de 42848 lignes)

En pièce jointe mon fichier de travail.

Un très grand merci pour votre aide !

[Menhir]

Dans ton code, n'aurais-tu pas déclaré de type Integer une (ou plusieurs) variable qui contiendrait des numéro de ligne ?
Si c'est le cas, passe cette/ces variable(s) en type Long.

Pour ce qui est des limites de colonnes, il n'y a pas de différence entre Excel 2013 et 2016 : 16384 dans les deux cas.
https://support.office.com/fr-fr/art...7-269d656771c3

La méthode Transpose de Application, je ne connais pas.
https://docs.microsoft.com/fr-fr/off...cation(object)
Est-ce que tu veux parler de la fonction matricielle TRANSPOSE() d'Excel ?

[xristo]

Bonjour Menhir et merci pour cette première réponse

Dans ton code, n'aurais-tu pas déclaré de type Integer une (ou plusieurs) variable qui contiendrait des numéro de ligne ?
Si c'est le cas, passe cette/ces variable(s) en type Long.

il s'agit d'une variable déclarée "as Variant".
Effectivement j'utilise des numéros de ligne pour cette variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Data As Variant
Private Sub UserForm_Initialize()
Data = Application.Transpose(Sheets("BDD").Range("A2:A42849").Value)
ListBox1.List = Data

Merci par avance !

[Menhir]

il s'agit d'une viariable déclarée "as Variant".
Effectivement j'utilise des numéros de ligne pour cette variable

Mauvaise idée.
Une variable doit toujours être déclaré avec le type qui convient.
Le type Variant doit être réservé en dernier recours à des cas particuliers, par exemple pour recueillir le résultat d'une fonction pouvant renvoyer des types différents de résultats.

[patricktoulon]

bonjour
si si application transpose existe

et data c'est bien a variant qu'il faut qu'il soit il ne peut en être autrement



c'est pas ca ton problème

j'ai testé ton fichier
et effectivement il y a trop de ligne pour une variable tableau a 1 dimension

j'explique

si tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ListBox1.List = Sheets("BDD").Range("A2:A42849").Value    'Data

ca fonctionne ta liste est bien remplie


si tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Data = Sheets("BDD").Range("A2:A42849").Value
    ListBox1.List = Data

donc tableau a 2 dim (x ligne 1 colonne ) sans transposition
ca fonctionne

si tu fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Data = Application.Transpose(Sheets("BDD").Range("A2:A42849").Value)
    ListBox1.List = Data

ce qui a pour effet de convertir ton tableau 2 di en 1 dim(array) et bien ne fonctionne plus car trop d'item pour un array(1dim)

ta limite c'est (j'ai testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
Data = Application.Transpose(Sheets("BDD").Range("A2:A16412").Value)
    ListBox1.List = Data
End Sub

ca fonctionne donc jusqu'à 16412 lignes
d'ailleurs ta listbox n'accepte que 16412 lignes aussi
conclusion
trop de ligne et donc impossible d'utiliser filter (pour les variable tableau )ce qui aurait simplifier la chose

tu a 2 solutions que je vois
soit tu (autofilter et remplie ta listbox en fonction du textbox et les specialcells
soit tu boucle sur les item de la listbox et tu supprime si ca ne correspond pas a tes critères dont le textbox1

voila

[BENNASR]

bonsoir à tous
avec plus de 40 milles lignes je crois que c'est pas une bonne idée de faire avec textbox3.change car le code déclenche après chaque saisie dans ce textbox (ce n'est que l'avis d'un autodidacte )
je crois que un filtre comme recommande patrick (bonjour au passage) et un bouton de commande peut faire l'affaire (saisir dans le textbox et puis cliquer sur le bouton de commande)
un bricolage à tester (nécessite peut être bq d'amélioration)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub CommandButton4_Click()
ListBox1.Clear
Dim O As Worksheet
Set O = Sheets("BDD")
Dim C As Range
Dim Derlig As Long
Application.ScreenUpdating = False
Derlig = O.Cells(Rows.Count, 1).End(xlUp).Row
CRI = "*" & UCase(Me.TextBox3.Value) & "*"
Set D1 = CreateObject("Scripting.Dictionary")
O.Range("A1:A" & Derlig).AutoFilter Field:=1, Criteria1:=CRI
    For Each C In O.Range("A2:A" & Derlig).SpecialCells(xlVisible)
    If C.Text <> "" Then D1(C.Text) = ""
    If Not D1.exists(C.Text) Then D1(C.Text) = ""        
   Next C
 O.ShowAllData
    If D1.Count > 0 Then
   ListBox1.List() = D1.keys
    End If
Application.ScreenUpdating = True
End Sub

J'espère que ça t'aide à avancer
BONNE CONTINUATION

[patricktoulon]

re
perso je pense que cette BDD devrait être tout sauf une feuille excel tout simplement

[boisgontierjacques]

Bonjour,

Application.Transpose est limité à 64.000 lignes

Fonction TransposeJB() qui convertit en une table à 1 dimension (0,039 sec pour 73.000 lignes)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essaiTransposeJB()
  t = Timer
  Tbl = [A2:A73000].Value
  Tbl = TransposeJB(Tbl)
  MsgBox Timer - t        ' 0,039 sec pour 73.000 items
  Tbl = Filter(Tbl, "xxx")   ' Tbl doit être à 1 dimension
  [D2].Resize(UBound(Tbl) - LBound(Tbl) + 1) = Application.Transpose(Tbl) '  vérif
End Sub
 
Function TransposeJB(Tbl)  ' convertit en 1 table à 1 dimension
  ReDim Tbl2(1 To UBound(Tbl))
  For i = 1 To UBound(Tbl)
    Tbl2(i) = Tbl(i, 1)
  Next i
  TransposeJB = Tbl2
End Function

Boisgontier

[patricktoulon]

jacques
il faut prendre en compte la valeur des items aussi ca réduit vachement avec les phrases qu'il a sur son tableau
je vais quand mémé tester ton truc JB

edit
testé

bon ben c'est sans appel si il y a trop de ligne même après filter
la transposition plante "incompatibilité de type" même erreur pour même raison

pour te donner une idée du tableau qu'il a a filtrer

je montre l'erreur quand même



je le redis
ce genre de BDD n'a rien a faire dans une feuille Excel sauf pour lecture

[boisgontierjacques]

J'ai essayé la fonction Transpose1() avec la BD d'origine.Pas de pb.
Ma fonction est plus rapide que Application.transpose


Boisgontier

[patricktoulon]

re
c'est pas ta méthode qui cloche mais simplement que si le résultat de filter dépasse 16412 ligne , ben t'es chocolat

[boisgontierjacques]

J'ai essayé Filter() avec 21.000 réponses. C'est ok.


Boisgontier

[patricktoulon]

re
j'ai testé ton fichier ca fonctionne
il y a quelque chose qui m'échappe la dedans

je prend + que 16412 ligne et transpose ca plante
et toi tu transpose un tbl(résultat du filtre)plus important ca plante pas

la seule différence ce serait que tbl qui est issue de tbl2 et dimé avec le même nombre d'item mais vide au départ par le redim dans ta fonction transpose1
je vois que ca