Bonjour à tous,
Dommage de ne s'arrêter que l'aspect esthétique mais bon un test tout de même :
Private Sub ListBox1_Change()
For x = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(x) = True Then
I = I + 1
If I > 1 Then MsgBox "Interdiction de selectionner plus d'un item", vbCritical: ListBox1.Selected(x) = False
End If
Next x
End Sub
Cdlt,