je n'arrive pas à supprimer les doublons dans ma combobox - VB/VBA/VBS - Programmation
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....
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.
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
Marsh Posté le 11-07-2005 à 10:22:33
merci merci...lol
je vais me mettre à la traduction maintenant !
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