transposition code vba en vb.net pour remplir combobox

Bonjour à tous,

un besoin d'aide pour transposer du code vba en vb.net !
car en vb.net la solution items.add prends trop de temps en allant chercher une colonne excel de 8000 lignes donc j'aurais souhaité transposer le code vba qui était extrement rapide (instantanée) pour pouvoir l'utiliser en vb.net si c'est possible !

Ci dessous le code en vba excel que je souhaiterai transformer pour un projet en vb.net :

Code:

---

1 2 3 4 5 6 7 8 9

Set f = Sheets("bdd") Set MonDico = CreateObject("Scripting.Dictionary")   For Each c In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row) MonDico(c.Value) = "" Next c temp = MonDico.keys Call tri(temp, LBound(temp), UBound(temp)) Me.ComboBox1.List = temp

---

Bonjour,

Je te propose d'utiliser un SortedList au lieu d'un Dictionary car dans ce cas, les données sont automatiquement triées sur les clés (pas besoin de tri) et l'objet peut alimenter le DataSource d'un ComboBox.

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim MonDico As New SortedList   ' ... ... ...   ' ... dans une procédure ...   MonDico.Add("AZ", "AZERTi") ' Ajout d'éléments dans MonDico sous la forme ("KEY", "VALUE") MonDico.Add("QW", "QWERTY") MonDico.Add("PA", "PANZANI")   ComboBox1.DataSource = MonDico.Keys ' Toiutes les clés ordonnées sont transférées dans le Combo   ' ... ... ...

---

J'espère que ceci t'aidera ... :D

Merci Phil Rob pour ton aide,

Je dois pas être doué car, le résultat chez moi est une combobox vide à la fin ...
Mais j'ai certainement fait une erreur ...
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

f = xlBook.Sheets("ZONE") range = f.UsedRange ProgressBar2.Maximum = range.Rows.Count For Me.lngCnt = 2 To range.Rows.Count If f.Range("A" & lngCnt).Text <> ("") Then MonDico.Add((f.Range("A" & lngCnt).Text), "") Else End If ProgressBar2.Value = (lngCnt - 1) + 1 'incremente la ProgressBar pour chaque ligne Next ComboBox2.DataSource = MonDico.Keys 'nettoyage doublon combobox Call SupprDoublon(ComboBox2)

---

Re,

Je suppose que tu as bien écrit (au niveau du Form) la déclaration Dim MonDico As New SortedList et que le code suivant est adapté à ce que tu souhaites :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

f = xlBook.Sheets("ZONE") range = f.UsedRange ProgressBar2.Maximum = range.Rows.Count For Me.lngCnt = 2 To range.Rows.Count If f.Range("A" & lngCnt).Text <> ("") Then MonDico.Add((f.Range("A" & lngCnt).Text), "") Else End If ProgressBar2.Value = (lngCnt - 1) + 1 'incremente la ProgressBar pour chaque ligne Next

---

Je peux te confirmer que la ligne ComboBox2.DataSource = MonDico.Keys est correcte.

Que reste-t-il ? La ligne Call SupprDoublon(ComboBox2).

Pour tester, je te propose d'écrire le code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

' ... ... ... For Me.lngCnt = 2 To range.Rows.Count If f.Range("A" & lngCnt).Text <> ("") Then MonDico.Add((f.Range("A" & lngCnt).Text), "") Else End If ProgressBar2.Value = (lngCnt - 1) + 1 'incremente la ProgressBar pour chaque ligne Next   MessageBox.Show(MonDico.Count) ' pour s'assurer que le code précédent a bien fourni des lignes dans MonDico   ComboBox2.DataSource = MonDico.Keys   'nettoyage doublon combobox ' Call SupprDoublon(ComboBox2) ' mettre cette ligne en commentaire pour observer le résultat ...

---

... :D

Après test de ton code, le message box généré affiche "7"
Qui est au passage le nombre de ligne présent dans cette colonne et donc correspond à range.Rows.Count du code
Par contre toujours rien dans la combobox ...

Questions :

1. As-tu bien isolé la ligne d'appel SupprDoublon() ?
   
   • Si oui, peux-tu m'envoyer le code de cette procédure SupprDoublon(), je la testerai avec ma SortedList.
   • Si non, il faut la soupçonner d'être responsable du problème.
   
   
2. Quel VisualStudio utilises-tu (2010, 2013, 2015, ...) ?

... :)

Suite ...

Repensant à la procédure SupprDoublon(), je veux attirer ton attention que la SortedList n'accepte pas les doublons sur les Keys. Si le risque existe, il faut placer la ligne MonDico.Add() dans un bloc Try Catch :

Code:

---

1 2 3 4 5 6 7 8 9 10

' ... If f.Range("A" & lngCnt).Text <> ("") Then Try MonDico.Add((f.Range("A" & lngCnt).Text), "") Catch End Try Else End If ' ...

---

Pour le cas où tu voudrais ôter les doublons sur les Values (quoique dans ton code ci-dessus, tu ne donnes aucune Values), le code suivant enlève ces doublons :

Code:

---

1 2 3 4 5 6 7 8

If MonDico.Count > 1 Then For i As Integer = MonDico.Count - 2 To 0 Step -1 If MonDico.Values(i) = MonDico.Values(i + 1) Then MonDico.RemoveAt(i + 1) End If Next End If

---

... :D

Merci pour ta persévérance mais toujours pareil, le résultat est une combobox vide j'ai pourtant essayé :
- sans call Supprdoublon
- avec le code entre try et End try
- la colonne de 7 éléments n'a pas de doublon
- le tout fonctionne avec ce code-ci dessous (mais le but était d'en changer ..)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load   'scan d'un fichier excel dans le projet base de donnée listing équipement chemin = (My.Application.Info.DirectoryPath & "\listing.xlsx") TextBox2.Text = chemin   xlApp.ScreenUpdating = False xlApp.DisplayAlerts = False xlBook = xlApp.Workbooks.Open(chemin)   f = xlBook.Sheets("ZONE") range = f.UsedRange ProgressBar2.Maximum = range.Rows.Count For Me.lngCnt = 2 To range.Rows.Count If f.Range("A" & lngCnt).Text <> ("") Then ComboBox2.Items.Add(f.Range("A" & lngCnt).Text) Else End If ProgressBar2.Value = (lngCnt - 1) + 1 'incremente la ProgressBar pour chaque ligne Next End Sub

---

Et je suis sur VISUAL STUDIO ULTIMATE 2012

Et enfin par curiosité, j'ai testé sur un autre Form.vb ton code initial avec MonDico.Add("AZ", "AZERTi") etc...
et ça fonctionne.
Donc ce doit être :

Code:

---

ComboBox2.Items.Add(f.Range("A" & lngCnt).Text)

---

transformé en

Code:

---

MonDico.Add((f.Range("A" & lngCnt).Text), "")

---

qui ne doit pas être correct, et pourtant pas de bug annoncé par VISUAL STUDIO ...

Citation:

---

MonDico.Add((f.Range("A" & lngCnt).Text), "")

---

Ce n'est pas ce code qui pose problème puisque le MonDico.Count t'a donné 7. C'est donc que le MonDico se remplit bien.

Et si tu as testé sans l'appel de SuppDoublon, il ne reste que Combo2.DataSource = MonDico. A voir pourquoi ...

Ne peux-tu m'envoyer ton projet (avec un jeu XLS de test) ?

Je dis pas non ! mais je débute en vb.net et je ne sais pas encore extraire un projet pour le communiquer.
que dois-je t'envoyer ?

Bonjour,

Pour transmettre un projet entier, le plus facile est de faire une copie compressée et de la mettre en pièce jointe à un message. Il ne s'agit donc pas d'une opération VisaulStudio mais bien du système Windows.
Pour compresser le dossier, il y a :
Pièce jointe 587852

Il faut évidemment pouvoir localiser le dossier. Il est possible de retrouver le chemin d'un dossier de projet dans les propriétés de la solution (excuse l'illustration dans une interface espagnole) :
Pièce jointe 587853

Et pour joindre un fichier à un message, il y a juste en dessous de cette zone de texte, le bouton "Gérer les pièces jointes" :
Pièce jointe 587854


... :D

Si j'ai bien tout compris, voici le fichier compressé(.ZIP) ci dessous
Pièce jointe 587855

pour info :
- le fichier excel dans le ZIP est placé à coté de l'exe pour aller le chercher avec chemin = (My.Application.Info.DirectoryPath & "\listing.xlsx")
- sur Form1 cliquer simplement sur connection à l'ouverture, j'ai désactivé les logins et mots de passe
- sur Form3 les combobox en question avec le code initial (celui qui prends du temps) pour voir grace à la progressbar
- sur Form 3 le Boutton7 ouvre Form2 avec un test de ton code initial MonDico.Add
- sur Form 2 le Boutton1 ramène vers Form3
- sur Form2 la croix en haut à droite ramène sur Form1
- sur Form1 le boutton QUITTER ARIANE quitte l'application
- tout ce mic-mac de boutton sert à revenir obligatoirement à la Form1 et quitter pour fermer les instances d'excel sinon elles restent ouvertes
- enfin, ce projet n'en est qu'au début et c'est pour ça que c'est encore inachevé et brouillon !

