Ca donnerai à peu prés ca alors :
Private Sub UserForm_Initialize()
Set CLsA = New ComboBoxLiées
CLsA.Plage [TblBaseArticles]
CLsA.Add Me.CBxRefArticle, 1
CLsA.Add Me.CboAFamille, 2
CLsA.Add Me.CboASousfamille, 3
CLsA.Add Me.CBxDsgnArticle, 4
CLsA.Add Me.CboAFournisseur, 5
CLsA.Actualiser
Set CLsF = New ComboBoxLiées
CLsF.Plage [TblFournisseur]
CLsF.Add Me.CBxRefFournisseur, 1
CLsF.Add Me.CboAFournisseur, 2
CLsF.Actualiser
End Sub
Private Sub FrameA_Click()
CLsF.Stopper: CLsC.Stopper: CLsA.Réactiver
End Sub
Private Sub FrameF_Click()
CLsA.Stopper: CLsC.Stopper: CLsF.Réactiver
End Sub
Private Sub FrameC_Click()
CLsA.Stopper: CLsF.Stopper: CLsC.Réactiver
End Sub
Private Sub CLsA_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
End Sub
Private Sub CLsA_BingoUn(ByVal Ligne As Long)
LCouA = Ligne
TVLA = CLsA.Lignes(LCouA).Range.Value
GarnirArticle
End Sub
Private Sub GarnirArticle()
Me.TxtALongueurcolisage.Text = TVLA(1, 6)
Me.TxtALargeurcolisage.Text = TVLA(1, 7)
Me.TxtAHauteurcolisage.Text = TVLA(1, 8)
Me.TxtACréele.Text = TVLA(1, 9)
Me.TxtANotes.Text = TVLA(1, 10)
Me.TxtADelaislivraison.Text = TVLA(1, 11)
Me.TxtAFraistransport.Text = TVLA(1, 12)
Me.TxtAFacturation.Text = TVLA(1, 13)
Me.CboAModedegestion.Text = TVLA(1, 14)
Me.TxtAminicommande.Text = TVLA(1, 15)
Me.TxtAPrixUnitHT.Text = TVLA(1, 16)
Me.TxtStockmini.Text = TVLA(1, 18)
Me.TxtDateSI.Text = TVLA(1, 19)
Me.TxtSI.Text = TVLA(1, 20)
End Sub
Private Sub CLsF_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
End Sub
Private Sub CLsF_BingoUn(ByVal Ligne As Long)
LCouA = Ligne
TVLF = CLsF.Lignes(LCouA).Range.Value
GarnirFournisseur
End Sub
Private Sub GarnirFournisseur()
Me.CBxGroupe.Text = TVLF(1, 3)
Me.TxtAdresse.Text = TVLF(1, 4)
Me.TxtCP.Text = TVLF(1, 5)
Me.TxtVille.Text = TVLF(1, 6)
Me.TxtPays.Text = TVLF(1, 7)
Me.TxtNom.Text = TVLF(1, 8)
Me.TxtPrénom.Text = TVLF(1, 9)
Me.TxtTel.Text = TVLF(1, 10)
Me.TxtFax.Text = TVLF(1, 11)
Me.TxtPortable.Text = TVLF(1, 12)
Me.TxtEmail.Text = TVLF(1, 13)
Me.TxtSiteinternet.Text = TVLF(1, 14)
Me.TxtCréele.Text = TVLF(1, 15)
Me.CBxDelaislivraison.Text = TVLF(1, 16)
Me.CBxFraistransport.Text = TVLF(1, 17)
Me.CBxFacturation.Text = TVLF(1, 18)
Me.TxtNote.Text = TVLF(1, 19)
End Sub