je n'arrive pas à supprimer les doublons dans ma combobox

je n'arrive pas à supprimer les doublons dans ma combobox - VB/VBA/VBS - Programmation

Marsh Posté le 08-07-2005 à 11:01:21    

bonjour à tous
j'ai encore un dernier pb avec ma combobox  
je te rappelle mon code  
Private sub bouton_OK_click()  
if Combobox1.value="tous" then  
range("g12" )Autofilter field:=7  
else  
range("G12" ).autofilter fied:=7,criteria1:=combobox1.value  
end if  
(la combobox contient la liste "G12:G65536" )  
comment je peux retirer simplement les doublons dans ma combobox sans les enlever dans mon tableau  
j'ai trouver des trucs mais c'est trop compliquer,je n'arrive pas à les adapter à mon cas.  
merci encore

Reply

Marsh Posté le 08-07-2005 à 11:01:21   

Reply

Marsh Posté le 08-07-2005 à 14:25:18    

je n'ai pas très bien compris ton problème, mais g rencontré un problème similaire il y a peu de temps et je l'ai résolu en effaçant toute ma combobox à chaque fois que je la chargeai : combobox1.clear
 
ça ne résoudra peut etre pas ton prob, mais sait on jamais....

Reply

Marsh Posté le 08-07-2005 à 17:31:32    

Si la solution d' _alice_ ne fonctionne pas chez toi, sers toi de 2 boucles.
La première sélectionne l'entitée à trouver, la seconde scanne la liste pour éventuellement trouver le doublon.

Reply

Marsh Posté le 08-07-2005 à 17:45:37    

combobox.clear efface toute la combo car sinon les donné rentré reste en mémoire et s'accumule.
une siolution simple s'est de rendre invisible ta 1ere combo et d'en créer une deuxième.
'pour tt les élémen de la combo1
for i = 0 to combo1.listcount - 1
    'pour tt les élémen de la combo1
    for j = 0 to combo2.listcount - 1
        'test pour savoir si l'élemen est déjà) présent
        if combo1.list(i) = combo2.list(j) then
            'present donc on s'en va
            goto next_item
        end if
    next j
    l'élemen n'a pa été trouvé dc on l'ajoute
    combo2.additem combo1.list(i)
next:item
next i

Reply

Marsh Posté le 09-07-2005 à 09:28:06    

lhonolulu tu traduis parfaitement ce que je disais.

Reply

Marsh Posté le 11-07-2005 à 10:22:33    

merci merci...lol
je vais me mettre à la traduction maintenant !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed