Bonsoir, Salut James !
Intégré à ton Userform...
Dim sign
Private Sub Sign_Button_Click()
Dim i%, j%
sign = sign & ", " & CBVisa.Value
sign = Split(sign, ", ")
If UBound(sign) > 1 Then
For i = 1 To UBound(sign) - 1
For j = i + 1 To UBound(sign)
If sign(j) < sign(i) Then
sign(0) = sign(j): sign(j) = sign(i): sign(i) = sign(0)
End If
Next j
Next i
sign(0) = ""
End If
sign = Join(sign, ", ")
Range("B3").Value = Replace(sign, ", ", "", 1, 1)
CBVisa.ListIndex = -1
End Sub
On pourrait faire mieux, si tu étoffais ton Userform pour y afficher les signatures, et ne valider qu'une fois la totalité des signataires rassemblés...
En prime une petite amélioration de ton initialize :
Private Sub UserForm_Initialize()
Dim dl As Integer
With Sheets("BD")
dl = .Range("A" & .Rows.Count).End(xlUp).Row
CBVisa.List = .Range("A2:A" & dl).Value
End With
End Sub
Cordialement.