Suppression des blancs dans une ComboBox [Résolu]

[sami35]

Bonjour,

J'ai une Combobox qui se réfère à une colonne qui n'est pas entièrement remplie.

Je souhaiterais supprimer les blancs dans cette ComboBox afin d'afficher une liste sans vides entre les sélections.

Merci de votre aide

[Corlo]

Utilise une boucle for

Code :

1
2
3
4
5
For i=0 to FinDeTaColonne
if feuil.range("X").text <> "" then
Combobox.AddItem(Feuil.range("X").Text
endif
next i

[sami35]

Lorsque j'incorpore la boucle for dans mon programme, j'ai une erreur de compilation au niveau du ".Range"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
For Each ch_agce In Me.Controls
        If Left(ch_agce.Name, 12) = "Choix_agence" Then
            ch_agce.RowSource = "Agences!E2:E1200"
 
            For i = 2 To 1200
            If Agences.Range("E" & i).Text <> "" Then
            ComboBox.AddItem (Agences.Range("E" & i).Text)
            End If
            Next i
 
        End If
    Next

Je n'arrive pas à comprendre mon erreur

[Corlo]

Sur le code que tu as mis, je ne vois pas d'erreur.
Agences est bien une feuille Excel?
C'est quoi l'erreur qui est mis ?

[sami35]

"Agences" est bien une feuille de mon fichier Excel.

Dans cette feuille, je récupère la colonne E de la ligne 2 à la ligne 1200 que je mets dans la ComboBox. Certaines lignes de cette colonne sont vides et apparaissent dans la sélection de la ComboBox.
Mon objectif est d'enlever ces sélections vides.

L'erreur indiquée est:
"Membre de méthode ou de données introuvable"

[Corlo]

J'ai fais un petit test et moi çà marche.
Si tu fais un msgbox de Agences.Range("E" & i).Text, ca te donne quoi ?

[sami35]

J'ai enfin réussi.
Je me suis fait un exemple plus simple dans lequel j'ai cherché un petit peu et ensuite j'ai réadapté le bout de programme dans mon code de travail.

Code :

1
2
3
4
5
6
7
8
9
10
11
For Each ch_agce In Me.Controls
        If Left(ch_agce.Name, 12) = "Choix_agence" Then
 
            For i = 2 To 1200
            If Sheets("Agences").Range("E" & i).Text <> "" Then
            ch_agce.AddItem (Sheets("Agences").Range("E" & i).Text)
            End If
            Next i
 
        End If
    Next

Merci Corlo pour le morceaux de code qui m'était bien utile