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
Private Sub CommandButton1_Click()
Private Sub CommandButton1_Click()
Dim TDon(), TR(), Ldon As Long, LR As Long, C As Long
TLC = Lignes
TDon = CLsC.PlgTablo.Value
ReDim TR(1 To UBound(TLC), 1 To 6)
For LR = 1 To UBound(TLC)
Ldon = TLC(LR)
For C = 1 To 6: TR(LR, C) = TDon(Ldon, Choose(C, 1, 8, 9, 10, 11, 12)): Next C, LR
'Sheets ("Feuil1"). Cells(22, 3).Select = TR
End Sub
Private Sub CommandButton1_Click()
Dim TDon(), TR(), Ldon As Long, LR As Long, C As Long
TLC = Lignes
TDon = CLsC.PlgTablo.Value
ReDim TR(1 To UBound(TLC), 1 To 6)
For LR = 1 To UBound(TLC)
Ldon = TLC(LR)
'For C = 1 To 6: TLBx(LLBx, C) = Tdon(Ldon, C): Next C, LLBx
For C = 1 To 6: TR(LR, C) = TDon(Ldon, Choose(C, 1, 8, 9, 10, 11, 12)): Next C, LR
WshBonCmd.[RéfBC].Value = TR
WshBonCmd.[DateCommande].Value = TR
WshBonCmd.[CorpsFacture].Value = TR
WshBonCmd.[Port].Value = TR
WshBonCmd.[Delailivraison].Value = TR
Vous auriez intérêt à faire Redim TR(1 To WshBonCmd.[CoppsFacture].Rows.Count, 1 To 6) pour ne pas avoir à compliquer pour nettoyer d'anciennes lignes en trop.… à partir de TDon = CLsC.PLgTablo.Value. TLC aura déjà été fixé, justement par la CLsC_Résultat.