Private Sub ComboBox1_Change()
If ComboBox1.Value = ComboBox2.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox1 = vbNullString: Exit Sub
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.Value = ComboBox1.Value Then
MsgBox "Vous ne pouvez avoir deux joueurs identiques !", vbInformation, "Erreur choix joueur": ComboBox2 = vbNullString: Exit Sub
End If
End Sub