Aide combobox

missaudrey · 3 Septembre 2010

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 · 3 Septembre 2010

Re : Aide combobox

bonjour

Je dis une bêtise ?

au lieu de

CmbTotalLot.AddItem (lot)

mettre

CmbTotalLot.AddItem lot

missaudrey · 3 Septembre 2010

Re : Aide combobox

Bonjour banzai,

j'ai essayé, ca ne marche pas.

missaudrey · 3 Septembre 2010

Re : Aide combobox

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

pierrejean · 3 Septembre 2010

Re : Aide combobox

Bonjour missaudrey

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

Banzai64 · 3 Septembre 2010

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 · 3 Septembre 2010

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 · 3 Septembre 2010

Re : Aide combobox

Bonjour pierre jean et banzai,

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

Banzai64 · 3 Septembre 2010

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 · 3 Septembre 2010

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 · 3 Septembre 2010

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 · 13 Septembre 2010

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 · 13 Septembre 2010

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 · 13 Septembre 2010

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 · 13 Septembre 2010

Re : Aide combobox

Bonjour,

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

JB

Aide combobox

missaudrey

XLDnaute Nouveau

Banzai64

XLDnaute Accro

missaudrey

XLDnaute Nouveau

missaudrey

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Banzai64

XLDnaute Accro

missaudrey

XLDnaute Nouveau

missaudrey

XLDnaute Nouveau

Pièces jointes

Banzai64

XLDnaute Accro

missaudrey

XLDnaute Nouveau

missaudrey

XLDnaute Nouveau

missaudrey

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Fo_rum

XLDnaute Accro

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Discussions similaires