Aide combobox

[missaudrey]

Bonjour à tous,
J'ai toujous utilisé ce code pour supprimer les doublons dans une combobox:
finligne = getFinLigne
index = debutligne
debutligne = 8
varget = CmbTotalGET.Text
CmbTotalLot.Clear
index = debutligne + 1

While index <> finligne + 1
If varget = Sheets("Base de Données").Range("A" & index).Value Then
If lot <> Sheets("Base de Données").Range("J" & index).Value Then
lot = Sheets("Base de Données").Range("J" & index).Value
' Permet d'éviter les doublons dans le menu déroulant
If CmbTotalLot.ListIndex = -1 Then
CmbTotalLot.AddItem (lot)
End If
End If
End If

index = index + 1 Wend
'prendremodifEncompte = True
CmbTotalLot.ListIndex = -1 ' Mettre l'index à -1 à voir

Aujourd'hui, en travaillaant sur mon fichier, je constate que ca ne marche plus. Svp de l'aide!

 

[Banzai64]

Re : Aide combobox

bonjour

Je dis une bêtise ?

au lieu de

CmbTotalLot.AddItem (lot)

mettre

CmbTotalLot.AddItem lot

 

[missaudrey]

Re : Aide combobox

Bonjour banzai,

j'ai essayé, ca ne marche pas.

 

[missaudrey]

Re : Aide combobox

Quelqqu'un n'aurait pas une idée?????????

 

[pierrejean]

Re : Aide combobox

Bonjour missaudrey

Peux-tu poster un fichier exemple S.T.P ?

 

[Banzai64]

Re : Aide combobox

Re

Oui avec un exemple

Sinon en regardant ton code

tu initialises index à 0 : C'est voulu ?

Index = debutligne
debutligne = 8

Mais sans exemple pas évident de trouver

Désolé : J'ai pas tout lu

Index = debutligne + 1

 

[missaudrey]

Re : Aide combobox

en fait j'ai un tableau avec le quel j'ai rempli deux userform; Ce code marchait.Je remplissais une combobox avec des données de la colonne B du style 1 1 1 1 1 2 2 2 2 3 3 3 3.Ensuite j'ai trié la colonne A par ordre alphabétique et c'est là qu'apparait les doublons dans ma combobox qui contient les données de la colonne B. Ma questions est : comment faire uenc ombobox sans doubons,sachant que mes données ne sont plus ordonnées dans mon tableau.

 

[missaudrey]

Re : Aide combobox

Bonjour pierre jean et banzai,

Voilà un exmple, je ne peux envoyer l'original, il est lourd

 

[Banzai64]

Re : Aide combobox

Re

A vérifier pour m'enlever un doute

finligne = getFinLigne
Index = debutligne
debutligne = 8
varget = CmbTotalGET.Text
CmbTotallot.Clear
Index = debutligne + 1

While Index <> finligne + 1
If varget = Sheets("Base de Données").Range("A" & Index).Value Then
If lot <> Sheets("Base de Données").Range("J" & Index).Value Then
lot = Sheets("Base de Données").Range("J" & Index).Value
CmBTotallot = lot
' Permet d'éviter les doublons dans le menu déroulant
If CmbTotallot.ListIndex = -1 Then
CmbTotallot.AddItem (lot)
End If
End If
End If

Index = Index + 1
Wend

 

[missaudrey]

Re : Aide combobox

Re,

Il y'a toujours le sdoublons; Ca vient du fait que j'effectue un tri par ordre alphabétique. Sans tri, ca marche, avec un tri, ca ne marche pas

 

[missaudrey]

Re : Aide combobox

Dan sle fichier que j'ai joint, j'aimerai trier la colonne B par ordre aphabétique et et que dans le cmblot ( correspondant à la colonne J, n'apparaise pas de doublons

 

[missaudrey]

Re : Aide combobox + tri alphabétique

Bonjour le forum,

Je reviens avec mon sujet d'il ya 2 semaine, j'ai eu une coupure d'internet. je ne sais tjours pas trier par ordre alphabétique dans une combobox.
Quelqu'un aurait il une idée?

Merci d'avance

 

[Robert]

Re : Aide combobox

Bonjour le fil, bonjour le forum,

Regarde le lien suivant :
Formation Excel VBA JB
dans la liste alphabétique cliques sur Dictionary.

 

[Fo_rum]

Re : Aide combobox

salut

2 exemples, l'un à partir d'une idée de BOISGONTIER avec l'outil Dictionary (comme le précise Robert), l'autre à partir d'une idée de Lii avec l'outil ListView. A noter que l'ordre n'est pas le même quand il y a des lettres accentuées.
Tu peux encore trouver un tas d'exemples en cherchant bien.

 

[BOISGONTIER]

Re : Aide combobox

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/ListeSansDoublonsDictionaireAccent.xls

JB