Microsoft 365 affichage combobox sans les lignes sans valeur

[Usine à gaz]

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.

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,

 

[mapomme]

Bonjour @arthour973

On n'utilise pas à la fois la propriété RowSource et la méthode AddItem.
Le code suivant pour le UserForm CltStopNum3:

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

 

[Usine à gaz]

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.

Voila tout le code:

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,

 

[mapomme]

Re,

 

[Usine à gaz]

Merci mapomme,
Je vois ce que j'avais oublié.
Super nickel
lionel,

 

[Usine à gaz]

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,

 

[mapomme]

Re,
Une étourderie stupide de ma pomme .
J'ai oublié de préfixer le

For Each cel In Range("e2:e" & lf)

Il faut en fait écrire:

For Each cel In .Range("e2:e" & lf)

 

[Usine à gaz]

Re,
"Une étourderie stupide de ma pomme J'ai oublié de préfixer"
Non, tu n'as pas faire d'erreur "For Each cel In .Range("e2:e" & lf)" y est bien.
C'est que la plage de N° à afficher est dans la Feuil2
lionel

 

[mapomme]

Le retour

 

[Usine à gaz]

Merci Mapomme lol, je ne l'avait pas vu "lu trop vite" en fait il manquait le "." avant le range
Que je suis nul
lionel,