Discussion :

[Thumb down]

bonjour,
sans vouloir offenser personne, retranscrire un code VBA comme deux goute d'eau en vb.net je n'adhère pas!

Code :

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

1
2
3
4
5
 Dim XLS As Object = XlApp.Workbooks.Open("C:\Test\test.xlsm")
        Dim R As Array = XLS.Sheets("Feuil1").range("A1:A997920").value
        Dim T As Object = R.Cast(Of Object).ToArray.ToList.Distinct.ToArray()
        Array.Sort(T)
        Me.ComboBox1.DataSource = T

[Phil Rob]

@Barbouze

le chargement de chaque ComboBox affiche un item et donc les autres ComboBox se lancent aussi ...

Le SortedList n'est qu'un moyen de remplir le ComboBox2. Il ne saurait être responsable de l'activation d'autres Combo. Là, faut voir l'organisation des codes.

@Thumb down
Tu as raison mais quand quelqu'un tient un algo qui le satisfait ... c'est pas la plus mauvaise idée.
Mais il est clair que ça ne peut se réduire à une simple traduction.

Bonne soirée à vous deux ...

[babouze64]

En fait, Thumb down, c'était plutôt pour faciliter la compréhension de la problématique et non pour transposer à tout prix !
Peu importe le code, tant que les combobox en cascade fonctionne (chargement du suivant à chaque sélection manuelle du précèdent)
et que le chargement soit quasi instantané ! car la 8000 cellules en 20 secondes c'est trop !
D'ailleurs la solution de Phil Rod n'a pas accéléré le processus et donc au final je garde le simple ComboBox2.Items.Add(f.Range("A" & lngCnt).Text) !

Et comme tu peux le vois par mon nombre de contribution à ce forum, ce sont mes débuts en VB.NET et donc je me raccroche à ce que je connais, c'est à dire du codage VBA !

[Phil Rob]

Dites tous ...

Il y a quand même un problème avec le site: je viens de recevoir un mail de notification m'informant que Thumb down avec laissé un message dans cette discussion et lorsque je suis le lien contenu dans le mail, j'arrive en effet dans cette discussion, mais imposible de voir le message de Thumb down !

Y a-t-il un pilote dans l'avion ?

[ProgElecT]

Salut Phil Rob

Entre la notification et ton arrivé dans la discussion, Thumb down a supprimé son message.

[Phil Rob]

Merci pour l'info ProgElect.

Pardonne mon impulsivité ...

Bonne soirée,

Phil

[Thumb down]

Bonjour tous,
En fait j'ai mis la charu avant les bœufs !

Et comme je me suis dit que m'a solution n'interressait pas le demandeur...