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).
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
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
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
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
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