Bo
Option Explicit
Property Let TexteLBx(ByVal LBx As MSForms.ListBox, Texte As String)
LBx.List = TJnTexte(Texte)
End Property
Property Get TexteLBx(ByVal LBx As MSForms.ListBox) As String
TexteLBx = Join(TJnLBx(LBx), " / ")
End Property
Function TJnLBx(ByVal LBx As MSForms.ListBox) As String()
GarnirTJnLBx TJnLBx, LBx
End Function
Function TJnTexte(ByVal Texte As String) As String()
GarnirTJnTexte TJnTexte, Texte
End Function
Sub GarnirTJnLBx(TJn() As String, ByVal LBx As MSForms.ListBox)
Dim N As Long
If LBx.ListCount = 0 Then Erase TJn: Exit Sub
ReDim TJn(0 To LBx.ListCount - 1)
For N = 0 To UBound(TJn): TJn(N) = Trim$(LBx.List(N)): Next N
End Sub
Sub GarnirTJnTexte(TJn() As String, ByVal Texte As String)
Dim N As Long
TJn = Split(Texte, "/")
For N = 0 To UBound(TJn): TJn(N) = Trim$(TJn(N)): Next N
End Sub