Vba excel combobox tri et élimination des doublons

Question

Sujet Précédent Sujet Suivant

Vba excel combobox tri et élimination des doublons

Signaler

cs_alex1512

Messages postés: 5
Date d'inscription: jeudi 19 septembre 2002
Statut: Membre
Dernière intervention: 21 octobre 2002

- 19 sept. 2002 à 10:54
imaneneu

Messages postés: 2
Date d'inscription: mercredi 20 juillet 2005
Statut: Membre
Dernière intervention: 1 août 2005

- 1 août 2005 à 14:14

Bonjour,

Je souhaiterais mettre les éléments d'une colonne d'une feuille excel dans une combobox sous vba(jusque la pas de problème) mais je souhaiterais que ces éléments soient classés par ordre alphabétique et que les doublons soient éliminés (un peu comme un filtre automatique)

Merci d'avance
Alex

A voir également:

Trier une colonne excel par ordre alphabétique vba
Vba trier tableau ordre alphabétique - Meilleures réponses
[Déplacé .Net --> VBA] VBA Excel (combobox) ✓ - Forum - Visual Basic 6
Sur vba excel, supprimer les doublons d'une combobox ✓ - Forum - Visual Basic 6
Visual Basic / VB.NET : Vba excel, remplissage d'un combobox ou d'une listbox - CodeS SourceS - Guide
Faire une boucle sur des combobox en vba excel ✓ - Forum - Visual Basic 6
[déplacé VB.NET -> VBA] Excel - Copie du contenu gauche/droit d'une comboBox dan ✓ - Forum - Visual Basic 6

5 réponses

Posez votre question

BasicInstinct · Answer 1 · 2002-09-19T11:30:30+0200

Réponse 1 / 5

BasicInstinct

Messages postés: 1471
Date d'inscription: mardi 5 février 2002
Statut: Membre
Dernière intervention: 20 octobre 2014

12
19 sept. 2002 à 11:30

lut

pour la liste par ordre alphabetique, il suffit de trier ta colonne

pour supprimer les doublons, il faut passer par une colonne intermediaire (enfin je pense) et tester si dans ma colonne triée, la ligne I = ligne I-1
v'la

cs_alex1512 · Answer 2 · 2002-09-19T12:56:24+0200

Réponse 2 / 5

cs_alex1512

Messages postés: 5
Date d'inscription: jeudi 19 septembre 2002
Statut: Membre
Dernière intervention: 21 octobre 2002

19 sept. 2002 à 12:56

le problème est que je ne veux pas modifier mon fichier excel, je souhaite juste prendre des éléments de ce fichier et après les mettre en forme dans ma combobox. je ne sais pas comment trier une combobox, je pensais à une requete type sql mais je n'en sais pas plus...
Alex

cs_marsupi · Answer 3 · 2002-10-16T13:10:18+0200

Réponse 3 / 5

cs_marsupi

Messages postés: 2
Date d'inscription: samedi 12 octobre 2002
Statut: Membre
Dernière intervention: 6 décembre 2004

16 oct. 2002 à 13:10

Dim Tableau()

ReDim Tableau(nb de lignes à trier)
For i=1 To nb de lignes à trier
Tableau(i)= cells(i+1,colonne à trier)
Next

For i= Ubound(Tableau) -1
For j=i+1 To Ubound (Tableau) -1
If Tableau(i)>Tableau(j) then
tmp=Tableau(i)
Tableau(i)=Tableau(j)
Tableau(j)=tmp
End If
Next
Next

For j=1 to (Ubound(Tableau)-1)
If Tableau(j)=Tableau(j+1) then
Else
ComboBox.additem Tableau(j)
End If
Next

imaneneu · Answer 4 · 2005-08-01T14:12:51+0200

Réponse 4 / 5

imaneneu

Messages postés: 2
Date d'inscription: mercredi 20 juillet 2005
Statut: Membre
Dernière intervention: 1 août 2005

1 août 2005 à 14:12

ca marche passssssssss :(

imaneneu · Answer 5 · 2005-08-01T14:14:12+0200

Dim Tableau()

ReDim Tableau(nb de lignes à trier)
For i=1 To nb de lignes à trier
Tableau(i)= cells(i+1,colonne à trier)
Next

For i= Ubound(Tableau) -1
For j=i+1 To Ubound (Tableau) -1
If Tableau(i)>Tableau(j) then
tmp=Tableau(i)
Tableau(i)=Tableau(j)
Tableau(j)=tmp
End If
Next
Next

For j=1 to (Ubound(Tableau)-1)
If Tableau(j)=Tableau(j+1) then
Else
ComboBox.additem Tableau(j)
End If
Next

ce code ne marche pas svp la solution pleaaaaaaaase

Votre réponse