Charger le contenu d'une colonne dans une combobox

[nico0007]

Bonjour,

J'aimerai pouvoir charger le contenu d'une colonne d'une feuille dans une de mes combobox à l'initialisation de mon userform.
Je connais la méthode AddItems mais ma colonne fait 10000 lignes, donc vous comprenez que je ne vais pas pouvoir faire ça à la main.

Merci de votre aide.

 

[mutzik]

Re : Charger le contenu d'une colonne dans une combobox

bonjour nico,

en principe cela ne pose pas de probs, mais tu ne voudrais pas la remplir en fonction de quelques critères ce qui permettrait de ne pas avoir à selectionner parmi 10 000 lignes

 

[nico0007]

Re : Charger le contenu d'une colonne dans une combobox

bonjour nico,

en principe cela ne pose pas de probs, mais tu ne voudrais pas la remplir en fonction de quelques critères ce qui permettrait de ne pas avoir à selectionner parmi 10 000 lignes

salut, merci pour ta réponse,
Qu'entends tu par "critères"? Il est vrai que ma colonne est aussi volumineuse car j'ai de nombreux doublons dedans. Cependant je ne dois pas supprimer ces doublons de ma colonne mais juste de ma combobox lors du chargement si c'est possible...
Crois-tu que cela soit possible?

 

[mutzik]

Re : Charger le contenu d'une colonne dans une combobox

possible, oui, mais il te restera combien de valeurs ....

 

[nico0007]

Re : Charger le contenu d'une colonne dans une combobox

en fait cela devrait me laisser une centaine de valeurs...

 

[nico0007]

Re : Charger le contenu d'une colonne dans une combobox

ça y est je viens de réussir à charger le contenu de toute ma colonne avec ça:

ComboBox3.List() = Feuil2.Columns(1).Value

Seulement j'ai effectivement tous les doublons de ma colonne, et dieu sait qu'il y en a!!
Comment puis-je faire pour les supprimer de ma sélection?

Merci

 

[mutzik]

Re : Charger le contenu d'une colonne dans une combobox

re, fais une recherche sur le forum avec comme mot clé : doublons
je crois même qu'il y a kkchose dans la FAQ qui traite de ce sujet ...

 

[nico0007]

Re : Charger le contenu d'une colonne dans une combobox

ça y est je viens de réussir à charger le contenu de toute ma colonne avec ça:

ComboBox3.List() = Feuil2.Columns(1).Value

Seulement j'ai effectivement tous les doublons de ma colonne, et dieu sait qu'il y en a!!
Comment puis-je faire pour les supprimer de ma sélection?

Merci

 

[nico0007]

Re : Charger le contenu d'une colonne dans une combobox

re, fais une recherche sur le forum avec comme mot clé : doublons
je crois même qu'il y a kkchose dans la FAQ qui traite de ce sujet ...

Merci de ton aide, je viens de finir...youpii!!!

 

[matthieu33]

Re : Charger le contenu d'une colonne dans une combobox

Bonjour nico0007, Mutzik et le forum,

Voici une solution :

Private Sub ChargerCombo()
    Dim lgLig As Long
    Dim lgCmb As Long
    Dim bTrouve As Boolean
    
    ' Effacer le contenu de la liste
    ComboBox1.Clear
    
    ' Boucle de la ligne 1 à la dernière
    For lgLig = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
        bTrouve = False
        
        If Range("A" & lgLig) <> "" Then
            ' Boucle sur tous les éléments de la liste
            For lgCmb = 0 To ComboBox1.ListCount - 1
                ' Si l'élément est déjà dans la liste, ne pas l'ajouter
                If Range("A" & lgLig) = ComboBox1.List(lgCmb) Then
                    bTrouve = True
                    Exit For
                End If
            Next lgCmb
            
            ' Si l'élément est introuvable dans la liste, l'ajouter
            If bTrouve = False Then
                ComboBox1.AddItem Range("A" & lgLig)
            End If
        End If
    Next lgLig
End Sub