Discussion :

[gold15]

Bonjour
J'ai un combobox et 8500 ligne a mettre dedans
dans l'ACTIVATE de ma Worksheet j'ai fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  Dim j As Integer
 'Récupère les données de la colonne A...
  For j = 1 To Feuil22.Range("A1").CurrentRegion.Rows.Count
        ComboBox1 = Feuil22.Range("A" & j)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Feuil22.Range("A" & j)
    Next j

Cela fonctionne parfaitement (normal 90% du scripte provient du cite www.developpez)
Cependant le chargement des données est long

Question : comment faire pour tous charger d'un coup et non plus ligne a ligne ?
D'avance merci

[Invité]

Bonjour,
Tu fais un filtre élaboré sur ta colonne,il va de doublonner, tu affect ta colonne directement a la liste de ta combo sens faire de boucle!

[Igloobel]

bonjour,

juste pour appuyer la reponse de rdurupt

comme tu peux sortir sur une autre feuille le résultat du filtre élaboré alors tu peux faire après
un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.RowSource = "Feuil1!A2:A10"

A+

[gold15]

OK merci pour l'info
Mais j'aurais du préciser que j'utilise le combo box par défaut (celui qui ne contient pas de ROWSOURCE)