Combobox : ne pas afficher cellule vide
Résolu
linette44
Messages postés
23
Date d'inscription
Statut
Membre
Dernière intervention
-
Ghostk -
Ghostk -
Bonjour,
J'ai créé une combobox avec une rowsource renseignée : liste!B2:B399.
Certaines cellules de la plage de la feuille liste ne sont pas renseignées (vide). Dans mon combobox, les vides apparaissent donc entre certaines valeurs.
Est-il possible de ne pas faire apparaître les cellules vides dans la Combobox ?
Merci d'avance de votre réponse
Cordialement
Linette
J'ai créé une combobox avec une rowsource renseignée : liste!B2:B399.
Certaines cellules de la plage de la feuille liste ne sont pas renseignées (vide). Dans mon combobox, les vides apparaissent donc entre certaines valeurs.
Est-il possible de ne pas faire apparaître les cellules vides dans la Combobox ?
Merci d'avance de votre réponse
Cordialement
Linette
A voir également:
- Combobox : ne pas afficher cellule vide
- Remplir combobox vba ✓ - Forum Excel
- Propriétés combobox vba ✓ - Forum VB / VBA
- Combobox vba liste déroulante dynamique ✓ - Forum Excel
- Vba combobox listindex ✓ - Forum VB / VBA
- Javascript combobox - Forum Javascript
1 réponse
Bonjour,
Je cherche toujours une solution.
J'ai compris que si je choisis de renseigner la liste dans ROWSOURCE, je ne peux rien faire.
J'ai donc trouver un code (voir ci-dessous) que j'ai saisi qui me permets de renseigner la liste déroulante de ma combobox mais je n'ai pas trouvé comment supprimer les lignes vides de ma liste déroulante.
Private Sub UserForm_Initialize()
With Sheets("Liste")
ComboBox4.List = .Range("b2:b" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub
Quelqu'un a-t-il une solution ?
Linette
Je cherche toujours une solution.
J'ai compris que si je choisis de renseigner la liste dans ROWSOURCE, je ne peux rien faire.
J'ai donc trouver un code (voir ci-dessous) que j'ai saisi qui me permets de renseigner la liste déroulante de ma combobox mais je n'ai pas trouvé comment supprimer les lignes vides de ma liste déroulante.
Private Sub UserForm_Initialize()
With Sheets("Liste")
ComboBox4.List = .Range("b2:b" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub
Quelqu'un a-t-il une solution ?
Linette
Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Sheets("Liste").Select
lf = Range("B65536").End(xlUp).Row 'définit la variable lf
ComboBox4.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("B2:B" & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then ComboBox4.AddItem cel.Value
Next cel 'prochaine cellule
End Sub
GK