Discussion :

[leblesois]

Bonjour le Forum,

je vous explique mon problème. Je viens de créer un "super fichier" de suivi avec des tas de formulaires, ...

Dans un de ses formulaires, j'ai une listbox, qui se charge sans problème. J'ai également créé, entre autres, un combobox qui permet de filtrer la Listbox sur une de ses colonnes (="Catégorie").

Si je sélectionne une catégorie, tout fonctionne bien, le filtrage se fait parfaitement, sauf pour UNE des catégories !!!! (dans mon cas "Mobilier").
En effet, lorsque je sélectionne cette catégorie (et uniquement celle-ci, d'ou ma surprise), j'obtiens le message suivant :

Erreur d'exécution '-2147352571 (80020005)' : Impossible de définir la propriété List. Le type ne correspond pas.

En faisant 'jouer' le code via F8 ... F8, j'arrive à déterminer que le problème vient au niveau du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each c In Application.index(Workbooks(ThisWorkbook.Name).Sheets("articles").[DONNEES_ARTICLES], , 1)
        If c.Offset(, 5) = Me.Cbb_Catégorie Then
            Me.ListBox_Articles.AddItem
            Me.ListBox_Articles.List(I, 0) = c.Value
            For N = 1 To NbCol
                Me.ListBox_Articles.List(I, N - 1) = c.Offset(, N - 1).Value
            Next N
            I = I + 1
        End If
    Next c

de la ligne

Code :

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

Me.ListBox_Articles.List(I, N - 1) = c.Offset(, N - 1).Value

et cela au moment où la valeur de la cellule sur lequel on travaille possède 3205 caractères.

Ma question est donc la suivante, pourquoi à l'initialisation du formulaire la taille de la cellule ne pose pas de problème pour la listbox, alors qu'avec le code ci-dessus SI ?

Deuxième question : excel limite le nombre de caractères à combien dans une "cellule" d'une listbox ?

Dernière question : comment résoudre mon problème ?

Afin d'illustrer mon problème, je vous ai mis en PJ le formulaire (réduit au mimimum pour vous le transmettre) posant problème avec son code (lui aussi réduit au minimum).

Merci d'avance pour votre aide

[unparia]

Bonjour
la règle est ici une seule question/difficulté par discussion. Aucune limitation en ce qui concerne le nombre d'articles que peut contenir une listbox. Il en va différemment en ce qui concerne le nombre de ceux pouvant être exploités : il est limité à celui d'un integer. (32000 et des poussières); ceci étant dit --->> une liste de plus de 1000 articles est en général "imbuvable".
Je n'ai pas ouvert ton classeur (je n'ouvre et n'ouvrirai jamais un classeur tiers)
Une listbox ne peut être alimentée que par du texte. Une erreur est inévitable si tu cherches à y inscrire le contenu inexploitable (cellule en erreur) d'une cellule

[leblesois]

Merci de répondre si rapidement, mais malheureusement, je ne comprends pas votre réponse. En effet, ma listbox n'est alimentée que par du texte étant donné qu'elle va chercher le contenu d'une cellule qui n'est absolument pas en erreur...

Donc mon problème persiste ... SNIFF !

[Patrice740]

Bonjour,

Il n'y a aucun intérêt à disposer d'une entrée de Listbox avec 3205 caractères !
Une Listbox ne doit pas être un substitut de feuille de calcul.

[leblesois]

Aucun intérêt pour vous !
Mais quand il s'agit de récupérer un descriptif qui se trouve dans une cellule, je ne vois pas comment faire autrement pour faire apparaitre dans un formulaire le contenu de cette cellule ...

Ce genre de réflexion ne fait pas avancer la discussion...

[unparia]

Bien.
Cette réponse à Patrice me convainc que je n'ai aucun intérêt à rester dans cette discussion.
Salut.

[Patrice740]

Aucun intérêt pour vous !
Mais quand il s'agit de récupérer un descriptif qui se trouve dans une cellule, je ne vois pas comment faire autrement pour faire apparaitre dans un formulaire le contenu de cette cellule ...

Ce genre de réflexion ne fait pas avancer la discussion...

Pour récupérer le contenu d'une cellule, un label suffit !
Et s'il s'agit de pouvoir modifier le texte, c'est un Textbox qui est le plus adapté.

[leblesois]

Après plusieurs tests, il ressort que ce problème apparait dès qu'il y a au moins 2048 caractères dans une cellule... Les listbox alimentées par une boucle du type

Code :

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

1
2
3
4
 
For N = 1 To NbCol
Me.ListBox_Articles.List(I, N - 1) = c.Offset(, N - 1).Value
Next N

sont donc concernés par cela... mais pas celles alimentées par ce code :

Code :

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

1
2
3
4
5
6
7
 
For LIG = LBound(clé) To UBound(clé)
        For COL = LBound(BDD_ORIGINE, 2) To UBound(BDD_ORIGINE, 2)
            b(LIG, COL) = BDD_ORIGINE(index(LIG), COL)
        Next COL
Next LIG
    Me.ListBox_Articles.List = b

Bizarre, Bizarre....

Si vous avez une explication, je suis preneur ! MERCI !