Désolé, mais ton ZIP ne contient pas les sous-dossiers du projet, voici son contenu :
Pièce jointe 587865

Je suppose que tu utilises l'organisation de stockage par défaut de VisualStudio. Dans ce cas, le projet complet est dans Documents\VisualStudio ...\Projects\Ariane. C'est ce dossier Ariane qu'il faut compresser. Mais ce chemin est bien celui désigné dans les propriétés de la solution (Solucion / Propriétés / Chemin).
Pièce jointe 587868

Pièce jointe 587870

Pièce jointe 587869

... :D

Bon j'ai crée un projet allégé avec seulement la problématique via le .zip si dessous
Pièce jointe 587883

En espérant que cela fonctionne maintenant !

Re,

J'ai bien reçu ton projet et je peux l'exécuter.
Il y a effectivement un problème : je ne comprends pas pourquoi ComboBox2.DataSource = MonDico.Keys ne fonctionne pas dans ce code, alors que cela fonctionne par ailleurs. Je chercherai dans la soirée si je peux comprendre.

En attendant, j'ai remplacé cette ligne de code par un remplissage "manuel" du ComboBox. Cela se fait en mémoire interne (sans accès à XLS) et sans nécessiter de tri (le SortedList fait le travail). Cette solution te dépannera en gardant une grande rapidité d'exécution.

J'ai placé le remplissage de la SortedList dans un bloc Try parce que, si d'aventure, il devait y avoir un doublon dans les données, cela provoquerait une erreur. Avec le Try, celle-ci ne bloquera pas le programme.

Attention, dans la procédure ComboBox2_SelectedValueChanged(...) tu as encore un appel à SupprDoublon(). Il faut retirer ces appels dès lors que tu travailles avec la SortedList.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

' ... ... ... For Me.lngCnt = 2 To range.Rows.Count If f.Range("A" & lngCnt).Text <> ("") Then Try ' Adsn un Try pour éviter les erreurs d'exécutions sur doublons. MonDico.Add((f.Range("A" & lngCnt).Text), "") ' ComboBox2.Items.Add(f.Range("A" & lngCnt).Text) Catch End Try Else End If ProgressBar2.Value = (lngCnt - 1) + 1 'incremente la ProgressBar pour chaque ligne Next   ' *** ' ComboBox2.DataSource = MonDico.Keys   ' Puisque le DataSource ne focntionne pas, je le remmplace par les 3 lignes suivante : For I As Integer = 0 To MonDico.Count - 1 ComboBox2.Items.Add(MonDico.Keys(I)) Next   ' ... ... ...

---

J'espère que ceci te permettra d'avancer ...:D

ok, j'essaye ...

Comme tu as put le voir, il y a plusieurs ComBobox en cascade et c'est surtout pour charger la 3e combobox (apres choix dans la 2e) que cela prends du temps

Et oui je vais supprimer le code de Supprdoublon

Eureka qu'il a dit, parait-il ...

La propriété Sorted du ComboBox est à TRUE dans ton programme. Ce n'est pas sa valeur par défaut. Si tu la remets à FALSE, alors le code ComboBox2.DataSource = MonDico.Keys fonctionne parfaitement et te dispense de ma boucle de dépannage.

Pièce jointe 587910

Il est inutile de modifier cette propriété du ComboBox puisque la SortedList est toujours ordonnée sur les KEYS.

Si dans un autre ComboBox tu présentes les Values (ComboBox2.DataSource = MonDico.Values), ou d'autres valeurs, et que tu veux qu'elles soient ordonnées, alors d'accord d'affecter TRUE à la propriété Sorted du ComboBox. Mais dans ce cas, il ne faut pas appeler un procédure de tri, c'est le ComboBox a ce qu'il faut.
Enfin, si je peux me permettre, pour modifier les valeurs par défaut des propriétés des composants, il est préférable de le faire dans le code ComboBoxN.Sortde = True, généralement dans le Form_Load. S'il en avait été ainsi avec le ComboBox2, j'aurais constaté le problème ce matin ...

... :D

Effectivement ça marche mieux !
Le nouveau problème c'est que le chargement de chaque Combobox affiche un item et donc les autres combobox se lancent aussi ...
Et pas de gain de temps avec ce nouveau code ou en tout cas pas instantanée comme sur VBA excel ...
Merci cependant pour ton implication !

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

Code:

---

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

---

@Barbouze

Citation:

---

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 ... :D

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 !

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 ?

Pièce jointe 588050

Salut Phil Rob

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

Merci pour l'info ProgElect.

Pardonne mon impulsivité ...

Bonne soirée,

Phil

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...