Discussion :

[esse2016]

Bonjour au forum.

J'ai un retour de message d'erreur sur :

"un composant ActiveX ne peut pas créer l'objet"

le programme s'arrête sur cette ligne :

Code :

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

 Set ObjSortedList = CreateObject("System.Collections.ArrayList")

que dois-je cocher dans le menu outls-> références -> ?
si je m'égare que dois-je faire pour remédier au petit problème ?

Sachant que le programme est testé sur un excel-2000
le vba est en V6.

Merci d'avance pour votre aide.

[casefayere]

logiquement, tu n'as rien à cocher dans les références si tu as bien déclaré ta variable

Code :

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

1
2
3
4
Dim Obj As Object
.....
..... 
Set Obj = CreateObject("System.Collections.ArrayList")

j'utilise souvent cet objet sans problème

[esse2016]

J'ai toujours le problème.

le fait de l'enregistrer au format 97-2003.xls sachant que je viens de excel 2010, y a-t-il un rapport ou pas ?


Cependant voici ce qui est coché dans le menu références dans excel2000, vba V6 :

[Marc-L]

Bonjour,

vu le nom de la variable, j'ai l'impression qu'il y a déjà une erreur sur l'objet pointé !?

Sinon fermer Excel voire même redémarrer l'ordinateur …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[clementmarcotte]

Bonjour,

Tu es absolument sûr que c'est du VBA ?

Parce que moi j'en doute énormément.

Dans mon esprit, System.collections.arraylist = VB.net

Et, puis utiliser un composant .net à partir de VBA ou VB6, cela demande plus qu'un banal CreateObject.

M'est avis que tu devrais mettre ton code.

[casefayere]

Bonjour clementmarcotte,
comme précisé dans mon post #2, j'utilise beaucoup cet objet très utile avec le vba excel, il suffit de chercher ArrayList sur le net, voire même le site de boisgontier

[esse2016]

initialement cet objet avait été créée pour optimiser une routine

http://www.developpez.net/forums/d15...s/#post8695048


mais cependant voici le code sur la partie qui bloque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 '******************  TRI **************************
 Dim Obj As Object
 
 Set Obj = CreateObject("System.Collections.ArrayList")
 
 For i = 1 To x - 1
     Obj.Add Tb1(i)
 
  Next i
  ComboBox3.List = Obj.toarray
 
 End Sub

erreur sur
Set Obj = CreateObject("System.Collections.ArrayList")

[casefayere]

le fait de l'enregistrer au format 97-2003.xls sachant que je viens de excel 2010, y'a-t-il un rapport ou pas ?

c'est peut-être la réponse, je n'ai rien vu à ce sujet

[clementmarcotte]

Bonjour,

Bonjour clementmarcotte,
comme précisé dans mon post #2, j'utilise beaucoup cet objet très utile avec le vba excel, il suffit de chercher ArrayList sur le net, voire même le site de boisgontier

Désolé d'avoir douté, mais cela marche.

Ajout subséquent :

OK, j'ai trouvé pourquoi. Sur cette page, ils disent qu'il y a plusieurs classes du Framework .net qui incluent un "wrapper" vers le monde COM. Mais, ce n'est pas la majorité des classes du Framework. Honte à moi, puis-je (devrais-je) dire. Je ne le savais pas.

Comme on dit de par chez-nous : "Je vais me coucher moins niaiseux ce soir"

[casefayere]

Désolé d'avoir douté, mais cela marche

et ça peut-être très utile quand on a pas les problèmes de esse2016

[clementmarcotte]

Bonjour,

Entre temps, j'ai rabouté quelque chose à mon autre message. Je sais maintenant le pourquoi de la chose.

[esse2016]

euh vous me décoder svp je ne comprends rien à votre discussion

[casefayere]

je viens de voir ton lien, la traduction

Il y a une autre option et qui est d'utiliser le .NET Framework pour aider. La majorité des classes .NET Framework sont inutilisables en VBScript. Cependant, il existe un grand nombre de classes .NET qui ont wrappers COM-callable. T ses moyens ces classes comprennent une interface COM leur permettant d'être accessibles à partir de VBScript.

et bien, je suis comme esse, ça reste du chinois, ce texte anglais traduit en français

[joe.levrai]

Bonjour,

pour moi, et je vais indirectement rejoindre une partie de l'avis de Clement, ça vient de Excel 2000

Cet objet est une classe de .NET Framework, pas sûr que sur Excel 2000 ce soit disponible

Pour t'en convaincre, test ton code sur une version plus récente d'excel ... et si ça passe alors tu as ton explication.

[casefayere]

Bonjour,

pour moi, et je vais indirectement rejoindre une partie de l'avis de Clement, ça vient de Excel 2000

Cet objet est une classe de .NET Framework, pas sûr que sur Excel 2000 ce soit disponible

Pour t'en convaincre, test ton code sur une version plus récente d'excel ... et si ça passe alors tu as ton explication.

c'est la question que je me suis posée #8 et quand tu proposes de tester sur une version plus récente, apparemment c'est fait

le fait de l'enregistrer au format 97-2003.xls sachant que je viens de excel 2010, y'a-t-il un rapport ou pas ?

[joe.levrai]

Oui je l'ai vu après avoir posté que cette piste était déjà suggérée.

j'avais pas rafraichis la page, et j'ai répondu direct en rentrant des courses, ça m'apprendra

[esse2016]

Ok Joe,

sur du excel 2010 ça passe.

Donc du coup je fais un pas en arrière car initialement le code suivant

Code :

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

1
2
3
4
5
6
7
8
 
dim ObjSortedList as object
Set ObjSortedList = CreateObject("System.Collections.ArrayList")
 For i = 1 To x - 1
 ObjSortedList.Add Tb1(i)
 
 Next i
 ComboBox2.List = ObjSortedList.toarray

était pour remplacer ce bout de code afin de l'optimiser dans le cas ou j'aurai plus de 100 000 cellules à traiter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To UBound(Tb1, 1)
        For j = 1 To UBound(Tb1, 1)
 
        If Tb1(i) < Tb1(j) Then
        temp = Tb1(i)
        Tb1(i) = Tb1(j)
        Tb1(j) = temp
        End If
        Next j
Next i
 
ComboBox2.List = Tb1

donc je réitère ma question malheuresuement sait-on faire mieux par rapport au deuxième bout de code pour du EXCEL2000 ? si vous me dites que non et vous ne voulez pas vous prendre la tête, je peux comprendre...

[casefayere]

Pas grave, ce qu'il l'est plus, c'est que j'ai l'impression que esse ne pourra résoudre son problème et sera obligé d'utiliser une autre méthode (certainement moins pratique)

Edit : on s'est croisé esse

[esse2016]

Exactement Casefayere tu comprends mon désarroi...

[casefayere]

Exactement Casefayere tu comprends mon désarroi...

et je pense que tu n'auras pas d'autre solution en terme de rapidité d'exécution mais je peux me tromper