récupérer les données SANS doublon d'une plage dans un Combox (2 questions)

Bonsoir

Pour la question 1 :

dans ce cas la j'utilise une collection, je transfère les infos dans la collection en gérant les doublons pas la clé, puis chaque élément de la collection sans doublons est renvoyé vers la combobox.

En somme la collection me sert de filtre.

Dim item
Dim nom As New Collection
Dim c As Range

On Error Resume Next
For Each c In Range("a1:a" & Range("a65000").End(xlUp).Row)
nom.Add c.Text, c.Text
Next c

For Each item In nom
ComboBox1.AddItem item
Next item

nom.Add c.Text, c.Text =nomdelacollection.add item, clé
On ajoute à la collection la valeur de c et comme clé de l'item également la valeur de c .

Lorsque le code va rencontrer un nom qui est déjà dans la collection (un doublon), comme une clé est unique la macro va déclencher une erreur , que l'on gère par le : on error resume next.

Ainsi dans ta collection tu n'aura que des items uniques, que tu renvoi dans la combobox.

En espérant être clair.

Salut
Hervé

PS : je regarde pour ta question 2, mais là je sais pas faire , lol

Bonjour Daniel, Hervé, le Forum

Rapidos, pour la question 2, il faut s'orienter sur une collection de range avec SpecialCells(xlCellTypeVisible)...

Voir cette démo (entre autre)

Lien supprimé

Bonne Journée
@+Thierry

Merci beaucoup à tous les deux !

Vous avez résolu mes deux problèmes...(je me souviendrai de la méthode "Collection" !)

Encore merci, et bonne soirée

Daniel