'exemple
combobox1.list=[A1:A20].value
Function ListFormat(tbl, forme)
Dim I&
For I = 1 To UBound(tbl)
tbl(I, 1) = Format(tbl(I, 1), forme)
Next
ListFormat = tbl
End Function
Private Sub UserForm_Activate()
ComboBox1.List = ListFormat([A1:A20].Value, "#0 000")
End Sub
Function ListFormat(tbl, forme)
Dim I&
For I = 1 To UBound(tbl)
Select Case LCase(forme)
Case "maj": tbl(I, 1) = UCase(tbl(I, 1))
Case "min": tbl(I, 1) = LCase(tbl(I, 1))
Case "proper": tbl(I, 1) = WorksheetFunction.Proper(tbl(I, 1))
'ect..etc..
Case Else: tbl(I, 1) = Format(tbl(I, 1), forme)
End Select
Next
ListFormat = tbl
End Function
Private Sub UserForm_Activate()
ComboBox1.List = ListFormat([A1:A20].Value, "#0 000.00")
ComboBox2.List = ListFormat([C1:C10].Value, "proper")
ComboBox3.List = ListFormat([C1:C10].Value, "maj")
ComboBox4.List = ListFormat([C1:C10].Value, "min")
End Sub