vba excel combobox tri et élimination des doublons

Question

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

BasicInstinct · Answer

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

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

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

ca marche passssssssss :(

imaneneu · Answer

Dim Tableau()

ReDim Tableau(nb de lignes &#224; trier)
For i=1 To nb de lignes &#224; trier
Tableau(i)= cells(i+1,colonne &#224; 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

Vba excel combobox tri et élimination des doublons

5 réponses

Discussions similaires