Urgent!!! problème pour classer une listbox alphabétiquement

[bichon]

Salut a tous et a toutes et oui c'est moi bichon qui vient vous demander
tenez vous bien une derniere chose car après je vous embèterai plus enfin jespere lol
alors voila je vous met un zip mon problème est tout simple j'ai 2 listbox que j'aimerai
classer par ordre alphabetique sans toucher a la base alors j'ai essayé d'utiliser une methode
de thierry mais en vain cf zip
la premiere listbox prend ses element d'une feuille excel et j'aimerai que l'initialisation
de cette list les element soit deja trier
avec cette premiere list je selectionne des element dans une 2em list et j'aimerai egalement
que celle ci soit trié alphabetiquement en autromatique si c'est possible
sinon pourquoi faire un bouton controle que l'on nomerai trier par exemple
si certain prefere moi ca m'est egal voila
et egalement mais c'est un petit bonus j'aimerai que lorsque que j'insere un nouvel element
dans la base pouvoir tout de suite le voir et n'etre pas obligé de quitter l'application
puis de revenir ca ca m'aiderai enormement
alors merci beaucoup d'avance aux personne qui viendront a mon secours pour une des dernieres fois
merci merci

bichon

 

[Yo]

Salut,
Dans la procedure TriLB1(), ton programme de tri est bon .
Le seul probleme est que tu tries des chaines de caracteres.
Donc le tri ne s'effectue pas correctement car tes valeurs contiennent des minuscules, des majuscules .....

Remplace la ligne,

If Tab1(i) > Tab1(j) Then

par

If UCase(Tab1(i)) > UCase(Tab1(j)) Then

Comme ça, tu évites le probleme des majuscules et des minuscules.

Celà améliore, mais tu as encore des valeurs avec des accents qui ne sont pas bien triées. Essaye de virer les accents.

 

[bichon]

Salut Yo et le forum
Merci a toi yo ca marche sans problème j'ai supprimer et les accent et c'est niquel
thank you
Par contre ta vu ma 2eme listbox ou je selectionne quelque element dans la première
j'aimerai pourquoi pas grace a un bouton controle pouvoir les mettre également
dans l'ordre alphabétique car je ne peux pas l'initialiser comme l'autre puisque au
depart elle est vide
Comment procéder stp je suis un peu perdu
merci d'ance encore une fois

 

[Yo]

Je vais jeter un oeil. Ce matin, j'etais à la bourre !!!

 

[Yo]

Regarde le fichier zip ci-joint,
J'ai rajouté une procédure TriLB2()
Elle est appelée lorsque tu appuies sur "Selectionner".

Je pense que c'est ce que tu voulais.

 

[bichon]

ok merci yo c'est tres gentil

 

[petchy]

Re: pour YO ..problème pour classer une listbox alphabétiquement

Le Forum

YO une petite question,dans un combobox j'ai des données est il possible de les triées par ordre alphabétique

 

[zon]

Re: pour YO ..problème pour classer une listbox alphabétiquement

Bonsoir à tous,




Petchy tu peux utiliser le meme principe avec un combobox....



A+++


PS tu as des exemples sur ce forum...

 

[Yo]

Petchy,
Ty peux trier une combobox, une listbox, des cellules d'une feuille ...
Le principe est toujours le même.
On peut le décomposer comme ça :

- Tu stockes les valeurs que tu veux trier (contenu de listbox, combobox,cellules .... ) dans un tableau.
- Tu tries le tableau contenant tes valeurs ( voir le code contenu dans le classeur de Bichon pour exemple ). Il y surement mieux mais ça marche.
- Tu as maintenant un tableau trié que tu peux utiliser pour réinitialiser ta listbox, combobox, réécrire tes cellules ...

J'espère avoir été clair.

 

[petchy]

YO
le probleme c'est que mes données ne sont pas ne sont pas dans un tabeau mais elles sont écrites dans le code.

With ComboBox1
.AddItem "de"
.AddItem "aa"
.AddItem "hh"
.AddItem "gg"
.AddItem "rr"
.AddItem "mm"

@ plus
petchy

 

[zon]

Re,


Petchy, pour construire ton tableau dans ton cas :


Une combobox et une listbox crée un tableau dynamiquement.. donc tu peux remplir du style Tab1 comme ceci


Dim Tab1()
dim j as byte
redim Tab1(0 to combobox1.listcount-1)
For j=0 to combobox1.listcount-1
Tab1(j)=combobox1.list(j)
next j



A+++

 

[petchy]

merci zon

excuse moi de poser cette question,mais ou dois je mettre se code.

merci

 

[zon]

Re,




Petchy, il faudrait que tu sois un peu plus précis pour la suite car je ne comprends pas ton but....


Sinon, je pense qu'aprés l'initialisation de ton combobox, le remplissage de ce tableau serait le mieux....



A+++

 

[petchy]

Re zon

je t'ai envoyer par BAL le code de l'USF.
merci
@ plus
petchy

 

[ZoB.NeOo7]

bijour
koment peut on faire pareil avec des numeriques? svp