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.