Discussion :

[malycyous]

Bonjour à tous et toutes,

Je poursuis la création de mon outil et je suis assez perdu dès qu'il y a un petit bout de code qui me manque... Et pourtant je suis sûr que c'est simple :X

Alors voici mon petit soucis : J'ai un code de chargement de ma combobox de données comprises entre la ligne 10 pour le moment et surement 1000 ou 2000 une fois mon outil terminé et les données chargées. Mon problème est que le code si dessous ne charge pas les données si jamais entre mes cellules remplies il y a du vide... elles ne s'affichent pas dans ma ComboBox. Si je ne me trompe pas il faut créer une boucle et obliger VBA a allé au bout mais là... je sèche.

Voici le code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton9_Click()
Dim Agence As Range
 
 
'Supprime les données existantes dans le ComboBox
ComboBox3.Clear
 
'Boucle sur les cellules de la plage Q4:Q1000 pour
'alimenter le ComboBox
 
For Each Agence In Worksheets("annuaire").Range("Q4:Q1000")
    ComboBox1 = Agence
    'remplissage sans doublon
    If ComboBox3.ListIndex = -1 Then _
        ComboBox3.AddItem Agence
Next Agence
 
End Sub

Merci d'avance pour votre aide, je continue a chercher de mon coté.

A+ la compagnie.

[Daniel.C]

Bonjour,

Essaie le code suivant. J'ai utilisé un dictionnaire pour éliminer les doublons (macro non testée) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton9_Click()
Dim Agence As Range, Dico As Object
 
 
'Supprime les données existantes dans le ComboBox
ComboBox3.Clear
Set Dico = CreateObject("Scripting.Dictionary")
'Boucle sur les cellules de la plage Q4:Q1000 pour
'alimenter le ComboBox
With Worksheets("annuaire")
    For Each Agence In .Range(.[Q4], .Cells(.Rows.Count, "Q").End(xlUp))
        ComboBox1 = Agence ' ?
        'remplissage sans doublon
        If Not Dico.exists(Agence) And Agence <> "" Then
            Dico.Add Agence.Value, Agence.Value
            ComboBox3.AddItem Agence
        End If
    Next Agence
End With
End Sub