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
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
Utilise une boucle for
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Lorsque j'incorpore la boucle for dans mon programme, j'ai une erreur de compilation au niveau du ".Range"
Je n'arrive pas à comprendre mon erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 ?
"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"
J'ai fais un petit test et moi çà marche.
Si tu fais un msgbox de Agences.Range("E" & i).Text, ca te donne quoi ?
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.
Merci Corlo pour le morceaux de code qui m'était bien utile
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager