Option Explicit
Public ActDesaEven As New stopEvent
Private Sub UserForm_Initialize()
'Désactivation de l'événement = True
ActDesaEven.GestEvent = True
Me.ComboBox1.List = [A1:A3].Value
Me.ComboBox2.List = [B1:B3].Value
Me.ComboBox3.List = [C1:C3].Value
'Me.ComboBox1.SetFocus
End Sub
'
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Si l'événement est déjà en cours : exit !
If ActDesaEven.GestEvent = True Then Exit Sub
[I2].Value = "ComboBox1_Enter"
If KeyCode = vbKeyTab Then Me.ComboBox1.DropDown
End Sub
'
Private Sub ComboBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Si l'événement est déjà en cours : exit !
If ActDesaEven.GestEvent = True Then Exit Sub
[I2].Value = "ComboBox2_Enter"
If KeyCode = vbKeyTab Then Me.ComboBox2.DropDown
End Sub
'
Private Sub ComboBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Si l'événement est déjà en cours : exit !
If ActDesaEven.GestEvent = True Then Exit Sub
[I2].Value = "ComboBox3_Enter"
If KeyCode = vbKeyTab Then Me.ComboBox3.DropDown
End Sub