Option Explicit
Dim WithEvents CL As ComboBoxLiés
Dim ValsLgn(), PlgDest As Range
Private Sub UserForm_Initialize()
Set CL = New ComboBoxLiés
CL.CorrespRequise = True
CL.Plage Feuil1.[A4]
CL.Add Me.CbxRayon, "B"
CL.Add Me.CbxType, "C"
CL.Add Me.CbxArticle, "D"
'CL.Add Me.Cbxunité, "D"
CL.Actualiser
End Sub
Public Sub Afficher(ByVal Plage As Range)
Set PlgDest = Plage
Me.Show
End Sub
Private Sub BtnEffacer_Click()
CL.Nettoyer
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
'5 a modifier en fonction du nombre de colonne et combobox
ReDim ValsLgn(1 To 1, 1 To 6)
'Me.LabPrix.Caption = "?"
'Me.Labunite.Caption = "?"
End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long)
ValsLgn = CL.PlgTablo.Rows(Ligne).Resize(, 6).Value
Me.Labref.Caption = ValsLgn(1, 1)
Me.LabPrix.Caption = ValsLgn(1, 5) & " €"
Me.Labunite.Caption = ValsLgn(1, 6)
End Sub
Private Sub BtnOK_Click()
PlgDest.Columns(1).Value = ValsLgn(1, 1)
plgdest.Columns(2).value etc.
Me.Hide
CL.Nettoyer
End Sub