ComboBox immodifiable

Salut à tous...

J'aimerais savoir s'il existe un code VBA qui peut rendre un ComboBox immodifiable après la sélection de son élément.

Le fichier

Bonjour,

Ajoute ceci au code de ton UserForm :

Private Sub cbxfour_Change()
    If cbxfour <> vbNullString Then cbxfour.Enabled = False
End Sub

Mais bon...
Une combobox permet également la saisie dans son champs de "texte".

Que se passe t'il en cas de mauvais choix?

Que se passe t'il en cas de saisie "hasardeuse"?

Merci Pijaku ça marche très bien

En cas de mauvais choix, il ne validera pas l'ajout.

Si possible un msgbox apparait.

Cela est valable pour la saisie "hasardeuse"

Private Sub CommandButton2_Click()
Dim part_art As String
Dim part_mntt As Currency

If Me.cbxfour.ListIndex >= 0 Then
    Me.cbxfour.Enabled = False
End If

If Me.cbxart = "" And Me.cbxfour = "" And Me.TextBox2 = "" Then
    MsgBox "Veuillez remplir tout les champs.", vbCritical, "ERREUR"
End If