Bonjour, Voila mon problème, j'ai une ListBox renommé LtxboxArticle qui contiens mes articles haut à droite ,et LtxboxLibelle qui contiens mes libelles (Txt1 à Txt10) pour que lorsque je clic sur la LtxboxArticle qu' elle alimente le tableau (LIBELLES) en haut au milieu , avais vous une soluce. merci
'Nbarticle Cbarticle
Private Sub LtxboxArticle_Click()
'Les variables
Dim NumLigne As Integer
Dim Nbligne As Integer
'Affectation des variables
NumLigne = Me.LtxboxArticle.ListIndex 'trouve le n° de ligne sélectionné
Nbligne = Me.LtxboxArticle.ListCount 'trouve le Nb d'enregistrement dans la listbox (LtxboxArticle)
Me.Nbarticle.Value = Nbligne
Me.Cbarticle.Value = Me.LtxboxArticle.Column(0, NumLigne)
End Sub
'l'affichage des libelles avec Lb_Clic
'Nbarticle Cbarticle
Private Sub LtxboxLibelle_Click()
'Les variables
Dim NumLigne As Integer
Dim Nbligne As Integer
'Affectation des variables
NumLigne = Me.LtxboxLibelle.ListIndex 'trouve le n° de ligne sélectionné
Nbligne = Me.LtxboxLibelle.ListCount 'trouve le Nb d'enregistrement dans la listbox (LtxboxArticle)
Me.Nbarticle.Value = Nbligne
Me.Txt1.Value = Me.LtxboxLibelle.Column(2, NumLigne)
Me.Txt2.Value = Me.LtxboxLibelle.Column(3, NumLigne)
Me.Txt3.Value = Me.LtxboxLibelle.Column(4, NumLigne)
Me.Txt4.Value = Me.LtxboxLibelle.Column(5, NumLigne)
Me.Txt5.Value = Me.LtxboxLibelle.Column(6, NumLigne)
Me.Txt6.Value = Me.LtxboxLibelle.Column(7, NumLigne)
Me.Txt7.Value = Me.LtxboxLibelle.Column(8, NumLigne)
Me.Txt8.Value = Me.LtxboxLibelle.Column(9, NumLigne)
Me.Txt9.Value = Me.LtxboxLibelle.Column(10, NumLigne)
Me.Txt10.Value = Me.LtxboxLibelle.Column(11, NumLigne)