Option Explicit
Dim WithEvents CC As ComboBoxCasc
Dim Laligne As Long ' Numéro de la ligne sélectionnée dans CC.PlgTablo
Dim f, ACTION, SEQUENCE, OPG, OPS
'
Private Sub UserForm_Initialize()
Dim N As Long
Set CC = New ComboBoxCasc
CC.Plage PlgUti(Feuil4.[A2])
For N = 0 To 4: CC.Add Me.Controls("ComboBox" & N), N + 7: Next N
CC.Actualiser
Me.ComboBox0.SetFocus: SendKeys "{F4}"
End Sub
Private Sub ComboBox0_Change()
If Me.ComboBox0.ListIndex > -1 Then Me.ComboBox1.SetFocus: SendKeys "{F4}"
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex > -1 Then Me.ComboBox2.SetFocus: SendKeys "{F4}"
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox2.ListIndex > -1 Then Me.ComboBox3.SetFocus: SendKeys "{F4}"
End Sub
Private Sub ComboBox3_Change()
If Me.ComboBox3.ListIndex > -1 Then Me.ComboBox4.SetFocus: SendKeys "{F4}"
End Sub
Private Sub CC_BingoUn(ByVal Ligne As Long)
Laligne = Ligne
End Sub
'
Private Sub CC_Défait()
Laligne = 0: ActiveSheet.[A1].Select
End Sub