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