En effet c'était un oublis, j'ai mis à jour comme tu m'as demandé pour le menu débogage, j'ai aussi supprimer tout les anciens code du fichier d'origine
Pour la CbnvaliderF c'est ok aussi
Par contre comme je te disais, je n'arrive pas à modifier la fiche de l'art29
j'aurai souhaité modifié sa famille et ca ne fonctionne pas. je ne sais pas si tu as essayé de ton coté.
Sinon j'ai avancé sur l'affichage au niveaux commande, par contre je n'arrive pas à actualiser la listboxcommande après une modification de quantité par exemple, bien pris en comte dans le tableau mais ne ressort dans listbox en instantané
Private Sub LBxC_Click()
LCouC = TLC(LBxC.ListIndex + 1)
TVLC = CLsC.Lignes(LCouC).Range.Value
CLsC.ValeursDepuis TVLC
GarnirCommande
End Sub
Private Sub GarnirCommande()
Me.TXtCmdDate.Text = TVLC(1, 2)
Me.TXtCmdEnregistrepar.Text = TVLC(1, 3)
Me.CBxDelaislivraison.Text = TVLC(1, 5)
Me.CBxFraistransport.Text = TVLC(1, 6)
Me.TXtCmddatelivraisonestime.Text = TVLC(1, 7)
Me.CBxRefArticle.Text = TVLC(1, 8)
Me.CBxDsgnArticle.Text = TVLC(1, 9)
Me.TXtCmdQtecmd.Text = TVLC(1, 10)
Me.TxtAPrixUnitHT.Text = TVLC(1, 11)
End Sub
Private Sub CLsC_BingoUn(ByVal Ligne As Long)
LCouC = Ligne
TVLC = CLsC.Lignes(LCouC).Range.Value
GarnirCommande
End Sub
Private Sub CLsC_Résultat(Lignes() As Long)
Dim Tdon(), TLBx(), Ldon As Long, LLBx As Long, C As Long
TLC = Lignes
Tdon = CLsC.PlgTablo.Value
ReDim TLBx(1 To UBound(TLC), 1 To 6)
For LLBx = 1 To UBound(TLC)
Ldon = TLC(LLBx)
'For C = 1 To 6: TLBx(LLBx, C) = Tdon(Ldon, C): Next C, LLBx
For C = 1 To 6: TLBx(LLBx, C) = Tdon(Ldon, Choose(C, 1, 8, 9, 10, 11, 12)): Next C, LLBx 'choix des colonne à ressortir dans la listbox
LBxC.List = TLBx
End Sub