j'avais désactivé la garnir commande dans la clsc résultat car elle plante le fichier
d'ailleur en réactivant les 2 instructions une erreur se produit lors de la selection d'une commande
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
TVLC = CLsC.Lignes(Lignes(1)).Range.Value
GarnirCommande Tout:=False
End Sub
Sinon j'ai désactiver ces instruction dans garnircommande :
Private Sub GarnirCommande()
Me.TBxCmdDate.Text = TVLC(1, 2)
Me.TBxCmdEnregistrepar.Text = TVLC(1, 3)
'Me.CBxDelaislivraison.Text = TVLC(1, 5)instruction désactivé
'Me.CBxFraistransport.Text = TVLC(1, 6)instruction désactivé
'Me.TBxCmddatelivraisonestime.Text = TVLC(1, 7)instruction désactivé
'Me.CBxRefArticle.Text = TVLC(1, 8) instruction désactivé
'Me.CBxDsgnArticle.Text = TVLC(1, 9)instruction désactivé
Me.TBxCmdQtecmd.Text = TVLC(1, 10)
'Me.TBxPrixUnitHT.Text = TVLC(1, 11)instruction désactivé
'AppelA TVLC(1, 8)instruction désactivé
End Sub
Et j'ai donc une erreur de compilation
nombre d'argument incorrect ou affectation de propriété incorrecte