XL 2019 Blanc à supprimer dans Combobox_Liste

[YAP32]

Bonjour à tous,

Voilà je bloque sur un détail dans une combobox liste, je n'arrive pas à supprimer les cellules vides (les blancs dans la combobox)
ma "ListFilRange" va jusqu'à 150 ou plus (E10 : E150).

Fichier ci-dessous

Pourriez vous m'aider SVP!

Merci
@+

 

[sylvanu]

Bonjour Yap,
Une alternative avec une liste déroulante, voir PJ, avec pour la liste :

=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))

 

[JM27]

Bonsoir
Avec un contrôle de formulaire et un nom associé à la liste ( avec une insertion d'un blanc en fin de liste ( a modifier éventuellement)
mais il y aussi des solutions avec des active x

 

[YAP32]

Bonjour Yap,
Une alternative avec une liste déroulante, voir PJ, avec pour la liste :

=DECALER(Liste0;0;0;NB.SI(Liste;"<>"))

Bonjour Sylvanu,

Merci mais je dois utiliser la combobox, car elle est liée à d'autres fonctions.
Sinon la "Validation des données" c'est une bonne solution.

Merci
@+

 

[oukthr]

Bonjour Sylvanu,

Merci mais je dois utiliser la combobox, car elle est liée à d'autres fonctions.
Sinon la "Validation des données" c'est une bonne solution.

Merci
@+

Bonjour, voici une solution .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dl As Integer
Dl = Cells(Rows.Count, 5).End(xlUp).Row
ComboBox1.ListFillRange = "données!e10:e" & Dl
End Sub

 

[YAP32]

Bonsoir
Avec un contrôle de formulaire et un nom associé à la liste ( avec une insertion d'un blanc en fin de liste ( a modifier éventuellement)
mais il y aussi des solutions avec des active x

Bonjour JM27,

Merci pour ton aide mais comme répondu à Sylvanu je dois utiliser la combobox, car elle est liée à d'autres fonctions.

Merci
@+

 

[YAP32]

Bonjour, voici une solution .

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dl As Integer
Dl = Cells(Rows.Count, 5).End(xlUp).Row
ComboBox1.ListFillRange = "données!e10:e" & Dl
End Sub

Merci Oukthr,
La combobox fonctionne très très bien.
Merci
@+