SETFOCUS fonctionne pas

bonjour le forum,

bonjjour à tous,

je sollicite votre expertise pour faire revenir mon curseur dans le combobox quand celui ci est vide :

If Sheets("Stocks").Range("E" & x) = Str_Emplacement_ES_1 And Sheets("Stocks").Range("C" & x) <> NumLot Then
     Me.CmbB_Emplacement_ES_1.Value = ""
     MsgBox "Emplacement occupé" & Chr(13) & Chr(10) & "    par un autre lot", vbInformation, "Code Magasin Non Disonible"
     Me.CmbB_Emplacement_ES_1.SetFocus
    End If

ça ne marche ni avec

Private Sub CmbB_Emplacement_ES_1_Change()

ni avec

Private Sub CmbB_Emplacement_ES_1_AfterUpdate()

merci d'avance.

Pedro DUDESSON.

RE: en supprimant le msgbox, le curseur se remet bien dans le combobox, c'était pê ça le souci!?