Microsoft 365 affichage combobox sans les lignes sans valeur

Usine à gaz · 29 Avril 2020

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 · 29 Avril 2020

Le retour

mapomme · 29 Avril 2020

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

Usine à gaz · 29 Avril 2020

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:

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,

mapomme · 29 Avril 2020

Usine à gaz · 29 Avril 2020

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

Usine à gaz · 29 Avril 2020

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 · 29 Avril 2020

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

VB:

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

Il faut en fait écrire:

Code:

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

Usine à gaz · 29 Avril 2020

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 · 29 Avril 2020

Le retour

Usine à gaz · 29 Avril 2020

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,

Microsoft 365 affichage combobox sans les lignes sans valeur

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Discussions similaires