Option Explicit
Private WithEvents CL As ComboBoxLiées, PlgCible As Range, LCou As Long, OK As Boolean
Private Sub UserForm_Initialize()
Dim C As Long
Set CL = CBxL.Création.ComboBoxLiées
CL.Plage Feuil1.[A2:F2], True
For C = 1 To 6: CL.Add Me("CBx" & C), C: Next C
CL.CorrespRequise = True
CL.Actualiser
End Sub
Public Sub Saisir(Cel As Range)
Set PlgCible = Cel.Resize(1, 6)
' CL.Nettoyer ' Instruction désactivée pour saisir même adresse plusieurs fois.
Me.Show
If OK Then PlgCible.Value = CL.PlgTablo.Rows(LCou).Value
End Sub
Private Sub CBnEffacer_Click()
If CL.ChangéÀLEchap Then Exit Sub
If LCou = 0 Then Me.Hide Else CL.Nettoyer
End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long)
LCou = Ligne
CBnOK.Enabled = True
End Sub
Private Sub CL_Défait()
LCou = 0: OK = False
CBnOK.Enabled = False
End Sub
Private Sub CBnOK_Click()
OK = True: Me.Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
OK = False
If CloseMode = vbFormControlMenu Then Cancel = True: Me.Hide
End Sub