combobox et doublons?

[davidan]

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

 

[Robert]

Bonjour Davidan, bonjour le forum,

Le code ci-dessous pour remplir ta combobox sans doublons avec la methode AddItm. Si réellement ta plage G12:G65536 est éditée l'exécution va être assez longue (voire très longue selon ta bécane...)

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim Cel As Range 'déclare la variable Cel
Dim x As Long 'déclare la variable x

'boucle 1 :sur toutes les cellule de la plage G12:G...
For Each Cel In Range('G12:G' & Range('G65536').End(xlUp).Row)
If ComboBox1.ListCount > 0 Then 'condition 1 :si la ComboBox1 contient au moins un item
'boucle 2 : sur tous les items de la ComboBox1
For x = 0 To ComboBox1.ListCount - 1
'condition : si la valeur de la cellule exite dans la ComboBox1,
'va à la balise 'suite' (sans s'ajouter à la ComboBox1)
If Cel.Value = ComboBox1.List(x) Then GoTo suite
Next x 'prochain item de la ComboBox1 (boucel 2)
End If 'fin de la condition 1
ComboBox1.AddItem Cel.Value 'ajoute la valeur de la cellule à la ComboBox1
suite: 'balise
Next Cel 'prochaine cellule de la plage (boucle 1)
End Sub

 

[davidan]

ça ne marche pas
t'as pas autre chose...
je peine

 

[Robert]

Bonsoir Davidan, bonsoir le forum,

Hou la Davidan je t'avais perdu... Bon, reprenons. Marcher, ça je peux t'assurer que ça marche. Mais peut être pas dans ton cas. Alors plutôt que de tourner en rond, je te propose que tu mettes en pièce jointe (zippée < 50 Ko et son nom sans espaces, accents ou caractères spéciaux) ton fichier ou un fichier exemple reprenant les caractéristiques de celui-ci.

Je reste attentif.