Microsoft 365 affichage combobox sans les lignes sans valeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bon jour à toutes et à tous,
J'espère que vous allez bien 🙂

Je bute sur un nouveau souci :
J'ai des combobox qui fonctionnent sans souci sauf quelles affichent toutes les lignes de ma plage nommée.
Combo.jpg
Je ne sais pas si c'est possible car mes recherches n'ont pas abouti mais j'aurais souhaité que seules les cellules NON vides s'affichent dans la ComboBox.
En cas, je joins un p'tit fichier test.
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une belle journée 🙂
lionel,
 

Pièces jointes

Bonjour @arthour973 🙂

On n'utilise pas à la fois la propriété RowSource et la méthode AddItem.
Le code suivant pour le UserForm CltStopNum3:
VB:
Private Sub UserForm_Initialize()
Dim lf As Long, cel
   Sheets("Feuil1").Select
   lf = Range("e65536").End(xlUp).Row
   ComboBox1.RowSource = ""
   For Each cel In Range("e2:e" & lf)
      If cel.Value <> "" Then ComboBox1.AddItem cel.Value
   Next cel
End Sub
 
Bonjour Mapomme,
Merci pour m'avoir répondu 🙂
J'ai testé mais ça ne fonctionne pas chez moi ... j'ai du faire une bourde lol ?
J'ai une plage nommée dans la Combo, c'est peut-être ça.
combo.jpg

Voila tout le code:
VB:
Private Sub UserForm_Initialize()
Dim lf As Long, cel
   Sheets("Feuil1").Select
   lf = Range("e65536").End(xlUp).Row
   ComboBox1.RowSource = "ClientsNumAct"
   For Each cel In Range("e2:e" & lf)
      If cel.Value <> "" Then ComboBox1.AddItem cel.Value
   Next cel
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 Like ("") Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
[b2].Value = ComboBox1.Value

Application.EnableEvents = True
Application.ScreenUpdating = True
'[L3] = ComboBox1.Value
Unload Me
Exit Sub
End Sub

Je remets le fichier avec tous mes essais 🙂
lionel,
 

Pièces jointes

Re-Bonjour Mapomme, le Forum,
Encore merci, ton code fonctionne super bien mais....

Désolé, j'avais oublié un point important :
Dans mon fichier de travail, les cellules à prendre en compte pour le ComBox sont dans une feuille différente de la feuille destinataire et je n'arrive pas à modifier le code pour l'intégrer 😡
Pourrais-tu m'aider encore une fois ?
En cas, je joins le fichier test,
Merci à toi 🙂
lionel,
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
547
Réponses
13
Affichages
786
Réponses
6
Affichages
766
Retour